Spalten aus & einblenden
30.10.2005 23:17:49
Werner
habe etwas weiter unten einen Code gefunden der von Ramses kommt, Danke dafür.
Möchte jetzt aber wissen mit welchem Code ich die Spalten bzw. Zeilen wieder einblenden kann?
Zum ausblenden sieht er so aus:
Sub Hide_Empty_Columns_Rows()
Dim lr As Integer, i As Integer
lr = ActiveSheet.UsedRange.Rows.Count + 1
Rows(lr & ":" & 65536).Hidden = True
For i = lr - 1 To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
Rows(i).Hidden = True
End If
Next i
For i = 256 To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(i)) = 0 Then
Columns(i).Hidden = True
End If
Next i
End Sub
Danke an alle die mir helfen, Grüsse Werner