Bei Veränderung in Eingabemaske Makro in anderer Tabelle aus :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Bei Veränderung in Eingabemaske Makro in anderer Tabelle aus

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

trottlbua
Besserwisser

Anmeldedatum: 31.01.2007
Beiträge: 82

Verfasst am: 02.09.2008, 09:15

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

_________________
Mfg
Lucky

Arbeit: Office 2003, @home: Office 2007

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 435
Wohnort: Kiel

Verfasst am: 02.09.2008, 10:36

trottlbua hat Folgendes geschrieben:

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.

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. Wink

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

undo-Puffer.xls

Beschreibung:

Download

Dateiname:

undo-Puffer.xls

Dateigröße:

33.5 KB

Heruntergeladen:

13 mal

trottlbua
Besserwisser

Anmeldedatum: 31.01.2007
Beiträge: 82

Verfasst am: 02.09.2008, 11:36

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!

_________________
Mfg
Lucky

Arbeit: Office 2003, @home: Office 2007

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Excel Tabelle in Word	lizzi	Microsoft Word Hilfe	0	20.11.2008, 14:17
	Tabelle --> Diagramm	Busta	Microsoft Excel Hilfe	2	19.11.2008, 12:14
	Tabelle nach Seitenumbruch in 2. Zeile	OmaWetterwachs	Microsoft Word Hilfe	0	19.11.2008, 09:43
	VBA-Makro: Kalendereintrag kopieren?	SvenZ	Microsoft Outlook Hilfe	9	18.11.2008, 10:16
	Daten aus html-Tabelle in Excel impor...	eis33	Microsoft Excel Hilfe	2	13.11.2008, 16:08

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de