Makro erkennt keine optisch leere Zellen
10.01.2013 13:17:20
Reiner
Hallo zusammen,
ich habe aus einer anderen Fragestellung heraus ein neues Thema eröffnet.
In dem Tabellenblatt werden die Zellen werden durch Formeln aus einem anderem Tabellenblatt gefüllt.
Damit das Makro leere Zellen erkennen kann habe ich den Bereich kopiert und mit "Inhalte einfügen" "Werte" "Leerzellen überspringen" wieder eingefügt.
So wie es aussieht sind die leeren Zellen für das Makro nicht leer und deshalb funktioniert es nicht.
Wenn ich die (optisch) leeren Zellen mit "Entfernen" lösche dann funktioniert alles.
Gibt es eine Möglichkeit das Makro so zu ändern, daß es auch nur optisch leere Zellen ausblendet?
Dann könnte ich mir das Kopieren - Werte einfügen ersparen.
Sub Leere_Spalten_ausblenden()
Dim lngLast As Long, rng As Range
Application.ScreenUpdating = False
lngLast = Cells(1, 1).CurrentRegion.Rows.Count
If lngLast > 4 Then
For Each rng In Range("A1:AE1") ' Endzelle eintragen
' For Each rng In Range(Cells(1, 1), Cells(1, 1).End(xlToRight)) ' Sucht die erste leere _
Zelle
rng.EntireColumn.Hidden = _
Application.CountA(rng.Offset(4).Resize(lngLast - 4)) = 0
Next
End If
End Sub
Alternativ wäre ein Tipp wie ich beim Werte einfügen etwas anders machen kann auch OK.
Vielen Grüße aus Hessen
Reiner