Tabellen ein- ausblenden wenn...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Heiko,
eine der beiden folgenden Varianten steuert die Aus-/Einblendung der Tabellen bei der Werteingabe im Zellbereich B5:B25.
Variante 1 funktioniert wenn die Tabellenblätter mit gleichem Namen durchnummeriert sind.
Variante 2 lässt beliebige Tabellennamen zu.
Das(Die) Makro(s) muss du im VBA-Editor unter der Tabelle einfügen, in der sich der Bereich B5:B25 befindet.
Gruss
Franz


Variante 1:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Me.Range("B5:B25")) Is Nothing And Target.Cells.Count = 1 Then
If Target.Value = "" Then
Sheets("Tabelle" & (Target.Row - 3)).Visible = False
Else
Sheets("Tabelle" & (Target.Row - 3)).Visible = True
End If
End If
End Sub
'die 3 gibt an welche Tabellen-Nr. relativ zur Zeilennummer von Target sich ändern soll.
'ggf. die Ziffer anpassen, wenn die Zählung der Tabellen anders ist.
Variante 2:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Me.Range("B5:B25")) Is Nothing And Target.Cells.Count = 1 Then
Select Case Target.Address
Case "$B$5"
Call umschaltenBlatt(Target.Value, "Tabelle2")
Case "$B$6"
Call umschaltenBlatt(Target.Value, "Tabelle3")
'für jede Zelle eine weitere Case-Anweisung einfügen
Case Else
'do nothing
End Select
End If
End Sub
Private Sub umschaltenBlatt(Zellwert, Blatt As String)
If Zellwert = "" Then
Sheets(Blatt).Visible = False
Else
Sheets(Blatt).Visible = True
End If
End Sub

Hallo
mal zu den Unterschieden der einzelnen Versionen:
meine Version spricht die Sheets über den Namen an, indem die Zeilen-Nummer (um 3 vermindert) an den Standart-Text "Tabelle" angehängt wird. Hauptnachteil ist, daß du die Tabellennamen nicht frei wählen kanns.
Franzs Variante spricht die Sheets über die Index-Nr. an, was zur folge hat, daß die Sheetnamen zwar völlig unwichtig sind, dafür aber nicht mehr die Reihenfolge, dh wenn du bei Franz Version die Reihenfolge von Tabelle2 und Tabelle3 tauscht, steuert das Feld B5 nicht mehr Tabelle2 sondern Tabelle3 (bei meiner Version würde B5 auch weiterhin Tabelle2 steuern.
in der 3. Variante sprichst du die Tabellen direkt mit dem Sheetnamen an, was zur Folge hat, daß du den Namen zwar auch bliebig wählen kannst, die Reihenfolge egal ist, aber dafür der Code länger wird und du ebenso bei änderungen des Tabellennamens den Code anpassen musst.
Dieses Übel erspart dir nur Franzs Variante.
Gruß, Daniel

Private Sub Worksheet_Change(ByVal Target As Range) Dim Zelle As Range For Each Zelle In Target Select Case Zelle.Column = 2 And Zelle.Row <= 25 And Zelle.Row >= 5 Case True On Error Resume Next Sheets("Tabelle" & Zelle.Row - 3).Visible = (Zelle.Value <> "") On Error GoTo 0 Case False End Select Next End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

21 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellen ein- ausblenden wenn...

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

21 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread