VBA Worksheet aussuchen und aktivieren

Bild

Betrifft: VBA Worksheet aussuchen und aktivieren von: Drazen
Geschrieben am: 23.02.2005 14:25:04

Hallo,

ich versuche in einer Mappe ein bestimmtes Blatt auszuwählen mit folgendem Code:


Private Sub SIX()
    
    Dim ws As Worksheet
    For Each ws In Worksheets
    If ws.Name = "T " & lblFirma Then
    GoTo Weiter:
    Else
    Worksheets.Add
    With ActiveSheet
    .Name = "T " & lblFirma
    End With
    End If
    Next ws
Weiter:
    ws.Activate
    Exit Sub
End Sub


Irgendwie hängt der Code beim "GoTo Weiter" denke ich, denn wenn die Tabelle dann erstellt wurde steigt er nicht aus sondern versucht ein neues Blatt einzufügen und diesem wieder den selben Namen zu vergeben und gibt somit einen LaufzeitFehler zurück, wo ist mein Fehler im Denken??

Grüsse
Drazen
Bild


Betrifft: AW: VBA Worksheet aussuchen und aktivieren von: Fred
Geschrieben am: 23.02.2005 14:37:06

Quick & dirty:


Sub SIX()
Dim ws As Worksheet
On Error GoTo ERRH
Sheets("T " & lblFirma).Activate
Exit Sub
ERRH:
Set ws = Worksheets.Add
ws.Name = "T " & lblFirma
End Sub


Fred


Bild


Betrifft: AW: VBA Worksheet aussuchen und aktivieren von: Drazen
Geschrieben am: 23.02.2005 14:44:21

Hallo,

quick und dirty aber es funzt wie verrückt, vielen Dank

Grüsse
Drazen


Bild


Betrifft: AW: VBA Worksheet aussuchen und aktivieren von: WernerB.
Geschrieben am: 23.02.2005 14:44:29

Hallo Drazen,

versuche es mal damit (mal ungetestet):

Private Sub SIX()
Dim strSheet As String, lblFirma As String
    lblFirma = "Drazen"
    strSheet = "T" & lblFirma
    On Error Resume Next
    Sheets(strSheet).Select
    If Err.Number <> 0 Then
      Worksheets.Add
      ActiveSheet.Name = "T " & lblFirma
    On Error GoTo 0
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !


Bild


Betrifft: AW: VBA Worksheet aussuchen und aktivieren von: Drazen
Geschrieben am: 23.02.2005 14:47:27

Hi Werner,

ja aber das lbl ist variabel, habe es aber schon geklärt, vielen Dank trotzdem für den Versuch.

Grüsse
Drazen


 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA Worksheet aussuchen und aktivieren"