Fehlermeldung bei Kopier-Makro

Computer: Software & Programmierung Visual Basic
#1

Hallo Leute,

ich habe mit der Funktion „Makro aufzeichnen“ ein Makro aufgenommen, mitdem ein Zellenbereich von einem Excelblatt in ein anderes Blatt kopiert wird. Führe ich das Makro einzeln aus funktioniert auch noch alles. Wenn ich den Makro-Code jedoch kopiere und in einen Button integriere bekomme ich die Fehlermeldung:

Laufzeitfehler ‚1004‘:
Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden.

Der Code lautet:

Sub Makro27()
’
’ Makro27 Makro
’

’
Sheets(„Ber. Konz. 100%“).Select
Range(„D4:E4“).Select
Selection.copy
Sheets(„Tabelle3“).Select
Range(„D4:E4“).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range(„C4“).Select
End Sub

Führe ich die Aktion nur innerhalb eines Arbeitsblattes durch (also copy and paste innerhalb eines Blattes) funktioniert alles.

Was kann ich tun?

Danke,

Niob

#2

Laufzeitfehler ‚1004‘:
Die Select-Methode des Range-Objektes konnte nicht ausgeführt
werden.

Hallo Niob,

Sub Makro27()
Sheets(„Ber. Konz. 100%“).Range(„D4:E4“).Copy
Sheets(„Tabelle3“).Range(„D4:E4“).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Application.Goto Sheets(„Tabelle3“).Range(„C4“)
End Sub

Gruß
Reinhard

#3

Vielen Dank erst einmal.
Es funktioniert. An welcher Stelle lag denn der Fehler? Auf den ersten Blick sehen die beiden Codes gleich aus.

Cu,
Niob

#4

Es funktioniert. An welcher Stelle lag denn der Fehler? Auf
den ersten Blick sehen die beiden Codes gleich aus.

Hallo Niob,

Select sollte man vermeiden, zu 99% unnötig.

Ich habe in allen drei Blätter eine Schaltfläche aus „Formular“ eingebaut und allen das Makro zugewiesen.
Egal in welchem Blatt ich das Makro starte, es funktioniert.

Bei dir muß noch was anderes im Spiel sein.

Gruß
Reinhard