Kopieren wenn Teil eine Zelle
Norbert
ich kopiere mir aus Tabelle 2 Werte aus den Zeilen deren Wert in Spalte E meinem Eintrag in Tabelle 1 Zelle B1 entspricht. Wie muß ich den Code erweitern wenn in Tabelle 2 auch die Zeilen berücksichtigt werden sollen die "Rechts" noch einen Buchstaben stehen haben.
Beispiel:
Wert in Tabelle 1 Zelle B1: 1100-1
Wert in Tabelle 2 Spalte E: 1100-1W (oder ein anderer x-beliebiger Buchstabe, oder kein _ Buchstabe)
Sub test()
Dim a As Long, i As Long
a = 6
For i = 7 To 1000
With Worksheets("Tabelle2")
If .Cells(i, "E") = Worksheets("Tabelle1").Cells(1, 2) Then
Worksheets("Tabelle1").Cells(a, 1).Value = Worksheets("Tabelle2").Cells(i, 1).Value
Worksheets("Tabelle1").Cells(a, 2).Value = Worksheets("Tabelle2").Cells(i, 2).Value
a = a + 1
Else
End If
End With
Next i
End Sub