Leere Zellen Ausblenden
31.08.2018 08:55:08
Rud
Ich habe eine Wotksheet wo ich folgenden VBA Code drin habe um alle Zeilen auszublenden sofern Spalte "A" leer ist.
Das funktioniert zwar, aber da über 1200 Zellen überprüft werden müssen und ich das für mehrere Tabellen machen muss (Tabelle 1, Tabelle 2 usw.) dauert das teilweise 10-15 Minuten.
Ich bin kein guter VBA-Kenner, wäre es jedoch möglich mit einem Array o.ä das schneller zu bewerkstelligen?
Private Sub leere_Zeilen_ausblenden()
Dim a As Range
For Each a In Range("A10:A1200")
If a.Value "" Then
a.EntireRow.Hidden = False
Else
a.EntireRow.Hidden = True
End If
Next a
End Sub
Vielen Dank und Gruss
Rud