Dropdownfeldänderung Makro starten Select Case-Methode

[Johann]

Hallo zusammen,

ich bin der Johann aus Halle und habe mal wieder ein Makro-Problem:

Ein Makro soll bei Auswahl eines bestimmten Wertes in einem
Dropdown-Feld aktiviert werden:

Dabei stehen im Dropdownfeld die Monate Januar bis Dezember. Bei jedem
Monat müssen dann unterschiedliche Zellen eingeblendet bzw.
ausgeblendet werden.

Ich will dies per "Select case"-Auswahl lösen:

Select Case "Wert des Dropdownfeld"

Case "Januar"
.
.
.
.
Case "Februar"
.
.
.
.
.
etc.

Nun weiß ich aber nicht wie der Select Case Befehl zur Bestimmung des
Wertes im Dropdownfeld heißt !

Kann mir hier bei diesem Schalmassel bitte helfen ??

Vielen Dank schonmal,

viele Grüße aus Halle vom Johann

[Thomas Ramel]

Grüezi Johann

Johann schrieb am 30.09.2004

Post by Johann
Ein Makro soll bei Auswahl eines bestimmten Wertes in einem
Dabei stehen im Dropdownfeld die Monate Januar bis Dezember. Bei jedem
Monat müssen dann unterschiedliche Zellen eingeblendet bzw.
ausgeblendet werden.

Wie wurde der DropDown denn erstellt?
Über Daten --> Gültigkeit --> Liste?

Wenn Du eine Excel-Version >=xl2000 verwendest, dann kannst du mit dem
Worksheet_Change() Ereignis des Tabellenblattes wie folgt arbeiten:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "C3" Then Exit Sub
Select Case Target.Value
Case "Januar"
'Dein Code
Case "Februar"
'Dein Code
'....

End Select
End Sub

[Johann]

habe dir grad ne mail geschrieben....

komme noch nicht weiter...

gruß johann

[Thomas Ramel]

Grüezi Johann

Johann schrieb am 30.09.2004

Post by Johann
habe dir grad ne mail geschrieben....

Das ist nicht das Vorgehen, das in der NG geschätzt wird; auch verbaust Du
dir so die Mithilfe derer, die hier ebenfalls mitlesen...

Post by Johann
Ich schicke dir mal anbei meinen bisherigen Code.
Würde mich freuen wenn Du mir helfen könntest.....

Das mache ich gerne - aber hier in der NG ;-)

Post by Johann
Es soll bei Auswahl des entsprechenden Monats im DD-Feld entweder
Sub Dropdown5_BeiÄnderung() '
' Makro am 29.09.2004 erstellt
'
Select Case ActiveSheet.Shapes("Drop Down 5").Select
Case "October" Cells.Select
Cells.Select
Selection.EntireColumn.Hidden = False
Columns("G").Hidden = True
Columns("H").Hidden = True
Columns("M").Hidden = True
Columns("N").Hidden = True
Columns("S").Hidden = True
Columns("T").Hidden = True
Columns("Y").Hidden = True
Columns("Z").Hidden = True
Range("B8").Select
Case "November"
..... [Rest gesnippt]

Du hast auch die Nachfragen noch nicht beantwortet.
Offenbar ist das DropDown-Feld nicht eines mittels Daten-->Gültigkeit.

Woher hast du das Steuerelement?
Befindest Du dich auf dem Tabellenblatt oder in einer Userform?
Mit welcher Excel-Version arbeitest Du?

[Johann]

hallo thomas,

sorry, habe das mit den gewohnheiten in der ng noch nicht gewußt...

aber werde mich in zukunft daran halten....

Post by Thomas Ramel
Du hast auch die Nachfragen noch nicht beantwortet.
Offenbar ist das DropDown-Feld nicht eines mittels Daten-->Gültigkeit.
Woher hast du das Steuerelement?
Befindest Du dich auf dem Tabellenblatt oder in einer Userform?
Mit welcher Excel-Version arbeitest Du?

Ich arbeite mit excel 2000 version und habe das dropdownfeld aus der
menuleiste formular....es ist auf dem tabellenblat auf welcher die
spalten ein und ausgeblendet werden sollen....die werte bezieht es aus
einer versteckten hilfstabelle...

hoffentlich hilft dir das weiter...

grüße aus halle vom johann

[Thomas Ramel]

Grüezi Johann

Johann schrieb am 01.10.2004

Post by Johann
sorry, habe das mit den gewohnheiten in der ng noch nicht gewußt...
aber werde mich in zukunft daran halten....

Kein Problem :-)

Post by Johann

Post by Thomas Ramel
Woher hast du das Steuerelement?
Befindest Du dich auf dem Tabellenblatt oder in einer Userform?
Mit welcher Excel-Version arbeitest Du?

Ich arbeite mit excel 2000 version und habe das dropdownfeld aus der
menuleiste formular....es ist auf dem tabellenblat auf welcher die
spalten ein und ausgeblendet werden sollen....die werte bezieht es aus
einer versteckten hilfstabelle...

Gut; das hatte ich mir so gedacht.
Verwende die Elemente aus der Steuerelemente-Toolbox anstelle der
Formular-Elmente.
Hier wäre dies die Combobox. Lege in deren Eigenschaften den 'Listillrange'
aus der Hilfstabelle fest (z.B. A1:A12) und gib in 'LinkedCell' die Adresse
der Zellverküpfung an (z.B. C3).
Dann kannst Du den Code aus meinem ersten Beitrag verwenden:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "C3" Then Exit Sub
Select Case Target.Value
Case "Januar"
'Dein Code
Case "Februar"
'Dein Code
'....

End Select
End Sub

[Johann]

hallo thomas,

hat funktioniert !!!!

danke und grüße sagt der johann aus halle

[Thomas Ramel]

Grüezi Johann

Johann schrieb am 04.10.2004

Post by Johann
hallo thomas,
hat funktioniert !!!!
danke und grüße sagt der johann aus halle

Aber immer gerne doch :-)

[Stefan Heik]

Hallo Newsgroup

ich habe ein ähnliches Problem, deshalb hänge ich meine Frage gleich an
diesen Thread an. Ich möchte ebenfalls bei Wertänderung einer Zelle ein
Makro ausführen lassen. Die Zelle ist mit einer Gültigkeit (Liste) belegt.
Kann ich nun ebenso verfahren wie bei einer Dropdownliste?
Wenn ja, könnte jemand den kompletten Code posten, mit dem ich dann das
Makro anspreche? Dieses Problem ist mir absolut nicht klar. Steuerelement
schön und gut, aber wie wenn es ohne gehen soll? :-)

MfG Stefan

[Thomas Ramel]

Grüezi Stefan

Stefan Heik schrieb am 06.10.2004

Post by Stefan Heik
ich habe ein ähnliches Problem, deshalb hänge ich meine Frage gleich an
diesen Thread an. Ich möchte ebenfalls bei Wertänderung einer Zelle ein
Makro ausführen lassen. Die Zelle ist mit einer Gültigkeit (Liste) belegt.
Kann ich nun ebenso verfahren wie bei einer Dropdownliste?
Wenn ja, könnte jemand den kompletten Code posten, mit dem ich dann das
Makro anspreche? Dieses Problem ist mir absolut nicht klar. Steuerelement
schön und gut, aber wie wenn es ohne gehen soll? :-)

Der Gültigkeits-DropDown ist ja ebenfalls an eine Zelle gebunden; passe
daehr die Zelladresse der Ereignis-prozedur einfach an diese Zelladresse
an, dann müsste es schon klappen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "C3" Then Exit Sub

Call 'Deinmakro'

End Sub