ich habe Werte in einer Tabelle! Wenn hier in Spalte F eine 1 Steht soll die gesamte Spalte in ein anderes vorhandenes Tabellenblatt kopiert werden! Wie mache ich das?
https://www.herber.de/bbs/user/79209.xlsx
Gruß
Sub kopieren()
Dim rngc As Range
Application.ScreenUpdating = False
With Tabelle2
For Each rngc In .Range(.Cells(2, 2), .Cells(Rows.Count, 2).End(xlUp))
If rngc.Offset(, 4) = 1 Then
rngc.Resize(, 4).Copy Tabelle1.Cells(Rows.Count, 2).End(xlUp).Offset(1)
End If
Next
End With
End Sub
Sub kopieren()
Dim rngc As Range
Application.ScreenUpdating = False
With Sheets("Tabelle1")
For Each rngc In .Range(.Cells(2, 2), .Cells(Rows.Count, 2).End(xlUp))
If rngc.Offset(, 4) = 1 Then
rngc.Resize(, 4).Copy Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Offset(1)
End If
Next
End With
End Sub