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:
918		 Rating:
     
Antwort:
  Ja
Thema:
Spalten ausblenden wenn Zellen der Zeile leer sind

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

?
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
28
29
30
31
32
33
34
35
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:
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
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