Leerzelle gefunden
Maris
ich habe mir folgenden Code zusammengebastellt. Er sucht nach Leerzellen in einem definierten Bereich. Leider zeigt er lediglich an das er eine gefunden hat jedoch nicht wie viele bzw. wo die Leerzellen sind. Im folgenden mein Code:
Sub LeerZelle()
ActiveSheet.Unprotect
ScreenUpdating = False
Dim b As Range
Dim letzteZeile As Long
Dim letzteZelle As Range
Dim Bereich As Range
Set Bereich = Selection
For Each b In ActiveSheet.UsedRange
If b.Rows.Hidden = False Then
letzteZeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
End If
Next
Range("B2:AZ" & letzteZeile).Select
Selection.SpecialCells(xlBlanks).Cells(1).Select
ScreenUpdating = True
ActiveSheet.Protect
End Sub
Würde mich freuen wenn mir jemand bei der Optimierung von diesem Code helfen könnte.
Danke schon mal im Voraus :-D!
Gruß.
Maris
Anzeige