ich habe folgenden Code:
Sub GelbeZeilen()
Dim i As Integer
Dim cell As Range
i = 3
For Each cell In Tabelle1.Range("A:A")
If Not cell Is Nothing Then
If cell.Value = "x" Then
cell.EntireRow.Copy Destination:=Tabelle4.Rows(i)
i = i + 1
End If
End If
Next cell
End Sub
Aus Tabelle 1 sollen die Zeilen rauskopiert werden, die ein x in Spalte A besitzen. Diese landen dann in Tabelle 4Mein Problem: Ich will nicht die ganze Reihe (also entireRow) sondern nur von Spalte A bis L kopieren, da er mir sonst wichtige Sachen ab Zeile M überschreibt.
Bin schon lange am probieren und habe viele Foreneinträge durchsucht, aber alles was die gemacht haben, hat bei mir nicht geklappt.
Vielen Dank für eure Hilfe!