Macro zum Zeilen ausblenden (erweiterung)

Private Sub Worksheet_Calculate() Dim Spalte As Integer Dim Spalte1 As Integer Dim Spalte2 As Integer Dim Spalte3 As Integer Dim SpalteEnd As Integer Dim SpaltenString As String With Tabelle20 ' welche Tabelle For Spalte = 32 To 33 If Spalte = 32 Then SpaltenString = "E:F" Else SpaltenString = "G:H" ' Für Spalte E-F und G- _ H If Cells(Spalte, 1) = 0 Then ' Wenn 0 dann .Columns(SpaltenString).Hidden = True ' Spalte ausblenden Else .Columns(SpaltenString).Hidden = False ' Wenn nicht 0 dann _ nicht ausblenden End If For Spalte1 = 34 To 35 If Spalte1 = 34 Then SpaltenString = "I:J" Else SpaltenString = "K:L" ' Wiederholung für I-J _ und G-H If Cells(Spalte1, 1) = 0 Then .Columns(SpaltenString).Hidden = True Else .Columns(SpaltenString).Hidden = False End If For Spalte2 = 36 To 37 If Spalte2 = 36 Then SpaltenString = "M:N" Else SpaltenString = "O:P" ' Wiederholung für M-N _ und O-P If Cells(Spalte2, 1) = 0 Then .Columns(SpaltenString).Hidden = True Else .Columns(SpaltenString).Hidden = False End If For Spalte3 = 38 To 38 If Spalte3 = 38 Then SpaltenString = "Q:R" Else SpaltenString = "Q:R" ' Wiederholung für Q _ und R If Cells(Spalte3, 1) = 0 Then .Columns(SpaltenString).Hidden = True Else .Columns(SpaltenString).Hidden = False End If Next Spalte3 Next Spalte2 Next Spalte1 Next Spalte End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub hide_rows() 'angenommen die Prüfzelle "x" befände sich in der Spalte "A" der Tabelle1 'dann könnte es, wenn die Prüfung innerhalb der 19 Zeilen von Zeile 2 bis Zeile 20 'stattfinden sollte, vllt. so klappen: Dim ze As Range With Worksheets("Tabelle1") For Each ze In .Range("A2:A20") If ze = 0 Then .Rows(ze.Row & ":" & ze.Row).Hidden = True End If Next End With End Sub

Ich habs eingefügt, passiert aber gar nix. Habe den Code aus Tabellenblatt 20 angehängt. Schön wäre auch wenn es bei jeder Neuberechnung aktiviert würde so wie der andere Code im Tabellenblatt.
Irgend wie steh ich noch auf dem Schlauch. Geht das überhaupt wenn der Code einfach anghängt wird?
VBA is noch ein bischen schwer für mich.
Gruß Stefan

Private Sub Worksheet_Calculate()
Dim Spalte As Integer
Dim Spalte1 As Integer
Dim Spalte2 As Integer
Dim Spalte3 As Integer
Dim SpalteEnd As Integer
Dim SpaltenString As String
With Tabelle20                                                          ' welche Tabelle
For Spalte = 32 To 33
If Spalte = 32 Then SpaltenString = "E:F" Else SpaltenString = "G:H"    ' Für Spalte E-F und G- _
H
If Cells(Spalte, 1) = 0 Then                                            ' Wenn 0 dann
.Columns(SpaltenString).Hidden = True                                   ' Spalte ausblenden
Else
.Columns(SpaltenString).Hidden = False                                  ' Wenn nicht 0 dann  _
nicht ausblenden
End If
For Spalte1 = 34 To 35
If Spalte1 = 34 Then SpaltenString = "I:J" Else SpaltenString = "K:L"   ' Wiederholung für I-J  _
und G-H
If Cells(Spalte1, 1) = 0 Then
.Columns(SpaltenString).Hidden = True
Else
.Columns(SpaltenString).Hidden = False
End If
For Spalte2 = 36 To 37
If Spalte2 = 36 Then SpaltenString = "M:N" Else SpaltenString = "O:P"   ' Wiederholung für M-N  _
und O-P
If Cells(Spalte2, 1) = 0 Then
.Columns(SpaltenString).Hidden = True
Else
.Columns(SpaltenString).Hidden = False
End If
For Spalte3 = 38 To 38
If Spalte3 = 38 Then SpaltenString = "Q:R" Else SpaltenString = "Q:R"   ' Wiederholung für Q  _
und R
If Cells(Spalte3, 1) = 0 Then
.Columns(SpaltenString).Hidden = True
Else
.Columns(SpaltenString).Hidden = False
End If
Next Spalte3
Next Spalte2
Next Spalte1
Next Spalte
End With
End Sub

Sub hide_rows()
'angenommen die Prüfzelle "x" befände sich in der Spalte "A" der Tabelle1
'dann könnte es, wenn die Prüfung innerhalb der 19 Zeilen von Zeile 2 bis Zeile 20
'stattfinden sollte, vllt. so klappen:
Dim ze As Range
With Worksheets("Tabelle20")
For Each ze In .Range("S5:S22")
If ze = 0 Then
.Rows(ze.Row & ":" & ze.Row).Hidden = True
End If
Next
End With
End Sub

Sub hide_rows() 'angenommen die Prüfzelle "x" befände sich in der Spalte "A" der Tabelle1 'dann könnte es, wenn die Prüfung innerhalb der 19 Zeilen von Zeile 2 bis Zeile 20 'stattfinden sollte, vllt. so klappen: Dim ze As Range With Tabelle20 For Each ze In .Range("S5:S22") If ze = 0 Then .Rows(ze.Row & ":" & ze.Row).Hidden = True End If Next End With End Sub

Beliebteste Forumthreads (12 Monate)

Macro zum Zeilen ausblenden (erweiterung)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread