Hallo zusammen,
ich habe folgenden Code erstellt, der egtl nicht mehr können soll, als 3 bestimmte Zellen aus 3 verschiedenen Tabellenblätter in ein viertes zu kopieren. Der Code wird ausgelöst durch einen Click auf einen CommandButton.
Warum kommt schon bei der ersten Range-Anweisung immer ein Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler?
Private Sub cmb2_Click()
Sheets("Status").Select
Range("J32").Select
Selection.Copy
Sheets("Graphik").Select
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Potenzial").Select
Range("J20").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Graphik").Select
Range("B8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Strategie").Select
Range("J19").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Graphik").Select
Range("B9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Vielen Dank im Voraus!
|