Sub Kopieren()
Dim i As Integer 'Zeilenzähler in der Ursprungsspalte
Dim y As Integer 'Zeilenzähler der Zielspalte
y = 1
For i = 3 To 501
y = y + 1
If Sheets("Tabelle2").Cells(i, 2).Value Like "5Mt" Then
Sheets("Tabelle2").Range("i, 2:i, 5") = Sheets("5Mt").Range("y, 2:y, 5")
Else
End If
Next i
End Sub
Moin,
wie schon im Titel geschildert brauche ich ein VBA Skript welches prüft, ob eine Zelle einen bestimmten Text (auch) beinhaltet und dann die Zeile dieser in ein anderes Datenblatt kopiert.
Ich habe nicht besonders viel Erfahrung mit VBA. Entschuldigt also bitte (dumme) Fehler.
Entschuldigt auch die Suboptimale Einbettung des Codes. Ich weiß nicht wie es anders geht.