VBA Code ohne vergleich in Spalten

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. "
Code:
wbZiel.Worksheets("Ziel").Cells(zeileZ, 8) = DatenS(zeileS, 2)
". Es gibt keien Fehler, nur das kopieren funktioniert ncht.
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
 
Zurück