16.03.2017, 23:29
Jedes Mal, wenn ich im VBA mit F5 mein Programm laufen lasse,
werden alle Blätter ausgeblendet.
Das soll später auch so sein, aber nicht während meiner Testphasen.
Ich habe alle Zeilen mit einem ' auf Remark gesetzt.
Nach jedem Teststart, muss ich anschließend in die Optionen gehen
und die Blattregister wieder manuell durch das Häkchen setzen einblenden.
Weiß jemand warum das nicht funktioniert?
Der Code wird korrekt fehlerfrei durchlaufen...Und vor allem, das hat mal funktioniert....
Hier der Programmcode...
werden alle Blätter ausgeblendet.
Das soll später auch so sein, aber nicht während meiner Testphasen.
Ich habe alle Zeilen mit einem ' auf Remark gesetzt.
Nach jedem Teststart, muss ich anschließend in die Optionen gehen
und die Blattregister wieder manuell durch das Häkchen setzen einblenden.
Weiß jemand warum das nicht funktioniert?
Der Code wird korrekt fehlerfrei durchlaufen...Und vor allem, das hat mal funktioniert....
Hier der Programmcode...
Code:
For Each wks In strQuelle.Worksheets
Select Case wks.Name
Case "Start"
Sheets(wks.Name).Visible = True
Sheets(wks.Name).Protect "test", userinterfaceonly:=True
Sheets(wks.Name).Select
Case "order"
Sheets(wks.Name).Visible = True
'Sheets(wks.Name).Visible = xlVeryHidden
Sheets(wks.Name).Protect "test", userinterfaceonly:=True
Case "Texte"
'Sheets(wks.Name).Visible = xlVeryHidden
Sheets(wks.Name).Visible = True
Case "Auswahl"
merker = True 'erstmal ALLE blätter durchlaufen und nach "Auswahl" suchen
Sheets("Auswahl").Cells.ClearContents
'Sheets(wks.Name).Visible = xlVeryHidden
Sheets(wks.Name).Visible = True
Case "Bestellung_Vorlage"
Sheets(wks.Name).Protect "test", userinterfaceonly:=True
Sheets(wks.Name).Visible = xlVeryHidden
Case "Hardcopyprint"
Sheets(wks.Name).Protect "test", userinterfaceonly:=True
Sheets(wks.Name).Visible = True
'Sheets(wks.Name).Visible = xlVeryHidden
Case Else
'Sheets(wks.Name).Visible = xlVeryHidden 'Alle Blätter ausblenden
Sheets(wks.Name).Visible = True 'Alle Blätter einblenden
End Select
Next wks