Hallo zusammen,
ich brauch dringend eure Hilfe...
mit dieser Codezeile will ich in einem Sheet etwas markieren und in einem anderen einfügen.
aber das funktioniert nicht. die Zeilen werden richtig ermittelt, aber kopiert wird nichts.
Case "A"
With Sheets("Hilfe")
.Range(.Cells(4, 733), .Cells(4, 1032)).Select
Selection.Copy
End With
With Sheets("Regelschichtplan")
.Range(.Cells(zza.Row, zza.Column + 4), .Cells(zza.Row, zza.colum + 365)).PasteSpecial
End With
Bitte, es wär dringend
Danke
A.