VBA Worksheet aussuchen und aktivieren
23.02.2005 14:25:04
Drazen
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