Herbers Excel-Forum - das Archiv

Makro nach Auswahl aus ListBox starten

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ComboBox ListBox
Bild

Betrifft: Makro nach Auswahl aus ListBox starten
von: Winni
Geschrieben am: 23.09.2003 15:48:24
Hallo an die Profi´s,

Ich komme gerade auf den Punkt. Ich habe eine Exceltabelle mit diversen Tabellenblättern; ich möchte nun von einem mit Namen "Navgation" auf ein Tabellenblatt mit Namen "Monatsübersicht" springen, in dem Umsatzzahlen von Januar bis Dezember hinterlegt sind. Hiernun meine Fragen...........

1. Frage : Wie kann ich eine ListBox mit den Einträgen von "Januar, Februar etc." erstellen.

2. Frage : Kann ich diese Per Makro aufrufen.

3. Frage : Wie erstelle ich ein Makro, dass aufgrund der Auswahl z.b. des Monats August in der ListBox im Tabellenblatt "Navigation" in das Tabellenblatt "Monatsübersicht" auf den richtigen Monat springt ?

An dieser Stelle schon mal einen Dank im Voraus...............

Gruß

Winni

Bild

Betrifft: AW: Makro nach Auswahl aus ListBox starten
von: Karl-Otto Reimann
Geschrieben am: 23.09.2003 16:16:46
Hallo Winni
Hier ein Beispiel für eine ComboBox:



Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Sheets("Tabelle1").Rows("1:100").ClearContents
With Sheets("Tabelle2").Range("A1")
.AutoFilter Field:=3, Criteria1:=ComboBox1.Value
Sheets("Tabelle2").Range("a11").CurrentRegion.Copy
Sheets("Tabelle1").Range("A1").PasteSpecial Paste:=xlValues
Range("A1").Select
End With
ActiveWindow.LargeScroll Down:=-10
Application.CutCopyMode = False
End Sub



Beim Rechtsklick im Entwurfsmodus auf die ComboBox
öffnet sich das Eigenschaftsfenster. Unter "ListFillRange"
trägst Du den in der Box erscheinenden Tabellenbereich
ein, also z.B. "Tabelle2!A1:A20". Im obigen Beispiel
nimmt Value den von Dir gewählten Eintrag und filtert
in Spalte 3 danach.

Glück Auf
K.O.
Bild

Betrifft: AW: Makro nach Auswahl aus ListBox starten
von: Winni
Geschrieben am: 24.09.2003 08:50:54
Hallo Karl-Otto,

danke für Deinen Tip, bin gut damit zurecht gekommen. Hat mit aber wenig für mein Konzept gebracht. Ich habe die Tabelle um die es geht mal beigeügt damit Du dir ein Bild von meiner Vortstellung machen kannst.

Wenn Du diese Tabelle öffnest, siehst Du das Tabellenblatt "Navigation" -die anderen sind ausgeblendet-. Hier wiederum ist der Button "Detailübersicht" erstmal relevant, ich möchte nun, dass wenn ich diesen Button anklicke, mir die Monate aus dem Tabellenblatt "Detailübersicht" in einer Auswahl angezeigt werden. Wenn dann z.b der Monat August ausgewählt ist, möchte ich autom. in das Tabellenblatt "Detailübersicht" auf den ausgewählten Monat kommen können.

So, dass ist mein Problem. Ich weis es ist starker Tubak, aber vielleicht kannts ja Du oder jemand anders mir helfen. Im Anhang ist die Datei

https://www.herber.de/bbs/user/1146.xls

Danke und Gruß

Winni
Bild

Betrifft: AW: Makro nach Auswahl aus ListBox starten
von: Karl-Otto Reimann
Geschrieben am: 24.09.2003 11:09:52
Hallo Winni

Ich kann in Deine Datei keine Steuerelemente einfügen, es stürzt sofort ab.
Füg doch im Blatt Detailübersicht 12 kleine Schaltflächen ein, auf die Du
nur einen Buchstaben für den Monat schreibst. Diesen Schaltflächen ordnest Du
folgende Makros zu:



Sub Auswahl_Jan()
Sheets("Detailübersicht").Columns("H:CG").Hidden = True
Sheets("Detailübersicht").Columns("H:M").Hidden = False
End Sub




Sub Auswahl_Feb()
Sheets("Detailübersicht").Columns("H:CG").Hidden = True
Sheets("Detailübersicht").Columns("N:S").Hidden = False
End Sub




Sub Auswahl_Alle()
Sheets("Detailübersicht").Columns("H:CG").Hidden = False
End Sub



Gruß
K.O.
Bild

Betrifft: AW: Makro nach Auswahl aus ListBox starten
von: Winni
Geschrieben am: 24.09.2003 13:44:20
Hallo Karl-Otto,

einen erneuten Dank für Deine Hilfe. Deine Vorschläge sind eingearbeitet und funktionieren.

Siehst Du eine Möglichkeit direkt aus der Navigation auf den entsprechenden Monat in der Detailansicht zu springen ?

Gruß

Winni
Bild

Betrifft: AW: Makro nach Auswahl aus ListBox starten
von: Karl-Otto Reimann
Geschrieben am: 25.09.2003 11:22:30
Hallo Winni
Die Buttons kommen direkt auf das Navigations-Blatt.



Sub Auswahl_Jan()
With Sheets("Detailübersicht")
.Select
.Columns("H:CG").Hidden = True
.Columns("H:M").Hidden = False
End With
End Sub



Glück Auf
K.O.
Bild

Betrifft: AW: Makro nach Auswahl aus ListBox starten
von: Winni
Geschrieben am: 25.09.2003 14:51:36
Hallo Karl-Otto,

kann ich das so verstehen, dass ich nun 12 Buttons in die Navigation einbauen muss ?

Gruß

Winni
 Bild
Excel-Beispiele zum Thema " Makro nach Auswahl aus ListBox starten"
Zellinhalt suchen und Zelle auswählen Mehrfachauswahl aus ListBox auslesen
Die Zelle mit dem höchsten Wert Auswählen Mehrbereichsauswahl auf eine Seite drucken.
Spalten einer Mehrbereichsauswahl ausblenden. Tabellenblatt auswählen
Mehrfachauswahl im Hoch- und Querformat drucken Laufwerk über InputBox auswählen
Bereiche bei Mehrfachauswahl prüfen Gefilterte Daten in eine ListBox einlesen