ListFeld Auswahl als Ereignis zur Makroausführung

Forumthread: ListFeld Auswahl als Ereignis zur Makroausführung

01.03.2007 13:33:58

Stefan

Hallo zusammen,
habe hier eine kleine Herausforderung:
In einer Jahrsübersicht (3 Spalten je Monat) kann man sich über eine extra Zelle mit List-Funktion (Drop-Down) einen bestimmten Monat wählen. Dem ausgewähltem Monat entsprechende soll dieser in der Jahresübersicht hervorgehoben werden (Rahmen drum usw.).
Die Formatierung der einzelnen Monate kann ich über den Recorder aufnehmen und abspielen lassen. Wenn ich jetzt allerdings die unterschiedlichen Makros anspreche (nutze die Call funktion) indem ich aus der Drop-Down Liste einen Eintrag wähle, werden diese nicht ausgeführt.
Sinngemäß:
If Range (A1) = Januar Then Call FormatierungJan Else
If Range (A1) = Februar Then Call FormatierungFeb Else
Etc.
Hat jemand eine Lösung?
Danke im Voraus.
Gruß,
Stefan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: ListFeld Auswahl als Ereignis zur Makroausführung

01.03.2007 13:44:41

Rudi

Hallo,
extra Zelle mit List-Funktion
Vermutlich Daten-Gültigkeit, oder?
Wenn du da was auswählst, tritt worksheet_Change ein.
Nicht if then else if then else...
Select Case Range("A1")
Case "Januar": FormatierungJan
Case "Februar": FormatierungFeb
'etc.
End Select
Noch viel eleganter:
Sub Formatierung(Monat)
und
Call Formatierung(Range("a1"))
mit von Monat abhängigen Bereichen (kann man ja einfach ausrechnen).
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: ListFeld Auswahl als Ereignis zur Makroausführung

01.03.2007 14:16:00

Stefan

Hallo Rudi,
stimmt genau, meinte diesen Punkt Gültigkeit. Habe gerade deinen Code eingegeben, aber bei Auswahl eines Monats passiert nichts:


Sub Bedingung1()
Select Case Range("A4")
Case "Januar": FormatierungJan
Case "Februar": FormatierungFeb
End Select
End Sub

Irgendwas im Code falsch? Bin leider kein VBA-Fuchs, entsprechend hilflos.
Danke und Gruß,
Stefan

AW: ListFeld Auswahl als Ereignis zur Makroausführung

01.03.2007 14:28:00

Rudi

Hallo,
Rechtsklick auf den Tabellenreiter-Code anzeigen und das hier reinkopieren:


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A4" Then
Select Case Target
Case "Januar": FormatierungJan
Case "Februar": FormatierungFeb
End Select
End If
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: ListFeld Auswahl als Ereignis zur Makroausführung

01.03.2007 15:15:00

Stefan

Klappt. Vielen Dank!
Gruß,
Stefan

Beliebteste Forumthreads (12 Monate)

ListFeld Auswahl als Ereignis zur Makroausführung

Forumthread: ListFeld Auswahl als Ereignis zur Makroausführung

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread