Vba Excel Tabellenblatt nach Zellennamen durchsuchen

Hallo,

ich habe ein Problem bei meinem VBA-Script.
Und zwar möchte ich ein bestimmtes Tabellenblatt durchsuchen ob ein bestimmter Zellenname vorhanden ist.

Sub Zellenname_suchen()

Dim Tabelle As String 'Tabellenblatt Name  
Dim STG(0 To 100, 0 To 2) As String 'Array  
Dim iSTG, jSTG As Integer 'Zähler  

'Array einlesen  
For iSTG = 3 To 100                        'Startadresse Zeile 4...54 --> Zeile 10 = Adresse 11  
    For jSTG = 0 To 1                       'Startadresse Spalte A..C --> Spalte A = Adresse 0  
        STG(iSTG, jSTG) = Sheets("Tabelle").Cells(iSTG + 1, jSTG + 1).Value  
    Next jSTG

    If Range(STG(iSTG, 1) & "_SWnummer").Value = STG(iSTG, 1) & "_SWnummer" Then  
        '##############  
        ' Code  
        '##############  
    End If
Next iSTG

End Sub

Leider funktioniert der Code nicht und gibt immer einen Fehler aus.
Das Problem liegt irgendwo in Zeile 13.

Laufzeitfehler '1004':  
Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen  

Auch die explizierte Definition des Tabellenblattes funktioniert nicht

    If Sheets("Tabelle").Range(STG(iSTG, 1) & "_SWnummer").Value = STG(iSTG, 1) & "_SWnummer" Then  

Laufzeitfehler '1004':  
Anwendungs- oder objektdefinierter Fehler

Wäre für einen Tipp dankbar
Gruß Feder

Please also mark the comments that contributed to the solution of the article

Content-Key: 246614

Url: https://administrator.de/contentid/246614

Printed on: April 19, 2024 at 11:04 o'clock

5 Comments

Latest comment

Hallo Feder,
suchst du nach Zellnamen also dem Alias den man für einen Zellbereich auf dem Tab Formeln > Namensmanager festlegen kann, oder nur nach dem Inhalt bzw. Wert einer Zelle ?

Du gibst nämlich in Zeile 13 als Range keine Zelladressierung an sondern einen String-Namen für einen Bereich, und wenn dieser nicht existiert läuft das Script natürlich in eine Exception.
Aber erkläre doch mal was du wo suchst, denn dein Ansatz ist viel zu kompliziert gedacht für diese Aufgabe.
Mit der Range.Find Methode ist das ganze wesentlich schneller und effektiver erledigt.

Grüße Uwe

Ja genau, ich suche den Zellennamen - nicht den Inhalt der Zelle!
Und den suche ich in einem ausgewähltem Tabellenblatt (also in allen Spalten des Tabellenblattes XY.

Das Ergebnis soll dann wie folgt aussehen:
Zellenname in ausgewähltem Tabellenblatt vorhanden (egal wo) = TRUE
Zellenname in ausgewähltem Tabellenblatt nicht vorhanden = FALSE

Sub FindRangeName()
    Dim ws As Worksheet, cell As Range, found As Boolean, objDic As Object, n As Name
    'Bestimmtes Worksheet verwenden  
    Set ws = Worksheets("Tabelle")  
    'Dictionary Objekt erstellen  
    Set objDic = CreateObject("Scripting.Dictionary")  
    'Alle Bereichsnamen in das Dictionary laden  
    For Each n In ActiveWorkbook.Names
        objDic.Add n.Name, ""  
    Next
    'Suche im belegten Bereich des Worksheets nach einem Bereichsnamen der sich aus dem Zellwert und dem String "_SWNummer" zusammensetzt  
    For Each cell In ws.UsedRange
        ' wenn der Bereichsname existiert verlasse die Schleife  
        If objDic.Exists(cell.Value & "_SWNummer") Then  
            found = True
            Exit For
        End If
    Next
    If found Then
        MsgBox "Gefunden"           'Gefunden  
    Else
        MsgBox "Nicht gefunden"        'nicht gefunden  
    End If
    Set objDic = Nothing
End Sub

Hallo colinardo,

danke für deinen Lösungsvorschlag.

Ich habe derzeit eine andere Variante als Lösung gefunden

 
Sub Zellenname_suchen()

Dim Tabelle As String 'Tabellenblatt Name  
Dim STG(0 To 100, 0 To 2) As String 'Array  
Dim iSTG, jSTG As Integer 'Zähler  
Dim STGexist 'mit Range-Informationen  

'Array einlesen  
For iSTG = 3 To 100                        'Startadresse Zeile 4...54 --> Zeile 10 = Adresse 11  
    For jSTG = 0 To 1                       'Startadresse Spalte A..C --> Spalte A = Adresse 0  
        STG(iSTG, jSTG) = Sheets("Tabelle").Cells(iSTG + 1, jSTG + 1).Value  
    Next jSTG

    On Error Resume Next
    STGexist = Names(STG(iSTG, 1) & "_SWnummer")  
            
    If Not STGexist = "" Then  
        '##############  
        ' Code  
        '##############  
    End If
Next iSTG

End Sub

Trotzdem danke für deine Lösung - werde sie bei Gelegenheit auch mal testen und vielleicht auch so einbauen weil ich deine Lösung etwas eleganter finde