VBA
Excel VBA
Word VBA
Access VBA
VBScript
VB
C#
Objective-C
C++
SQL
JAVA
VBA (English)
Jobs
Übersicht
Thema
Datum
Von Nutzer
Rating
Antwort
Leere Spalten Ausblenden aber vorher Autofilter berücksichtigen
10.02.2016 09:23:12
madu
Ansicht des Beitrags:
Von:
madu
Datum:
10.02.2016 09:23:12
Views:
1670
Rating:
Antwort:
Thema:
Leere Spalten Ausblenden aber vorher Autofilter berücksichtigen
Hallo Zusammen Ich brauche dringend Hilfe mit dem folgenden Makro. läuft soweit richtig, berücksichtigt jedoch nicht meinen Autofilter in der Zelle A11. Wie kann ich diese Bedingung in das bestehende VBA einbauen? Vielen Dank für eure Hilfe! Sub LeereSpaltenAusblenden() Dim Datenbereich As Range Dim Zeile As Range Dim Spalte As Range Dim istLeer As Boolean 'Datenbereich definieren Set Datenbereich = Range("H12:EI200") For Each Spalte In Datenbereich.Columns istLeer = True For Each Zeile In Spalte.Cells Select Case VarType(Zeile.Value) Case 0, 1 'ist Empty oder NULL Case 5 'ist Double If Not (Zeile.Value = 0) Then istLeer = False Exit For End If Case 8 'ist String If Not (Len(Zeile.Value) = 0) Then istLeer = False Exit For End If Case Else 'keines der obigen istLeer = False Exit For End Select Next Zeile Spalte.EntireColumn.Hidden = istLeer 'Spalte ein-/ausblenden Next Spalte End Sub
Ihre Antwort
Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
B
ei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema:
Name:
Email:
Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
B
ei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema
Datum
Von Nutzer
Rating
Antwort
Leere Spalten Ausblenden aber vorher Autofilter berücksichtigen
10.02.2016 09:23:12
madu
