Office 2016 2 Tabellen, wenn eine genutzt andere unsichtbar machen

[Lisa.T.]

Hallo, ich hab noch eine Sache, ich brauche einen Code:

Ich hab 2 Tabellen in excel:
1. Tabelle von H-V und 10-19
2. Tabelle von H-R und 20-31

Sobald in Feld 19UV (verbundene Zellen) eine Zahl erscheint, soll Tabelle 2 verschwinden
Solbald in Feld 31QR(verbundene Zellen) eine Zahl erscheint, soll Tabelle 1 verschwinden
Wird nix eingetragen, sollen beide Tabellen da sein.

Danke für die Bemühungen
Gruß Lisa

[mumpel]

Hallo!

Auch hier kann man wieder mit Worksheet_Change arbeiten. Stellt sich jetzt die Frage in welcher der Tabellen Du den Code aus Deinem anderen Thread einsetzt. Wichtig dabei ist dass eine Tabelle immer sichtbar sein MUSS.

Gruß, René

[Lisa.T.]

Hallo,

Ist ja richtig. Wieder mit so einem Code.

Die Tabellen sollen "leer" beide sichtbar sein.
Sobald ich aber eine davon nutze, zb. Tabelle 1 (ich nutze Tabelle eins, 19UV ergibt eine Summe) soll die 2. verschwinden.
Nutze ich Tabelle 2 (31QR ergibt eine Summe) soll Tabelle 1 verschwinden.
Daher ist ja eine immer sichtbar.

Brauchen dann nicht beide Tabellen einen extra Code?? Bzw. die Felder 19UV und 31QR??
Danke für die Bemühungen.

Gruß Lisa

[mumpel]

(...) Brauchen dann nicht beide Tabellen einen extra Code?? (...)

Wenn Du den Code von gestern in beiden Tabellen nutzt kann man daraus eine Prozedur (Workbook_SheetChange) machen die dann im Modul der Arbeitsmappe ("DieseArbeitsmappe") abgelegt wird. Ich habe Dir mal eine Beispieldatei agehängt.

Wenn die Summen durch eine Formel errechnet werden ist die Zelle nie leer. Du gibst die Summe also manuell ein? Sonst müsste man auf > 0 prüfen.

Edit: Anhang gelöscht wegen Neuerstellung.

[Lisa.T.]

ja ok also ich leg den Code in der Arbeitsmappe dann ab und ja stimmt muss dann >0 sein.
Kannst du den Code nochmal schicken, dass ich ihn einfach kopieren kann??
Oder ist das jetzt der richtige in der Beispieldatei??

Gruß Lisa

[mumpel]

Code: [Auswählen]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal target As Range)
   Dim DiffTage As Integer
   
   If target.Address = "$G$3" Then
      If Left(target.Value, 1) = "h" Then
         If Len(target) > 1 Then
            DiffTage = CInt(Right(target, Len(target) - 1))
         End If
         target.Value = Date + DiffTage
      End If
   ElseIf target.Address = "$C$5" Then
     Application.EnableEvents = False
       With target
           .Value = CDate(Left(Format(target, "0000"), 2) & ":" & Right(target, 2))
           .NumberFormat = "[hh]:mm"
       End With
    Application.EnableEvents = True
  End If
 
 
  If Sheets("Tabelle1").Range("U19").Value > 0 Then
     Sheets("Tabelle2").Visible = xlVeryHidden
  Else
     Sheets("Tabelle2").Visible = True
  End If
 
  If Sheets("Tabelle2").Range("Q31").Value > 0 Then
     Sheets("Tabelle1").Visible = xlVeryHidden
  Else
     Sheets("Tabelle1").Visible = True
  End If
 
End Sub


[Lisa.T.]

Hallo, ich bekomm es nicht hin :-(

Hab ich so abgespeichert unter Arbeitsmappe. Jetzt sagt er Laufzeitfehler '9' wenn ich in der Tabelle einen Wert eingebe und wenn ich debuggen anklicke macht er Folgendes gelb:

If Sheets("Tabelle1").Range("U19").Value > 0 Then

Kann man da noch was machen? Die Tabelle vll hochladen zum besseren Verständnis??
Oder ist das "mission impossible" mit meinem hilflosen Kenntnisstand? :-)
War auch nur ein Luxus, dass die Tabelle verschwindet geht zur Not auch so...

[mumpel]

Sollte eigentlich nicht passieren.