Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


[Excel] Worksheet
#1
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

Ich arbeite mit Excel 2003!

Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.


?mage
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  [Excel] Worksheet vorhanden pruefen Beverly 1 2.680 13.04.2014, 06:49
Letzter Beitrag: marose67

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste