Office: Zeilen automatisch ausblenden.

Hallo,

ich hätte ein Frage zu Excel (VBA). Ich würde gerne in einem Tabellenblatt ein Funktion einbauen, bei der ich in eine Zelle (Beispielsweise Zelle A1) eine Zahl zwischen 1 und 4 eingeben kann und in abhängigkeit der Zahl dann bestimmte Zeilen automatisch (ohne erst auf Makro ausführen gehen zu müssen, direkt nach Eingabe von "Enter") ausgebelndet werden. Beispielsweise: Eingabe Zahl 1 -> Ausblenden der Zeilen 5-15; Eingabe der Zahl 2 -> Ausblenden der Zeilen 5-10;
Wenn keine Zahl zwischen 1 und 4 oder Text eingegeben wird, dann soll eine Fehlermeldung erscheinen.
Ich habe schon ein bisschen mit VBA rumgespielt und versucht es umzusetzen, aber muss leider zugeben, dass ich als absoluter VBA-Neuling leider keine Ahnung davon habe und es auch nicht geschafft habe. :-( Wenn ihr mir da weiterhelfen könntet, wäre ich euch sehr sehr dankbar...:-)

Liebe Grüße
Tatjana :-)

 

Hallo!

Packe diesen Code in das Modul des Tabellenblatts:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then
    Rows.Hidden = False
    Select Case Target
      Case 1
        Rows("5:10").Hidden = True
      Case 2
        Rows("5:15").Hidden = True
      Case 3
        Rows("5:20").Hidden = True
      Case 4
        Rows("5:25").Hidden = True
      Case Else
        MsgBox "Dies ist keine Zahl von 1 bis 4"
    End Select
  End If
End Sub

 

Hallo,

hier auch noch ein Bsp.

Gruß

 

Danke!!!!!1

Hallo Schatzi, :-)

Vielen Vielen Dank! Du hast mir sehr geholfen. Du bist wirklich ein echtes Schatzi!!!!!

Liebe Grüße

Tatjana

 

Hallo,
das mit dem Ausblenden ist ja ne super Sache. Würde das Ganze auch funktionieren folgendermaßen funtionieren:

A1 = 1
Zeilen 2,3,4 ausblenden

A2 = 1
Zeilen 1,3,4 ausblenden

A3 = 1
Zeilen 1,2,4 ausblenden

A4 = 1
Zeilen 1,2,3 ausblenden

 

Hallo!

Ja auch das geht:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A1:A4"), Target) Is Nothing Then
Dim i As Integer
For i = 1 To 4
If Cells(i, 1) = 1 Then Rows(i).Hidden = True
Next i
End If
End Sub

 

Hmm, jetzt werden aber diue Zeilen ausgeblendet die mit "1" markiert sind, es sollten aber die übrigen ausgeblendent sein, lässt sich doch sicher umkehren, oder??
Hab mal ne Tabelle angehängt wo man deutlicher erkennen kann was ich eigentlich vorhab. Es soll unter jeder Hauptgruppe (interne Bauteile, Externe Bauteile und Werkzeuge intern) immer nur je eine spalte ausgewählt werden können, die nicht ausgewählen in der jeweiligen Untergruppe sollen dan nausgeblendet werden.
Geht sowas??

 

Hallo!

Wenn's umgekehrt sein soll, dann

If Cells(i, 1) <> 1 Then Rows(i).Hidden = True

 

Danke für die Mühe, jetzt bleiben die Zellen ausgeblendet auch wenn die 1 wieder raus ist. Bekommen das dann auch nicht auf die anderen Gruppierungen übertragen. Naja, schade ist wahrscheinlich nicht so die geeignete Funktion für nen VBA nichtsblicker!
Gruß

 

Hallo!

Hidden = True
blendet die Zeilen aus

Hidden = False
blendet die Zeilen ein

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A1:A4"), Target) Is Nothing Then
Dim i As Integer
For i = 1 To 4
If Cells(i, 1) = 1 Then
Rows(i).Hidden = True
Else: Rows(i).Hidden = False
End If
Next i
End If
End Sub