PDA

Vollständige Version anzeigen : Zeilen ausblenden


ulli2
14.01.2014, 17:42
Moin

ulli hat ein Problen und brauch bitte HILFE.

Ich möchte alle Zeilen ausblenden in denen vorübergehend keine Werte eingetragen sind. Mit einer Zeile gelingt mir das,(siehe unten) ich möchte das aber mit mehrere Zeilen tun.


Wenn C6 ="" dann Zeile 6 und Zeile 42 ausblenden
wenn C7 ="" dann Zeile 7 und Zeile 43 ausblenden

und alles bis C37 und entsprechend Zeile 71

Private Sub CommandButton1_Click()
If Trim(Range("C12")) = "" Then Rows(12).EntireRow.Hidden = False
End Sub (zweite Zeile fehlt mir hier auch schon)

ist das realisierbar und wenn ja wie bitte.

aloys78
14.01.2014, 17:59
Hallo Ulli,

mein Vorschlag:
Private Sub CommandButton1_Click()
Dim z As Long
For z = 6 To 37
If Trim(Range("C" & z)) = "" Then
Rows(z).EntireRow.Hidden = True
Rows(z + 36).EntireRow.Hidden = True
End If
Next z
End Sub

Gruß
Aloys

ulli2
14.01.2014, 18:27
möglicherweise habe ich mich falsch ausgedrückt.

ich möchte -wenn c6 leer ist die Zeile 6 und die Zeile 42 ausblenden
wenn c7 leer ist die Zeile 7 und die Zeile 43 ausblenden
wenn c8 leer ist die Zeile 8 und die Zeile 44 ausblenden usw.
bis c37 leer Zeile 37 und Zeile 73.
Bei einer leeren Zelle zwei Zeilen

aloys78
14.01.2014, 18:36
Hallo Ulli,

wenn du den Code getestet hast, was läuft denn konkret nicht ?

Gruß
Aloys

ulli2
14.01.2014, 18:36
sorry Aloys

alles richtig haut bestens hin - ich war zu blöd den Code richtig zu kopieren.

ulli2
14.01.2014, 18:37
alles gut mein Fehler ich war zu voreilig - nochmals danke und sorry