wie kann ich alle Spalten ausblenden, bei denen die Zeile 2 leer ist?
z.B. H2, I2, K2 usw
Danke vorab
TOM
Sub spaltenausblenden()
lSpa = ActiveSheet.UsedRange.Columns.Count
For i = 1 To lSpa
If Cells(2, i) = "" Then
Columns(i).EntireColumn.Hidden = True
End If
Next i
End Sub
Viel Erfolg
Holger
Sub ausbl()
For i = 1 To 256
If Cells(2, i) = "" Then
Columns(i).EntireColumn.Hidden = True
End If
Next i
End Sub
gruß selli
Sub ausbl()
Dim i As Integer
For i = 1 To 256
If len(Cells(2, i)) = 0 Then
Columns(i).Hidden = True
End If
Next
End Sub
mfg Kurt