Thema Datum  Von Nutzer Rating
Antwort
05.02.2015 13:11:49 Thorge
Solved
Blau Spalten ausblenden wenn Zellen der Zeile leer sind
 05.02.2015 18:00:47 Gast74610
NotSolved
05.02.2015 18:52:33 Ambg
Solved
06.02.2015 10:54:15 Gast18480
NotSolved
06.02.2015 12:28:51 Gast46332
NotSolved
06.02.2015 12:47:50 Thorge
NotSolved

Ansicht des Beitrags:
Von:
Gast74610		 Datum:
05.02.2015 18:00:47		 Views:
753		 Rating:
     
Antwort:
  Ja
Thema:
Spalten ausblenden wenn Zellen der Zeile leer sind

Eine Möglichkeit alle Zeilen der Reihe nach abzuarbeiten wäre folgende:

Option Explicit

Sub Test()
  
  Dim i As Long
  
  With Worksheets("Tabelle1").UsedRange 'UsedRange: simpelste Möglichkeit den "relevanten" Bereich anzusprechen
    
'>> Variante 1 >>
    'wir stellen zu Beginn sicher: alle Zeilen sind sichtbar
    .Rows.Hidden = False
    
    'Start der Schleife in Zeile 2 (weil Zeile 1 die Kopfzeile ist)
    For i = 2 To .Rows.Count
      'Ist da kein x in der Zeile (letzten 10 Spalten)?
      If 0 = WorksheetFunction.CountIf(.Cells(i, .Columns.Count - 9).Resize(, 10), "x") Then
      'ja, kein x -> also Zeile ausblenden
        .Rows(i).Hidden = True
'      Else
'      'nein, mind. ein x vorhanden -> Zeile einblenden
'        .Rows(i).Hidden = False
      End If
    Next
'<< Variante 1

'>> Variante 2 >>
'    'oder das Ganze noch etwas kompakter:
'    For i = 2 To .Rows.Count
'      .Rows(i).Hidden = Not CBool(WorksheetFunction.CountIf(.Cells(i, .Columns.Count - 9).Resize(, 10), "x"))
'    Next
'<< Variante 2

  End With
  
End Sub

Möchte jetzt nicht behaupten sie sei schon sehr Performant (vorallen bei größeren Datenumfang), aber es wäre ein Ansatz.

 

PS: Natürlich speziell auf dein gezegites Beispiel ausgelegt (hinsichtlich der Spalten).

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
05.02.2015 13:11:49 Thorge
Solved
Blau Spalten ausblenden wenn Zellen der Zeile leer sind
 05.02.2015 18:00:47 Gast74610
NotSolved
05.02.2015 18:52:33 Ambg
Solved
06.02.2015 10:54:15 Gast18480
NotSolved
06.02.2015 12:28:51 Gast46332
NotSolved
06.02.2015 12:47:50 Thorge
NotSolved