Worksheet auswählen
09.01.2007 14:41:54
Lorenz
Wie kann man Tabellen nicht mit TabellennameSheets("meinBlatt"), sondern mit Tabellenbezeichnung Tabelle16...Tabelle19... Tabelle36 die vom Programm vergeben wurde (Name) ansteuern.
Die Blätter stehen nicht am Anfang, sonder bunt gemischt in der Arbeitsmappe!
Mittels angefügten Code funkts nicht!
CommandButton aus UserForm
Sub BlattHerWeg()
Dim i As Integer
For i = 16 To 28
With Worksheets(Tabelle & i)
.Visible = Not .Visible
If .Visible = True Then
.Select
End If
End With
Next
Unload Me
End Sub
Für Tipps Danke ich im Voraus
Lorenz