Microsoft Excel

Herbers Excel/VBA-Archiv

Tabellen mit gleichen Anfangsnamen

Betrifft: Tabellen mit gleichen Anfangsnamen von: Mathe
Geschrieben am: 23.10.2020 10:29:46

Hallo liebe VBA-Freunde

Ich habe eine Excel-Datei die viele Tabellen (Register) hat. Die Namen der Tabellen wurden in VBA benannt. Es gibt Tabellen die mit MASTer anfangen (MASTer_01, MASTer_02,...) und welche die mit BOXer anfangen (BOXer_01, BOXer_02,...). Ich möchte nun einen Code der mir alle Tabellen mit MASTer bzw BOXer anzeigt. Der Code sollte in etwa so aussehen:

Sub TabellensichtbarkeitMASTer()
Dim ws As Worksheet

  For Each ws In ThisWorkbook.Worksheets(MASTer*)
    ws.Visible = True
    ws.Unprotect Password:=psw
  Next ws

End Sub
Leider funktioniert der Code nicht. Hat jemand eine Lösung für mich?

Gruss
Mathe

Betrifft: AW: Tabellen mit gleichen Anfangsnamen
von: Herbert_Grom
Geschrieben am: 23.10.2020 10:35:23

Hallo Mathe,

wenn ich dich recht verstanden habe, dann so:
If left(ws.Name, 6) = "MASTer" then
Servus

Betrifft: AW: Tabellen mit gleichen Anfangsnamen
von: Herbert_Grom
Geschrieben am: 23.10.2020 10:42:56

Oder im Gesamten:
Sub TabellensichtbarkeitMASTer()
   Dim ws As Worksheet
   
   For Each ws In ThisWorkbook.Worksheets
      If Left(ws.Name, 6) = "MASTer" Or Left(ws.Name, 5) = "BOXer" Then
         ws.Visible = True
         ws.Unprotect Password:=psw
      End If
   Next ws
End Sub
Servus

Betrifft: AW: Tabellen mit gleichen Anfangsnamen
von: Herbert_Grom
Geschrieben am: 23.10.2020 10:46:17

Uwe's Vorschlag ist professioneller und deshald sein Vorschlag für beide Suchbegriffe:
Sub TabellensichtbarkeitMASTer()
    Dim ws As Worksheet, Psw As String
    
    Psw = "ABC"
    For Each ws In ThisWorkbook.Sheets
        If InStr(ws.Name, "MASTer") > 0 Or InStr(ws.Name, "BOXer") > 0 Then
            ws.Visible = True
            ws.Unprotect Password:=Psw
        End If
    Next ws
End Sub
Servus

Betrifft: AW: Tabellen mit gleichen Anfangsnamen
von: Mathe
Geschrieben am: 23.10.2020 10:52:58

Vielen Dank für die rasche Antwort :-).
Den Code hab ich nach Deinem Vorschlag ergänzt und er funktioniert.

Dankeschön und einen schönen Tag :-)

Betrifft: AW: Tabellen mit gleichen Anfangsnamen
von: UweD
Geschrieben am: 23.10.2020 10:40:47

HAllo


versuch es mal so
Sub TabellensichtbarkeitMASTer()
    Dim ws As Worksheet, Psw As String
    
    Psw = "ABC"
    For Each ws In ThisWorkbook.Sheets
        If InStr(ws.Name, "MASTer") > 0 Then
            ws.Visible = True
            ws.Unprotect Password:=Psw
        End If
    Next ws

End Sub

LG UweD

Betrifft: AW: Tabellen mit gleichen Anfangsnamen
von: Mathe
Geschrieben am: 23.10.2020 11:00:04

Hallo Uwe und auch vielen Dank für Deine Unterstützung.
Ich denke auch das der Vorschlag von Uwe besser ist. Zwar sehe ich in absehbarer Zeit keine Änderung des Namen aber mir gefällt nicht das ich auf 6 bzw 5 Zeichen angewiesen bin.

Betrifft: AW: Tabellen mit gleichen Anfangsnamen
von: Herbert_Grom
Geschrieben am: 23.10.2020 11:11:02

Sag ich doch! ;o)=)

Servus

Beiträge aus dem Excel-Forum zum Thema "Tabellen mit gleichen Anfangsnamen"