Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ListFeld Auswahl als Ereignis zur Makroausführung

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

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

Betreff
Datum
Anwender
Anzeige
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
Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige