Spalte durchsuchen, Werte aus and. Spalten kopiren
15.07.2019 11:23:53
Len
Ich muss eine Spalte durchsuchen, wenn dort "ja" auftaucht, dann einige Werte aus der Zeile in ein anderes Blatt kopieren. Durchgesucht werden soll Spalte 142 in 150 Zeilen
Beispiel:
Kunde1 15,1 ja -----> Kunde1 15,1 ja
Kunde2 13,5 Kunde3 16,8 ja
Kunde3 16,8 ja
Kunde4 77,8
Hier ist mein Versuch, funktioniert leider nicht...
Sub ARAG1()
Dim i As Long
Dim rr As Long
lastrow = Worksheets("ARAG").Range("D65536").End(xlUp).Row
rr = lastrow
For i = 12 To 200
i = i + 1
rr = rr + 1
If Worksheets("Übersicht").Cells(i, 142).Value = "ja" Then
Worksheets("ARAG").Cells(rr, 4) = Worksheets("Übersicht").Cells(i, 141)
End If
Next i
End Sub
Anzeige