Spalten über Makro ein- ausblenden
21.06.2006 13:31:09
Werner
Für eine Kalkulation habe ich eine Datei in die Tabellenblätter :
Datenstammblatt (Tabellenblatt1)
Verpackung 1 (Tabellenblatt2)
Verpackung 2 (Tabellenblatt3)
Fracht 1 (Tabellenblatt4)
Fracht 2 (Tabellenblatt5)
EDV (Tabellenblatt6)
EDL (Tabellenblatt7)
Kapitalbindung (Tabellenblatt
Gemeinkosten (Tabellenblatt 9)
Zusammenfassung (Tabellenblatt 10) untergliedert.
Im Datenstammblatt (Tabellenblatt 1) habe ich bereits ein Makro programmiert, welches wunderbar funktionert. Mein Ziel ist es jedoch, mit einem Click auf den CommandButton im Datenstammblatt (Tabellenblatt 1), auch die Kalkulationsspalten ( 1 bis 15) der übrigen Tabellenblätter beliebig simultan ein- oder auszublenden (wenn auf dem Datenstammblatt 4 Spalten eingeblendet werden, so erfolgt die Einblendung von 4 Spalten auch auf den anderen Kalkulationssheets der Datei).
Zudem beginnen die Kalkulationsspalten (1 bis 15) im Datenstammblatt mit der Spalte L.
In den übrigen Tabellenblättern beginnen die Kalkulationsspalten (1 bis 15) jeweils mit der Spalte B.
Anbei das Makro für das Datenstammblatt = (Tabellenblatt 1)
Private Sub CommandButton1_Click()
Static loanAmt
loanAmt = Application.InputBox _
(Prompt:="Nummer des letzten anzuzeigenden Szenarios (1 bis 15)", _
Default:=loanAmt)
ActiveSheet.Protect Password:="hallo", DrawingObjects:=True, Contents:=True, Scenarios:=True
'----Spalten Ein/Ausblenden----
If loanAmt >= 0 Then
ActiveSheet.Unprotect Password:="hallo"
Columns("k:z").Select
Selection.EntireColumn.Hidden = False
Dim loanAmtTemp As Variant
loanAmtTemp = loanAmt + 11
If loanAmtTemp < 26 Then
MsgBox "Die Szenarien in Spalten " _
& loanAmt + 1 & " bis 15 werden ausgeblendet!"
ActiveSheet.Unprotect Password:="hallo"
For loanAmtTemp = loanAmt + 12 To 27
Columns(loanAmtTemp).Select
Selection.EntireColumn.Hidden = True
Next loanAmtTemp
Else
End If
Range("a1").Select
Else
End If
ActiveSheet.Protect Password:="hallo", DrawingObjects:=True, Contents:=True, Scenarios:=True
'----Ende Spalten Ein/Ausblenden----
'MsgBox "Monthly payment is " & Format (loanAmt, "Currency")
End Sub