wenn Zelle keinen Namen hat...
27.09.2004 18:38:03
Cruz
Seit Stunden such ich schon und find nix....
Mein Problem:
Tabelle1 hat mehrere Zellen, die einen Namen zugewiesen bekommen haben
Diese Zellen sollen beim Verlassen nicht leer sein
Wenn eine Zelle in dieser Tabelle ausgewählt wird, soll überprüft, ob diese einen Namen zugewiesen bekommen hat, abhängig davon soll Fehlermeldung erscheinen oder nicht.
So in etwa:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim zn As Object
For Each zn In ActiveWorkbook.Names
...wenn aktive zelle einen Namen aus der Namensauflistung hat, dann
wenn aktive zelle leer ist, dann
MsgBox("Zelle darf nicht leer sein!", vbOKOnly, "Fehler")
Ende wenn
ende wenn
next
End Sub
Wie bekomme ich raus, ob die aktive Zelle einen Namen hat oder nicht?
Ich hab schon graue Haare und die Tips aus dem Forumsarchiv lösen bei mir nur Fehlermeldungen (Beisp: if ActiveCell.Name.Name = zn.Name)
Bin dankbar fpr jede Hilfestellung
Cruz