Thema Datum  Von Nutzer Rating
Antwort
21.07.2014 14:30:17 jin
NotSolved
Blau Spalten ausblenden, wenn diese einen Wert enthalten
 24.07.2014 15:47:23 Gast59009
NotSolved

Ansicht des Beitrags:
Von:
Gast59009		 Datum:
24.07.2014 15:47:23		 Views:
741		 Rating:
     
Antwort:
  Ja
Thema:
Spalten ausblenden, wenn diese einen Wert enthalten

ist gelöst:

Code zum ausblenden:

Sub LeereSpaltenAusblenden()

    Dim cel As Range
    Dim rng As Range
    Dim isColumnEmpty As Boolean
     
    ' Den gesamten zu prüfenden Bereich bestimmen
    For Each rng In Range("J6:BZ500").Columns
        ' Erstmal annehmen, dass die Spalte ausgeblendet werden soll
        isColumnEmpty = True
        
        ' Alle Zellen der Spalte innerhalb des Ranges durchgehen
        For Each cel In rng.Cells
            If cel.EntireRow.Hidden = False Then
                ' Die gesamte der Zeile der Zelle ist nicht sichtbar also nicht beachten
                If cel.Value <> "" Then
                    ' Der Wert der Zelle ist nicht leer also die Spalte nicht ausblenden
                    isColumnEmpty = False
                End If
            End If
        Next cel
        
        ' Spalte ausblenden, wenn alle sichtbaren Zellen keinen Wert hatten
        If (isColumnEmpty = True) Then
            rng.EntireColumn.Hidden = True
        End If
    Next rng

Code zum einblenden:

Sub AlleSpaltenAnzeigen()

    Dim cel As Range
    Dim rng As Range
    Dim isEmpty As Boolean
     
    ' Alle Spalten im Range wieder einblenden
    For Each rng In Range("J6:BZ500").Columns
        rng.EntireColumn.Hidden = False
    Next rng
    
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)
  • Bei 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)
  • Bei 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
21.07.2014 14:30:17 jin
NotSolved
Blau Spalten ausblenden, wenn diese einen Wert enthalten
 24.07.2014 15:47:23 Gast59009
NotSolved