Herbers Excel-Forum - das Archiv
Makro nach Auswahl aus ListBox starten
Informationen und Beispiele zu den hier genannten Dialog-Elementen:

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