Fehler: Name einer Zelle auslesen
12.10.2005 10:11:49
MB
ich möchte vor einer "Aktion" den Namen der aktiven Zelle auslesen, wenn kein Name vergeben ist, soll eine MsgBox kommen. Jedoch bricht der Code bereits beim einlesen des Namen ab, wenn dieser leer ist. Was mache ich falsch?
Wenn ein Name vergeben ist, läuft der Code durch.
Dim Mldg, Voreinstellung
Dim x, y As Variant
Dim wksRep As Worksheet
Dim wksZR As Worksheet
Set wksRep = Worksheets("Report")
Set wksZR = Worksheets("Zeitreihe")
x = ActiveCell.Name.Name 'an dieser Stelle erscheint Laufzeitfehler 1004, Anwendungs- oder objektorientierter Fehler.
If x = "" Then
Mdlg = "Wählen sie erst eine Kennzahl aus"
MsgBox Mdlg, vbOKOnly, "Fehlende Auswahl"
Exit Sub
End If