Mittels Excel VBA den Namen eines Sheets suchen

Public Function Suche_SheetName(SText)
'
'Suchet nach SText in den Sheets
'
    Dim bln As Boolean
    Dim firstAddress
    Dim ws_Find As Worksheet
    Dim Zelle As Range
    Dim lngZ, ZCount, Tcount, SCount As Long
    Tcount = 0

For Each ws_Find In Worksheets
    Tcount = Tcount + 1
    If ws_Find.Name <> "Import" Then
        With ws_Find.UsedRange
            Set Zelle = .Find(SText, LookIn:=xlValues)
            If Not Zelle Is Nothing Then
                firstAddress = Zelle.Address
                bln = True
                Sheets(Tcount).Select
                Suche_SheetName = ActiveWorkbook.ActiveSheet.Name
            End If
        End With
    End If
Next

Mit dieser Funktion , die man über eine Sub-Routine aufruft und den Parameter SText übergibt, wodurch man die Tabellen danach durchsucht und dann dort der richtige Sheet geöffnet wird.

Share

You may also like...

Schreibe einen Kommentar

Diese Website verwendet Akismet, um Spam zu reduzieren. Erfahre mehr darüber, wie deine Kommentardaten verarbeitet werden.