Sub ausblenden()
For i = 1 To 15
If Sheets("Tabelle1").Cells(Rows.Count, i).End(xlUp).Row < 2 Then
If Sheets("Tabelle1").Cells(2, i) = "" Then
Sheets("Tabelle1").Columns(i).Hidden = True
End If
Next
End Sub
leere Spalten automatisch ausblenden
bender70 21.03.2009 - 316 Hits - 4 Antworten
Excel Spalten ausblenden
Mese 18.11.2007 - 420 Hits - 4 Antworten
Spalten ausblenden
gplus 25.02.2008 - 201 Hits - 3 Antworten
Spalten ausblenden
jockel01 11.09.2008 - 67 Hits - 2 Antworten
Excel Spalten ausblenden
michael87 27.02.2009 - 1311 Hits - 2 Antworten