Motor++Haie
Grünschnabel
Hallo zusammen, ich habe einen VBA Code (Auszug) wo ich Werte aus in Spalte kopieren möchte. Nachdem ich die Übereinstimmung geprüft habe möchte ich Werte aus DatenS (Spalte2) nach ZeileZ (Spalte8) kopieren. Mein Problem ist folgendes: Da die Spalte zeileZ noch leer ist und erst aus zeileS befüllt werden soll kann das gleich Zeichen(=) ja nicht funktionieren. "
". Es gibt keien Fehler, nur das kopieren funktioniert ncht.
Kann mir hier vielleicht jemand helfen? Danke schonmal und Gruß Josef
Code:
wbZiel.Worksheets("Ziel").Cells(zeileZ, 8) = DatenS(zeileS, 2)
Kann mir hier vielleicht jemand helfen? Danke schonmal und Gruß Josef
Code:
For zeileS = 2 To UBound(DatenS)
If DatenS(zeileS, 2) <> "" Then
'hier gilt das mit der 2 ebenfalls
For zeileZ = 2 To UBound(DatenZ)
If DatenS(zeileS, 3) = DatenZ(zeileZ, 1) Then
If DatenS(zeileS, 4) = DatenZ(zeileZ, 2) Then
wbZiel.Worksheets("Ziel").Cells(zeileZ, 8) = DatenS(zeileS, 2)
End If
End If
Next