Laufzeitfehler 424

[lovelylaisen]

Hallo Zusammen,

ich versteh die Fehlerbeschreibung nich so ganz.
Danke für jeden Tipp, im Anschluss der Code.

Viele Grüße


Sub Funktion()

Dim department As Range
'Dim user As Range


Set department = Worksheets("Tabelle1").Range("E:K")

If CheckBox1.Value = True Then

department.Copy Destination:=Worksheets("Tabelle2")

End If


End Sub

[Rudi4]

Hallo,

die Copy-Methode erwartet ein Range-Objekt.

Sub meineKopie1()
Dim department As Range
Set department = Worksheets("Tabelle1").Columns("E:K")
If CheckBox1.Value = True Then
department.Copy Destination:=Worksheets("Tabelle2").Columns("E:E")
End If
Application.CutCopyMode = False
End Sub

'die Set-Anweisung ist nicht notwendig, wenn das Objekt nur einmal verwendet wird
Sub meineKopie2()
If CheckBox1.Value = True Then
Worksheets("Tabelle1").Columns("E:K").Copy Worksheets("Tabelle2").Columns("E:E")
End If
Application.CutCopyMode = False
End Sub

'oder: -andere Schreibweise-

Sub meineKopie3()
If CheckBox1.Value = True Then
With Worksheets("Tabelle1").Columns("E:K")
.Copy Worksheets("Tabelle2").Columns("E:E")
End With
Application.CutCopyMode = False
End If
End Sub

[lovelylaisen]

Hallo Rudi,

Danke für die Infos und deine Hilfe!
Das sind so Basic-Informationen die einen Anfänger, der einfachmal drauf loslegt fehlen.

Nochmal, vielen lieben Dank!
Grüße
Lisa