Hallo hätte kleines Problem zu löschen
dies funktionert einwandfrei wenn Begriff vorhanden, kopiere
Inhalt von Spalte A-D
LoZeile = 4
InSpalte = 1
With Worksheets("All")
For ByI = 4 To 500
If .Cells(ByI, 1) = "x" Then
.Range(Cells(ByI, 1), Cells(ByI, 4)).Copy _
Destination:=Worksheets("IM").Cells(LoZeile, InSpalte)
LoZeile = LoZeile + 1
End If
Next ByI
End With
als Variante A
gibt es möglichkeit das ich zB Spalten A-D; F; J-K kopiere aneinander gereiht
als Variante B
oder an gleichen Platz kopiert wie Ursprungs Spalte
weis noch nicht welches besser ist für das Erscheinungsbild A oder B.
DANKE
gruss helena