Spalte ausblenden wenn ab Zeile 3 kein Eintrag
20.06.2006 16:05:00
Mikey
ich habe im Archiv folgenden Code gefunden der auch super funktioniert, wenn die Spalten keine Eintrag haben.
Sub LeereSpaltenAus()
Dim iCounter As Integer
Application.ScreenUpdating = False
For iCounter = 1 To 16
If WorksheetFunction.CountA(Columns(iCounter)) = 0 Then
Columns(iCounter).Hidden = True
End If
Next iCounter
Application.ScreenUpdating = False
End Sub
Ich habe aber folgendes Problem, ich habe in der Zeile 1 und 2 der jeweiligen Spalten immer etwas stehen (Text). Jetzt sollen die Spalten ausgeblendet werden, wenn ab der 3. Zeile kein Eintrag oder eine 0.00 eingetragen ist.
Kann mir jemand sagen wie das Makro aussehen muss?
Danke für eure Hilfe.
Gruß
Mikey