ich möchte mit meinem Makro (siehe unten) ein paar Zellen verändern. Starte ich ihn über Extras-Makros-Makros-Ausführen (bzw. Ctrl. e), funktioniert er einwandfrei, starte ich ihn über eine Befehlsschaltfläche, so erhalte ich beim Range("H1").Select den Laufzeitfehler 1004: Die Select Methode des Range-Objektes konnte nicht ausgeführt werden.
Warum????
Viele Grüße,
Brigitte
Code:
Private Sub Datum_Click()
Dim Datum As String
Sheets("VIST-Dep").Select
Range("H1").Select ' hier kommt die Fehlermeldung
Datum = ActiveCell.Value
Sheets("VIST-Dep-Graph").Select
ActiveSheet.Shapes("Text Box 3").Select
Selection.Characters.Text = Datum
End Sub