Befehlsschaltfläche (CommandButton)
20.12.2004 04:02:28
Nemesis01
ich möchte die Inhalte von B5:B10 des Tabellenblattes 'Tabelle1' an die Stellen C5:C10 des Tabellenblattes 'Tabelle2' kopieren (Inhalte einfügen).
Dazu habe ich mit dem Makro-Recorder folgendes Makro aufgenommen:
Range("B5:B10").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Wenn ich dieses Makro manuell ausführe, dann funktioniert dieses Makro auch.
Nun möchte ich dieses Makro aber durch Click auf einen Knopf im Excel-Arbeitsblatt (Befehlsschaltfläche bzw. CommandButton) ausführen. Wenn ich aber so einen Knopf erstelle und diesen Code im Visual-Basic-Editor dem CommandButton zuweise:
Private Sub CommandButton1_Click()
Range("B5:B10").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("C5").Select !!!
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
End Sub
dann bleibt beim Click auf den Knopf, an der mit !!! gekennzeichneten Stelle (gelb markiert), mit folgender Fehlermeldung hängen:
"Laufzeitfehler '1004': Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden."
Warum funktioniert das nicht? Im Prinzip möchte ich doch nur dass er das, was ich vorher mit dem Recorder aufgenommen habe, beim Knopfdruck ausführt.
Vielen Dank im Voraus!
Gruß Thomas