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
 
Zurück