Macrocode funktioniert über Befehlsschaltfläche nicht
03.08.2024 13:59:48
Lutz Mergen
Sub Test()
Sheets("Tabelle-1").Select
ActiveSheet.Unprotect
Range("AI2").Select
Selection.Copy
Range("AI5").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("AI2").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
Der identische Code funktioiert über ein Befehlsschaltfläche nicht:
Private Sub CommandButton1_Click()
Sheets("Tabelle-1").Select
ActiveSheet.Unprotect
Range("AI2").Select
Selection.Copy
Range("AI5").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("AI2").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
Ein Testlauf, direkt in VBA ausgeführt, führt zur Fehlermeldung "Laufzeitfehler 1004 - Anwendungs- oder objektorientierter Fehler".
Führe ich das Makro über die Befehlsschaltfläche aus, lautet die Fehlermeldung "Laufzeitfehler 1004 - die Select-Methode des Range-Objektes konnte nicht ausgeführt werden". Im Debug ist folgende Zeile gelb markiert:
Private Sub CommandButton1_Click()
...
Range("AI2").Select
...
Woran liegt es, was muss ich ändern?
Danke!
Anzeige