Jede Zeile auf Wert prüfen und copypaste
02.10.2020 10:51:39
Timo
folgende Problemstellung:
In Tabelle1 soll jede Zeile auf einen Wert in Spalte C geprüft werden.
Wenn dieser Wert = 1 ist, dann soll die komplette Zeile kopiert und in Tabelle2 eingefügt werden.
Mein Code sieht bisher so aus:
Private Sub CommandButton1_Click()
Dim zeile As Integer
For zeile = 1 To 100
If Sheets("Tabelle1").Cells(zeile, 3).Value = 1 Then
Sheets("Tabelle1").Cells(zeile, 3).EntireRow.Copy
Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Paste
Next
Else
MsgBox "Keine Übereinstimmung gefunden.", _
vbExclamation
End If
End Sub
https://www.herber.de/bbs/user/140585.xlsm