02.11.2021, 22:30
(Dieser Beitrag wurde zuletzt bearbeitet: 02.11.2021, 22:31 von kurtkurt57.)
Hallo Freunde,
ich möchte ein Macro namens Proof.
Es soll die Spalten 1 bis 29 nacheinander durchgehen, und die leeren Spalten finden, sie rot einfärben und zählen, und die Zahl im meinetwegen AO1 ausgeben..
Mein Versuch: Die Bereichsangabe ist schon mal definitiv falsch, weil je jede Columne durchgesucht werden soll.
ich möchte ein Macro namens Proof.
Es soll die Spalten 1 bis 29 nacheinander durchgehen, und die leeren Spalten finden, sie rot einfärben und zählen, und die Zahl im meinetwegen AO1 ausgeben..
Mein Versuch: Die Bereichsangabe ist schon mal definitiv falsch, weil je jede Columne durchgesucht werden soll.
Code:
Sub Prüfung()
Dim Zähler2 As Long
For Column = 4 To 34
If Not IsEmpty(Range("D4:D13")) Then
With ActiveCell.EntireColumn.Cells(ColumnIndex:=Column)
.Interior.ColorIndex = 6
Zähler2.Value = 1
End With
Next Column
End Sub