Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1512to1516
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Beim Zeilen einblenden, leere Zeilen auslassen

Beim Zeilen einblenden, leere Zeilen auslassen
13.09.2016 10:02:43
Hendrik
Hallo zusammen,
Ich habe für eine Urlaubstabelle Checkbox-Codes erstellt.
Jetzt würde ich gerne alle Leerzeilen nicht mit einblenden lassen.
  • 
    Private Sub CheckBox1_Click()
    'Bahn
    Dim i As Integer
    For i = 1 To 12
    With Worksheets(i)
    .Range("6:28").EntireRow.Hidden = (CheckBox1.Value = False)
    End With
    Next i
    End Sub
    

    Private Sub CheckBox2_Click()
    'Filling
    Dim i As Integer
    For i = 1 To 12
    With Worksheets(i)
    .Range("29:58").EntireRow.Hidden = (CheckBox2.Value = False)
    End With
    Next i
    End Sub
    

    Private Sub CheckBox3_Click()
    'Team_1
    Dim i As Integer
    For i = 1 To 12
    With Worksheets(i)
    .Range("6:11").EntireRow.Hidden = (CheckBox3.Value = False)
    .Range("29:37").EntireRow.Hidden = (CheckBox3.Value = False)
    .Range("56:58").EntireRow.Hidden = (CheckBox3.Value = False)
    End With
    Next i
    End Sub
    

    Private Sub CheckBox4_Click()
    'Team_2
    Dim i As Integer
    For i = 1 To 12
    With Worksheets(i)
    .Range("12:17").EntireRow.Hidden = (CheckBox4.Value = False)
    .Range("38:46").EntireRow.Hidden = (CheckBox4.Value = False)
    .Range("56:58").EntireRow.Hidden = (CheckBox4.Value = False)
    End With
    Next i
    End Sub
    

    Private Sub CheckBox5_Click()
    'Team_3
    Dim i As Integer
    For i = 1 To 12
    With Worksheets(i)
    .Range("18:23").EntireRow.Hidden = (CheckBox5.Value = False)
    .Range("47:58").EntireRow.Hidden = (CheckBox5.Value = False)
    End With
    Next i
    End Sub
    

    Private Sub CheckBox6_Click()
    'Alles
    Dim i As Integer
    For i = 1 To 12
    With Worksheets(i)
    .Range("6:58").EntireRow.Hidden = (CheckBox6.Value = False)
    End With
    Next i
    End Sub
    

  • 1
    Beitrag zum Forumthread
    Beitrag zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Beim Zeilen einblenden, leere Zeilen auslassen
    13.09.2016 19:42:40
    alen
    Hallo Hendrik,
    dafür benötigst du noch eine For - Schleife zum abfragen ob eine Zeile leer ist
    Ich kann dir das hier vorschlagen:
    Dim zelle As Range
    Dim i As Integer
    For i = 1 To 12
    With Worksheets(i)
    For Each zelle In Range("6:58")
    If zelle = "" Then
    zelle.EntireRow.Hidden = True
    Else
    zelle.EntireRow.Hidden = (CheckBox6.Value = False)
    End If
    End With
    Next i
    
    Was ich dir noch mitgeben möchte ist, den Bereich in Range genauer zu definieren wie z.B. statt "Range("6:58")", noch Spalten mitgeben "Range("A6:C58")". Denn sonst wirst du wahrscheinlich einen Fehler bekommen, da Excel nicht den ganzen Bereich abarbeiten kann.
    Die Lösung ist halt nur eine grobe Variante, da ich leider nicht mehr Informationen habe. Vielleicht reicht es ja wenn du nur eine bestimme Zeile oder Spalte abfragst ... ansonsten melde dich halt nochmal :D
    SG
    Alen
    Anzeige

    Links zu Excel-Dialogen

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige