Fallfenster zum Makros anhängen

• Fallfenster zum Makros anhängen von Thomas vom 08.12.2003 23:07:53
  • AW: Fallfenster zum Makros anhängen - von Josef Ehrensberger am 08.12.2003 23:25:23
    • Optionen 1-6 - von Thomas am 08.12.2003 23:42:11
      • AW: Optionen 1-6 - von Josef Ehrensberger am 09.12.2003 23:06:55

Betrifft: Fallfenster zum Makros anhängen
von: Thomas
Geschrieben am: 08.12.2003 23:07:53
Guten Abend allerseits,

Möchte ein Fallfenster auf einem Startblatt basteln, in dem man aus den Ziffern 1 - 6 auswählen kann (jede Ziffer steht für ein Szenario).

1. In der Steuerelemente-Toolbox finde ich nirgends ein solches Fallfenster. Wo bekomme ich ein solches Fenster her?

2. Hänge ich dann die einzelnen Makros an die Ziffern?; wo genau muss ich die Makros anhängen, mit denen ich dann bestimmte Spalten und Zeilen auf verschiedenen Blättern show / hide mache.

Kann mir jemand ein kleines Beispiel progen?

Herzlichen Dank für die Hilfe!

Thomas

Betrifft: AW: Fallfenster zum Makros anhängen
von: Josef Ehrensberger
Geschrieben am: 08.12.2003 23:25:23
Hallo Thomas,

für VBA - Nein hast Du dir viel vorgenommen!

Zum Einstieg hab ich Dir eine Beispielmappe erstellt.

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

Bei Fragen bitte melden!

Gruß Sepp

Betrifft: Optionen 1-6
von: Thomas
Geschrieben am: 08.12.2003 23:42:11
Hallo Sepp,

besten Dank für das Bsp. Möchte aber, dass im Fallfenster schon die Auswahl 1-6 besteht, also Szenario 1 angezeigt wird, falls der Benutzer keine Wahl vornimmt. Kannst du auch ein solches Bsp machen? Einfach im Fenster nur die Ziffern 1-6

Merci

Thomas

Betrifft: AW: Optionen 1-6
von: Josef Ehrensberger
Geschrieben am: 09.12.2003 23:06:55
Hallo Thomas,

ändere den Code folgendermassen.

Private Sub ComboBox1_Click()
Select Case ComboBox1.ListIndex
Case 0
MsgBox " Szenario 1 wurde gewählt!"
Case 1
MsgBox " Szenario 2 wurde gewählt!"
Case 2
MsgBox " Szenario 3 wurde gewählt!"
Case 3
MsgBox " Szenario 4 wurde gewählt!"
Case 4
MsgBox " Szenario 5 wurde gewählt!"
Case 5
MsgBox " Szenario 6 wurde gewählt!"
Case Else
End Select
End Sub

lösche diesen Code.

Private Sub Worksheet_Activate()
Dim intC As Integer
With ComboBox1
.Clear
For intC = 0 To 5
.AddItem intC + 1, intC
Next
End With
End Sub

und schreib in das Modul "DieseArbeitsmappe" diesen Code.

Private Sub Workbook_Open()
Dim intC As Integer
With Sheets(1).ComboBox1
.Clear
For intC = 0 To 5
.AddItem intC + 1, intC
Next
End With
Gruß Sepp

Excel-Beispiele zum Thema " Fallfenster zum Makros anhängen"
Start des Makros nach Laden der Arbeitsmappe	Makros in Abhängigkeit vom Zellennamen aufrufen
Makros zeitgesteuert aufrufen	CommandBar in Abhängigkeit vorhandener Makros erstellen
Makrostart bei Auswahl einer Zelle in Zeile 3	Makros aus einem Standardmodul in ComboBox einlesen