Zeile Ausblenden mit einer Funktion

[Udo_]

Hallo Excel-Profis,

kann mir jemand helfen ?

Ich brauche eine Excel-Funktion (VBA ?) welche wie folgt funktionieren soll: (2 Parameter)

Parameter 1: "Zeilennummer" welche ein/ausgeblendet werden soll
Parameter 2: ausblenden (true) oder einblenden (false)

in A1 steht z.B. als Funktion
=Ausblenden.Zeile(6;true)
->Soll heißen Zeile 6 soll ausgeblendet (true) werden

In A1 steht z.B. als Funktion
= Ausblenden.Zeile(6;false)
-> Soll heißen Zeile 6 soll eingeblendet werden


PS: 
Die Möglichkeiten mit "Autofilter" und ähnliches möchte ich nicht realisieren weil die Zeilen, welche ausgeblendet werden sollen , von diversen Bedingungen abhängig ist und über diverse Zeilen/Spalten-Bedingungen verteilt sind. 


PLEASE HELP

Würde mich auf Hilfe freuen

Grüße 
Udo

[Gast 123]

Hallo Udo

mit einem Makro geht es z.B. über diesen Code. Wie du es startest ist ein anderes Thema. Mit Target bei der Eingabe. Oder per Button.
Mit Const TZ = ";" kannst du das Trennzeichen selbst festlegen, ob normales Komma oder ";" Zeichen.

mfg Gast 123

Code:

Const TZ = ";"  '; als Trennzeichen, oder normales Komma!

Sub Ein_Ausblenden()
Dim Wert As Variant, Zeile As Long, OnOff
   Wert = Range("A1").Value
   If InStr(Wert, TZ) Then
      Zeile = Left(Wert, InStr(Wert, TZ) - 1)
      OnOff = Trim(Mid(Wert, InStr(Wert, TZ) + 1))
   End If
   Rows(Zeile).EntireRow.Hidden = OnOff
End Sub

[Udo_]

Danke! Das ging fix ... werde ich gleich direkt mal nutzen ... !