Live-Forum - Die aktuellen Beiträge
Datum
Titel
12.05.2025 21:00:10
Daten aus zwei verschiedenen Exceldateien abgleichen
12.05.2025 20:17:36
Nummerierung bei Autofilter verwenden
12.05.2025 18:53:08
Mit Formel Maximalwert aus Quelldaten ermitteln
12.05.2025 17:30:25
Verknüpfungen aktualisieren: Geht und geht nicht??
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro nach Auswahl aus ListBox starten

Forumthread: Makro nach Auswahl aus ListBox starten

Makro nach Auswahl aus ListBox starten
23.09.2003 15:48:24
Winni
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
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
GUI-Element
Tags
#listbox #makros #navigation
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Makro nach Auswahl aus ListBox starten
23.09.2003 16:16:46
Karl-Otto Reimann
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.
Anzeige
AW: Makro nach Auswahl aus ListBox starten
24.09.2003 08:50:54
Winni
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
Anzeige
AW: Makro nach Auswahl aus ListBox starten
24.09.2003 11:09:52
Karl-Otto Reimann
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.
Anzeige
AW: Makro nach Auswahl aus ListBox starten
24.09.2003 13:44:20
Winni
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
AW: Makro nach Auswahl aus ListBox starten
25.09.2003 11:22:30
Karl-Otto Reimann
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.
Anzeige
AW: Makro nach Auswahl aus ListBox starten
25.09.2003 14:51:36
Winni
Hallo Karl-Otto,

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

Gruß

Winni

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige