Namen aus Zelltext generieren
16.10.2007 17:19:17
Klaus
ich bin in der Suche nicht fündig geworden. Folgendes Problem:
Ich habe eine Spalte mit ca. 60 unterschiedlichen Text-Einträgen. Wenn ich den Cursor in die erste Zelle setze
soll mir ein Makro (per Buttonklick) den "Einfügen-Namen definieren"-Dialog aufrufen und den angezeigten
Default-Wert der Zelle mit OK bestätigen, also den Namen automatisch aus dem in der Zelle
stehenden Wort generieren. Im Moment scheitere ich am ***Bezug zur aktiven Zelle***:
Sub Namen_Einfügen()
Dim nam As Variant
nam = ActiveCell.Value
ActiveWorkbook.Names.Add Name:=nam, RefersTo ***R1C1:="=Stundenplan!R18C10***"
End Sub
Für Antworten Dank im voraus
Klaus