Microsoft Excel

Herbers Excel/VBA-Archiv

Zeilen mit VBA ausblenden

Betrifft: Zeilen mit VBA ausblenden von: Patrik Achermann
Geschrieben am: 18.09.2020 21:09:50

Hallo Miteinander

ich komme nicht mehr weiter kann mir bitte jemand helfen da ich kaum Kenntnisse davon habe.
Ich habe ein Excel-Datei mit Makro mit dem Namen Berechnung Verpackungseinheiten mit dem Reiter Tabelle1.
Nun möchte ich bei diesem wenn in der Zelle "C2" eine "0" steht die Zeilen "24-30" ausblenden und wenn in der Zelle "C2" eine "1-999" steht die Zeilen "13-19" ausblenden.
Ich habe unten stehendes VBA-Makro erhalten. Bringe es aber einfach nicht zum laufen.
Kann mur bitte jemand sagen was ich falsch mache. Wie gesagt ich habe sehr wenig Ahnung von VBA-Makros.

Gruss, Patrik

Option Explicit
Option Base 1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "C2" Then
    Rows("24:30").Hidden = IIf(Target = 0, True, False)
    Rows("13:19").Hidden = IIf(Target >= 1, True, False)
End If
End Sub

Betrifft: AW: Zeilen mit VBA ausblenden
von: GerdL
Geschrieben am: 18.09.2020 21:26:14

Hallo Patrick,

der Code - ergänzt wegen Obergrenze - gehört ins Codefenster von Tabelle1 und sonst nirgends hin
(Rechtsklick auf den Tabellenreiter -- Code anzeigen anklicken).
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "C2" Then
    Rows("24:30").Hidden = IIf(Target = 0, True, False)
    Rows("13:19").Hidden = IIf(Target >= 1 And Target <= 999, True, False)
End If
End Sub

Gruß Gerd

Betrifft: AW: Zeilen mit VBA ausblenden
von: Patrik Achermann
Geschrieben am: 18.09.2020 22:28:41

Hallo Gerd

Recht herzlichen Dank für den neuen Code und die Info.
Wenn man weiss wie und wo ist es recht einfach.
Funktioniert alles einwandfrei.

Gruss, Patrik

Beiträge aus dem Excel-Forum zum Thema "Zeilen mit VBA ausblenden"