Zeilen vergleichen in Excel - Macro

maenner... IHR SEIT EIN TRAUM

funktioniert einwandfrei...... *JUPPPPIII*
hier nochmal der wichtige teil

data1 = Split(Component1, ",")
data2 = Split(Component2, ",")
For i = 0 To UBound(data1)

If data1(i) <> "" Then
data1(i) = Trim(data1(i))
Worksheets(Source2).Cells(NewLine1, Column) = data1(i)
Column = Column + 1
Else
End If

Next i
Column = 1
For t = 0 To UBound(data2)
If data2(t) <> "" Then
data2(t) = Trim(data2(t))
Worksheets(Source2).Cells(NewLine2, Column) = data2(t)
Column = Column + 1
Else
End If
Next t
NewLine1 = NewLine1 + 2
NewLine2 = NewLine2 + 2
Column = 1
Next y






TAUSEND DANK

ihr habe mir echt weitergeholfen und mir viel viel arbeit erspart !!
ich hoffe den rest werd ich dann auch noch hinbekommen.!!

schoenen abend
gruesse aus huntsville
 

Neue Beiträge

Zurück