Clever-Excel-Forum

Den Namen eines Tabellenblatts auslesen

Code:
Sub Tabellenblattname1()

    MsgBox ActiveSheet.Name

End Sub

Code:
Sub Tabellenblattname2()

    MsgBox ActiveSheet.CodeName

End Sub

Abfragen ob ein Tabellenblatt vorhanden ist

Code:
Sub Tabellenname_abfragen()

Dim i As Integer

For i = 1 To Worksheets.Count

    If Worksheets(i).Name = "Break" Then

        Worksheets(i).Activate

        MsgBox Worksheets(i).Name & " ist vorhanden"

    End If

Next

End Sub

Code:
Sub Tabellenname_abfragen2()

Dim WS As Worksheet

For Each WS In Worksheets

    If WS.Name = "Break" Then

        WS.Activate

        MsgBox WS.Name & " ist vorhanden"

    End If

Next WS

End Sub

Existiert Tabellenblatt? Wenn nicht, dann anlegen

Code:
Sub Tabelle_mit_Name_anlegen()

Dim WS As Worksheet

Dim Hinweis As Byte

For Each WS In Worksheets

    If WS.Name = "Break" Then

        WS.Activate

        MsgBox WS.Name & " ist vorhanden"

        Exit Sub

    End If

Next WS

Hinweis = MsgBox("Tabellenblatt existiert nicht. Soll es angelegt werden?", 1, "Hinweis")

If Hinweis = 1 Then

    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Break"

End If

End Sub

Mehrere Tabellenblätter gleichzeitig einfügen

Code:
Sub Blaetter_hinzufuegen()

    Dim i As Integer

    i = InputBox("Wie viele Blätter sollen hinzugefügt werden?")

    Do Until i < 1

        Sheets.Add after:=Sheets(3)

        ActiveSheet.Name = "Name " & i

        i = i - 1

    Loop

End Sub

Ein Tabellenblatt soll gelöscht werden

Code:
Sub Tabellenblatt_entfernen()

Dim WS As Worksheet

Dim Hinweis As Byte

Dim StrName As String

StrName = InputBox("Geben Sie den Tabellennamen ein, welchen Sie löschen wollen." _

& Chr(13) & "Achten Sie auf Gross- und Kleinschreibung!")

For Each WS In Worksheets

    If WS.Name = StrName Then

        Hinweis = MsgBox("Möchten Sie das Tabellenblatt " & StrName _

        & " wirklich löschen?", 1, "Achtung")

        If Hinweis = 1 Then

            Application.DisplayAlerts = False

            Worksheets(StrName).Delete

            Application.DisplayAlerts = True

        Else

            Exit Sub

        End If

    End If

Next WS

End Sub

Bei der Eingabe des Tabellenblattnamens muss auf Gross- und Kleinschreibung geachtet werden. Sollte man das Abschalten wollen, so muss oben im Makroeditor "Option Compare Text" stehen.

Tabellenblätter auf verschiedene Weise aus- und einblenden.

a) Einblenden eines ausgeblendeten Tabellenblattes per VBA

Code:
Sub Tabellenblatt_einblenden()

Worksheets("Break").Visible = True

End Sub

b) Einfaches Ausblenden eines Tabellenblattes, welches über „Format“ eingeblendet werden kann.

Code:
Sub Tabellenblatt_ausblenden_1()

Worksheets("Break").Visible = False

End Sub

c) Im Grunde wie bei b)

Code:
Sub Tabellenblatt_ausblenden_2()

Worksheets("Break").Visible = xlHidden

End Sub

d) Ausblenden eines Tabellenblattes, welches nur per VBA wieder eingeblendet werden kann.

Code:
Sub Tabellenblatt_ausblenden_3()

Worksheets("Break").Visible = xlVeryHidden

End Sub

Ist das Tabellenblatt komplett leer?

Code:
Sub Tabellenblatt_leer()

Dim objwks As Worksheet

Set objwks = ActiveWorkbook.Worksheets(1)

With objwks

    If Application.WorksheetFunction.CountA(.Cells) > 0 Then

        MsgBox ("beschrieben")

    Else

        MsgBox ("leere Tabelle erwischt")

    End If

End With

End Sub

Blattschutz setzen und aufheben

Code:
Sub Blattschutz_hin()

ActiveSheet.Protect Password:="Dein Passwort"

End Sub

Sub Blattschutz_weg()

ActiveSheet.Unprotect Password:="Dein Passwort"

End Sub

marose67