Office: Überprüfen ob Tabellenballt mit Namen aus Zelle vorhanden ist

Da ich VBA noch nicht so lange benutze komme ich doch gerade an meine Grenzen.
Ich möchte überprüfen ob es ein Bestimmtes Tabellenblatt gibt im Tabellenblatt "GK" in P1 steht der zu überprüfende Namen.
Wenn das Tabellenblatt vorhanden ist soll es ausgewählt werden.

Wenn nicht möchte ich gerne, dass eine Kopie des Tabellenplatzes "Vorlage" an das ende neu erstellt wird und dieses dann mit dem Namen aus Tabellenblatt "GK" P1 beschriftet wird und diese dann ausgewählt wird.

In P1 steht die aktuelle Jahr Zahl als Text

Schon im voraus vielen Dank für eure Hilfe

 

feststellen, ob Worksheet vorhanden ist
hier ein Beispiel, welches Du relativ einfach entsprechend abändern kannst:

Code:

Option Explicit


Sub TabAuswahl()

    Dim BoVorhanden As Boolean

    Dim WsTabelle As Worksheet

    For Each WsTabelle In Worksheets
        If WsTabelle.Name = "Tabelle1" Then
            BoVorhanden = True
            Exit For
        End If
    Next WsTabelle
    If BoVorhanden Then
        'vorhanden
    Else
        'nicht vorhanden
    End If
End Sub

 

Hallo Gutschi,

auch an dich der Hinweis, dass gleichartige Daten auf ein Tabellenblatt gehören.

 

Moin!
Natürlich bin ich ganz bei Klaus-Dieter!
Aber da es ja nur eine kleine Übung ist und ich so langsam bei VBA einroste (nutze fast ausschließlich die neuen Funktionen):

Code:

Sub Jahresblatt()
Dim ws As Worksheet, WsNeu$
WsNeu = Worksheets("GK").Range("P1")
For Each ws In Worksheets
  If ws.Name = WsNeu Then
    MsgBox "Blatt " & WsNeu & " bereits vorhanden!"
    Exit Sub
  End If
Next
Worksheets("Vorlage").Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = WsNeu
MsgBox "Blatt " & WsNeu & " erfolgreich erstellt!"
End Sub

Gruß Ralf

 

Hallo Ralf

Super vielen Dank der Code funktioniert super hättest Du mir noch eine Tipp wie ich ihn anstelle der Meldung dazu bringen kann dann das entsprechende Blatt auszuwählen?

Gruss André

 

Es wird ausgewählt!
Die Kopie wird automatisch zum aktiven Blatt.
Dies siehst Du auch an der Zeile:
ActiveSheet.Name = WsNeu

 

Nun ja Ralf, so ganz stimmt deine Aussage nicht. Wenn das Blatt schon existiert wird es nicht ausgewählt.
@Gutschi Wenn du noch direkt vor Exit Sub ein ws.Activate einfügst, dann wird das Blatt ausgewählt.

 

Super vielen vielen Dank für die Hilfe.