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:
922		 Rating:
     
Antwort:
  Ja
Thema:
Spalten ausblenden, wenn diese einen Wert enthalten

ist gelöst:

Code zum ausblenden:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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:

?
1
2
3
4
5
6
7
8
9
10
11
12
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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