hier ein paar Ansätze die nicht funktionieren, habe mir diese aus dem Netz zusammengesucht, diese Ansätze sind NUR ALS MUSTER zu sehen, die Zelladressen usw. stimmen allesamt nicht, ICH HAB MIR DIESE NUR ALS DENKANSATZ KOPIERT.
mein VBA-Wissen reicht leider nicht aus die Formeln zu deuten oder an meine Tabelle anzupassen, vielleicht kann man eine der Formeln entsprechend anpassen, aber seht selbst...
'Zeilen automatisch ausblenden bzw. wieder einblenden bei Wert 1 bzw. 0
'div. Anleitungen...
Sub Ausblenden()
Dim intRow As Integer, intLastRow As Integer
intLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For intRow = 1 To intLastRow
If IsEmpty(Cells(intRow, 1)) Then
Rows(intRow).Hidden = True
ElseIf Cells(intRow, 1) = 0 Then
Rows(intRow).Hidden = True
End If
Next intRow
End Sub
Sub BestimmteZeilenAusblenden()
'Zeilen automatisch ausblenden (bzw. einblenden), wenn in der Spalte B bestimmte Werte stehen ( _
bsp. All).
Dim rng As Range
For Each rng In Range(Cells(29, 17), Cells(29, 17).End(xlUp)) '2 = Spalte B
If LCase(rng) = "0" Then 'Kriterium = 0
Rows("30:52").EntireRow.Hidden = True
Else
Rows("30:52").EntireRow.Hidden = False
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim i As Long, laR As Long
laR = Cells(Rows.Count, 4).End(xlUp).Row
For i = laR To 1 Step -1
If Cells(i, 4).Text = "0:00" Then
Cells(i, 4).EntireRow.Hidden = True
End If
Next i
End Sub
Sub ausblendenms()
If .Range("AC21").Value = 1 Then
.Rows("30:52").EntireRow.Hidden = True
If .Range("AC21").Value = 0 Then
.Rows("30:52").EntireRow.Hidden = True
End If
End With
End Sub
Option Explicit
Sub Zeilen_ausblenden()
Dim Wiederholungen As Long
Application.ScreenUpdating = False
For Wiederholungen = 1 To 20
If Cells(Wiederholungen, 1).Value = "0" Then
Rows(Wiederholungen).Hidden = True
Else
Rows(Wiederholungen).Hidden = False
End If
Next
End Sub
