Abfragen, ob eine Zelle mit einem bestimmten Namen in VBA existiert
Schritt-für-Schritt-Anleitung
Um in VBA zu prüfen, ob eine Zelle mit einem bestimmten Namen existiert, kannst Du folgenden Code verwenden:
Sub Namen_Suchen()
Dim ObBereich As Object
Dim StName As String
StName = InputBox("Bitte gesuchten Namen eingeben!!")
For Each ObBereich In ActiveWorkbook.Names
If ObBereich.Name = StName Then
MsgBox "Name schon vorhanden"
Exit Sub
End If
Next
MsgBox "Name nicht gefunden"
End Sub
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu starten.
- Füge ein neues Modul hinzu (
Einfügen > Modul).
- Kopiere den obigen Code in das Modul.
- Speichere das Modul und schließe den VBA-Editor.
- Führe das Makro
Namen_Suchen aus, um den Namen zu überprüfen.
Häufige Fehler und Lösungen
-
Fehler: "Name nicht gefunden" wird angezeigt, auch wenn der Name existiert.
Lösung: Stelle sicher, dass Du den genauen Namen eingibst, da die Suche fallunempfindlich ist.
-
Fehler: Das Makro wird nicht ausgeführt.
Lösung: Prüfe, ob Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center und aktiviere die Makros.
Alternative Methoden
Eine einfache Alternative zur Prüfung, ob eine Zelle mit einem bestimmten Namen existiert, ist die Verwendung von IsObject:
Sub CheckName()
On Error Resume Next
MsgBox IsObject(Range("TEST"))
On Error GoTo 0
End Sub
Diese Methode gibt True zurück, wenn der Name existiert, und False, wenn nicht.
Praktische Beispiele
- Überprüfung eines benannten Bereichs:
Wenn Du einen Bereich mit dem Namen "Daten" hast, kannst Du diesen Namen so überprüfen:
Sub CheckNamedRange()
If Not IsEmpty(Range("Daten")) Then
MsgBox "Der benannte Bereich 'Daten' existiert und ist nicht leer."
Else
MsgBox "Der benannte Bereich 'Daten' existiert, ist aber leer."
End If
End Sub
- Eingabeaufforderung für verschiedene Namen:
Du kannst das Makro erweitern, um mehrere Namen nacheinander zu prüfen:
Sub NamenPruefen()
Dim StName As String
Do
StName = InputBox("Bitte gesuchten Namen eingeben (oder abbrechen):")
If StName = "" Then Exit Sub
If Not IsObject(Range(StName)) Then
MsgBox "Name '" & StName & "' nicht gefunden."
Else
MsgBox "Name '" & StName & "' existiert."
End If
Loop
End Sub
Tipps für Profis
- Nutze
On Error Resume Next, um Fehler bei der Namenssuche elegant zu handhaben.
- Verwende
ActiveWorkbook.Names, um alle benannten Bereiche im aktuellen Workbook zu durchsuchen.
- Denke daran, den Code klar zu dokumentieren, um die Wartung zu erleichtern, besonders wenn Du in einem Team arbeitest.
FAQ: Häufige Fragen
1. Wie kann ich den Namen einer Zelle ändern?
Um den Namen einer Zelle zu ändern, wähle die Zelle aus, gehe auf die Namensbox (links neben der Formelleiste) und gib den neuen Namen ein.
2. Ist der Name einer Zelle case-sensitive?
Nein, die Namen in Excel sind nicht case-sensitive. "Test" und "test" werden als identisch betrachtet.