vielen Dank für eure Hilfe Peter
Wert = ActiveCell.Name.Name
Gruß Hajo
versuch's mal so:
Gruß
Martin Beck
Den Laufzeitfehler, falls kein Zellname vergeben ist, muß ich mit OnError goto abfangen, oder kann man ihn auch im Vorfeld vermeiden? Gruß Peter
oder On Error resume Next
Gruß Hajo
Zellname = ActiveCell.Name.Name das war's doch ;o)
dennoch vielen Dank Gruß PT
PS: dieses Forum ist doch echt Klasse...
Gruß PT
Hajos Code funktioniert, wenn sich der Name nur auf die aktive Zelle bezieht. Bezieht sich der Name auf einen Bereich, der die aktive Zelle einschließt, erhalte ich den Laufzeitfehler 1004. Mein Code liefert auch in diesem Fall das zutreffende Ergebnis.
Gruß
Martin Beck
On Error Resume Next '(kein Zellname bringt Err.Number = 1004)
Zellname = ActiveCell.Name.Name
If Err.Number = 0 Then
MsgBox ("Der Name der aktuellen Zelle ist : " & Zellname)
Else
MsgBox ("Diese Zelle hat keinen Namen")
End If
Hintergrund: Ich möchte mir durch temporäre Namensvergabe die aktive Zelle markieren um sie später blitzschnell wieder anzufahren. Sehr nützlich beim Durchforsten von langen Listen..
;o) besten Dank noch einmal für Deine Antwort