anubis2002
Grünschnabel
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
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