AW: Spalten ab Spalte X ausblenden
11.02.2007 12:42:19
mumpel
Hier mal ein paar Makrolösungen. Kopiere diese in die personl.xls und Du kannst sie in allen Mappen verwenden.
Sub Spalten_Aus()
Dim Bereich As Range
On Error Resume Next
Set Bereich = Application.Inputbox _
("Bitte geben Sie die Zeilen ein, die Sie ausblenden möchten." & vbCrLf & "Beispiel:" & _
" Sie möchten die Spalten A bis D und G und K ausblenden," & _
" dann geben Sie folgendes ein: A:D;G:G;K:K", Type:=8)
Bereich.EntireColumn.Hidden = True
End Sub
Sub Spalten_Ein()
Dim Bereich As Range
On Error Resume Next
Set Bereich = Application.Inputbox _
("Bitte geben Sie die Zeilen ein, die Sie einblenden möchten." & vbCrLf & "Beispiel:" & _
" Sie möchten die Spalten A bis D und G und K einblenden," & _
" dann geben Sie folgendes ein: A:D;G:G;K:K", Type:=8)
Bereich.EntireColumn.Hidden = False
End Sub
Sub Zeilen_Aus()
Dim Bereich As Range
On Error Resume Next
Set Bereich = Application.Inputbox _
("Bitte geben Sie die Zeilen ein, die Sie ausblenden möchten." & vbCrLf & "Beispiel:" & _
" Sie möchten die Zeilen 1 bis 17 und 34 und 123 ausblenden," & _
" dann geben Sie folgendes ein: 11:17;34:34;123:123", Type:=8)
Bereich.EntireRow.Hidden = True
End Sub
Sub Zeilen_Ein()
Dim Bereich As Range
On Error Resume Next
Set Bereich = Application.Inputbox _
("Bitte geben Sie die Zeilen ein, die Sie einblenden möchten." & vbCrLf & "Beispiel:" & _
" Sie möchten die Zeilen 1 bis 17 und 34 und 123 einblenden," & _
" dann geben Sie folgendes ein: 1:17;34:34;123:123", Type:=8)
Bereich.EntireRow.Hidden = False
End Sub
Gruss Rene