Blätter einfügen+alle auf einmal einblenden
16.03.2005 09:56:16
ömer
Sub Worksheet_Activate()
For i = 1 To Sheets.Count
Sheets(i).Name = "Pos" & CStr(i + 0) '1, 2, 3....
Next i
End Sub
Jetzt bitte ich Hilfe um
1- 500 von diesen Blaääter habe ich ausblenden lasse. Einblenden geht nur
mit einzelnen Blätter. Wie kann ich alle ausgeblendete Blätter auf einmal
wieder einblenden ( Oder bestimmte Blätter )
2- Diese 1000 Blätter habe ich als Registerfarbe rot gegeben.
Jetzt möchte ich hinter jedem "Pos" ein Blatt mit "Rech1" und "Gutsch1"
erstellen und zu diesen neue Blätter andere Farben geben, also:
Pos1(rot),Rech1(grün),Gutsch1(gelb),Pos2(rot),Rech2(grün),Gutsch2(gelb),
Pos3(rot),Rech3(grün),Gutsch3(gelb),usw.....
ist es machbar oder spinne ich
mfg
ömer