Leere Zeilen aus bzw. einblenden .

Da bin ich mal wieder :-)
ich möchte auf einen Tabellenblatt Zeilen ausblenden wenn sie Leer sein ein einblenden wenn etwas drinnen steht .
Bisher hab ich das mit Checkboxen erledigt. Nun möchte ich es aber wenn etwas drinnen steht bzw. nicht drinnen steht .
Sub sbRowsHideShow(ByVal startzeile As Long, ByVal zeilen As String)
Application.ScreenUpdating = False
Worksheets("Januar").Unprotect
With Sheets("Januar")
If .Rows(startzeile).EntireRow.Hidden = False Then
.Range(zeilen).EntireRow.Hidden = True
Else
.Range(zeilen).EntireRow.Hidden = False
End If
End With
Worksheets("Januar").Protect
Application.ScreenUpdating = True
End Sub

Private Sub CheckBox1_Click()
sbRowsHideShow 7, "7:7,25:25,43:43,61:61,79:79,97:97"
End Sub

so hab ich es bisher gehandhabt .
Nun soll es aber zb. so sein das wenn in Tabelle1 in zelle a2 etwas drinnen steht, das die oben genannten zeilen eingeblendet bzw. wenn nichts drinnen steht ausgeblendet werden .
Kann da jemand helfen ?
Gruß
Sven

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub sbRowsHideShow2(Optional ByVal EinAus) Application.ScreenUpdating = False If IsMissing(EinAus) Then EinAus = IsEmpty(Tabelle1.Cells(2, 1)) With Worksheets("Januar") .Unprotect .Range("7:7,25:25,43:43,61:61,79:79,97:97").EntireRow.Hidden = EinAus .Protect End With Application.ScreenUpdating = True End Sub

Hallo Sven,
hast du denn Gerds Vorschlag denn mal eingebaut wie beschrieben?
Bekomme aber leider immer Fehlermeldungen :-(.
das nützt leider wenig, um dir weiter zu helfen.
Welche Fehler-Nr. und welche Meldungstext?

Hab versucht es zu modifizieren , aber will irgendwie nicht .

Was hast du geändert?
Wir haben keine Kristallkugel, um dir über die Schulter zu schauen.
Als VBA-Anfänger macht man schnell mal Syntax-Fehler.
Kann man diesen Code hier abwandeln so das ich nicht für jedes Zeilenpaar den Code Schreiben muss ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsEmpty(Range("G2")) Then
Rows("4:5").Hidden = True
Else
Rows("4:5").Hidden = False
End If
End Sub

Wie heißt es bei Radio Eriwan: Im Prinzip ja, aber es macht wenig Sinn einen wahrscheinlich zum Ziel führenden Lösungsvorschlag nicht bis zum Ende umzusetzen sondern wieder mit einem anderen Weg zu beginnen.
Insbesondere, wenn dieser Vorschlag im Prinzip die von dir wahrscheinlich gewünschten Vereinfachungen schon beinhaltet.
Mit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ohne Prüfung, welche Zelle selektiert wurde, wird wie in deinem Beispiel bei jedem Klick in eine beliebige Zelle im Blatt der Wert in Zelle G2 geprüft und die Zeilen ein-/ausgeblendet.
Das ist auf Dauer ziemlich nervig.
Du solltest also nochmals sehr genau überlegen, wann du das Ein-/Ausblender der Zeilen ausführen willst/musst.
Dann kann man auch das passende Ereignis-Makro auswählenund mit den passenden Anweisungen versehen.
Eine kleine Beispiel-Datei -mit ggf. anonymisierten Beispieldaten- hier hochzuladen ist auch extrem hilfreich, wenn bei einer Problemstellung geholfen werden soll.
LG
Franz

Beliebteste Forumthreads (12 Monate)

Leere Zeilen aus bzw. einblenden .

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Leere Zeilen aus bzw. einblenden .

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread