Office: Bei Veränderung in Eingabemaske Makro in anderer Tabelle aus

Hallo Excelfreunde!

Wieder mal ein Problem:

Ich habe in Tabelle9 ein Listenfeld wo man zwischen den Modelltypen umschalten kann - je nach Modelltyp sollen Zeilen ein- und ausgeblendet werden. Bis jetzt hab ich es so gemacht, dass jedes mal wenn Tabelle8 aktiviert wurde, überprüft wurde welcher Modelltyp einzustellen ist (Worksheet_Activate).

Jedoch ist dabei das Problem, dass jedes mal das "Rückgängig machen" nicht verfügbar ist, da das Makro ausgeführt wird. Das ist leider nicht sehr Userfreundlich.

Ich habe mir gedacht, es sollte doch Möglich sein, dass ich bei einer Veränderung in Tabelle9 in der Zelle E15 die Anpassungen automatisch in Tabelle8 vornehmen.

Mein Code:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'hier werden die nicht benötigten Zeilen im Modell bei Umschalten des Modelltyps aus- oder eingeblendet

If Target.Address = "$E$15" Then
Tabelle8.Activate

If Range("Modellart") = "Pumpspeicher" Then
Range("Pumpmenge_ausblenden").EntireRow.Hidden = False
Range("Pumpmenge_ausblenden1").EntireRow.Hidden = False
Range("NSDL_ausblenden").EntireRow.Hidden = False
Range("NSDL_ausblenden1").EntireRow.Hidden = False
Range("Abschlag_base").EntireRow.Hidden = True
Range("Erl_Speicher").EntireRow.Hidden = False

Else
If Range("Modellart") = "Lauf" Then
Range("Abschlag_base").EntireRow.Hidden = False
Range("Pumpmenge_ausblenden").EntireRow.Hidden = True
Range("Pumpmenge_ausblenden1").EntireRow.Hidden = True
Range("NSDL_ausblenden").EntireRow.Hidden = True
Range("NSDL_ausblenden1").EntireRow.Hidden = True
Range("Erl_Speicher").EntireRow.Hidden = True

Else
If Range("Modellart") = "Speicher" Then
Range("Abschlag_base").EntireRow.Hidden = True
Range("Pumpmenge_ausblenden").EntireRow.Hidden = True
Range("Pumpmenge_ausblenden1").EntireRow.Hidden = True
Range("NSDL_ausblenden").EntireRow.Hidden = True
Range("NSDL_ausblenden1").EntireRow.Hidden = True
Range("Erl_Speicher").EntireRow.Hidden = False
Else
Range("Pumpmenge_ausblenden").EntireRow.Hidden = False
Range("NSDL_ausblenden").EntireRow.Hidden = False
Range("Pumpmenge_ausblenden").EntireRow.Hidden = False
Range("NSDL_ausblenden1").EntireRow.Hidden = False
Range("Abschlag_base").EntireRow.Hidden = False
Range("Erl_Speicher").EntireRow.Hidden = False

End If

End If

End If

End If
Tabelle9.Activate
End Sub

Vielen Dank schon mal die Antworten!

Lg
Herbert

 

Re: Bei Veränderung in Eingabemaske Makro in anderer Tabelle

Ich verstehe jetzt nicht so ganz unbedingt die Frage, die in Deinem Posting steckt. Das mag aber auch daran liegen, daß es ziemlich wenige "?" enthält. ;-)

Aber mal so als erstes: Du benutzt worksheet_change, um dann dort e15 abzuprüfen. Es geht nicht so ganz klar daraus hervor, aber ist e15 die "linkedcell" Deiner Combobox? Wenn ja, dann würde ich Dir das Ereignis combobox_change empfehlen. Das wird dann wenigstens nicht jedesmal aufgerufen, wenn sich irgendwo in dem Blatt was ändert.

Über combobox_change die Zeilen ein- und ausblenden klappt hervorragend, siehe Anhang. Das war also wohl auch nicht Dein Problem, oder?

Also tippe ich mal auf den geleerten Undo-Puffer... Das war mir bislang nie so wirklich störend aufgefallen, aber stimmt, das Ding ist immer leer, nachdem "zeilenansichjt_anpassen" aufgerufen wurde.

Das liegt wahrscheinlich daran, daß Excel Änderungen, die per Code durchgeführt wurden, nicht rückgängig machen kann und deswegen, bevor Murks passiert, das Undo lieber kpl. deaktiviert bis dahin. Sonst könnte Undo ja die "vorletzte" Aktion rückgängig machen (die "letzte" wäre dann die durch Code), und das könnte Kuddelmuddel geben. (Reine Interpretation, wissen tue ich es auch nicht).

Gruß, Michael

 

Servus Michael!

Danke für die schnelle Antwort! Ich benutze keine Combo Box in e15 sondern eine Liste aus der Gültigkeitsprüfung.

Habe jetzt eine Combo Box eingebaut - sobald die geändert wird, wird das Makro zum ein/ausblenden der Zeilen im Modul aufgerufen.

Vielen Dank - mit deinem Hinweis funktionierts!