Office: Zellen per VBA ausblenden

Hi,

habe jetzt schon verschiedene Möglichkeiten ausprobiert, aber nix funktioniert.

Habe eine Datei beigefügt wo mein Problem ersichtlich ist... Ich möchte gerne alle Spalten ausblenden wo nix drinsteht.. Sprich wenn in Zelle D5 nix steht soll die Spalte D ausgeblendet werden..

Danke für eure Hilfe...


P.S. Habe noch etliche Makros in der VBA die leider alle nicht das gewünschte Ergebnis gebracht haben.. Vllt. habe ich auch nur nen kleinen Fehler drin... ICh hab keinen Plan..

 

Hi,

bis zu welcher Spalte soll denn der Code laufen? Es soll immer Zeile 5 geprüft werden?

Bis später,
Karin

 

Hallo Beverly,

ja es soll immer die 5 Zeile geprüft werden. und wenn dort nichts steht dann soll die Spalte ausgeblendet werden...


Danke dir... :)

 

Hi,

Code:

Sub AlleLeerenAusblenden()
    Dim i As Integer
    Application.ScreenUpdating = False
    For i = 3 To Cells.Columns.Count
        Columns(i).Hidden = Cells(5, i) = ""
    Next i
    Application.ScreenUpdating = False
End Sub

Bis später,
Karin

 

SUPER...

DANKE DANKE DANKE

es hat funktioniert...:D

 

Hallo!

Ich glaube, in der vorletzten Zeile war der Tippfehler-Teufel am Werk:


Application.ScreenUpdating = True</pre>

 

Hi,

ich habe in dem in der Mappe bereits vorhandenen Code nur diesen Teil zum Ausblenden der Spalten angepasst:

Code:

    For i = 3 To Cells.Columns.Count
        Columns(i).Hidden = Cells(5, i) = ""
    Next i

Bis später,
Karin