Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: Lisa.T. am Oktober 25, 2015, 00:56:21 Vormittag
-
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
-
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é
-
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
-
(...) 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.
-
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
-
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
-
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...
-
Sollte eigentlich nicht passieren.