Kombination Dropdown und Formel

Hallo zusammen,
ich stehe vor folgender Excel-Herausforderung:
Es wird für jeden Monat ein separates Tabellenblatt in einer Datei erstellt, also eins für Januar, eins für Februar etc.
Auf dem Januar-Blatt steht nun in Zelle A1 der Name "Müller". Der Sachbearbeiter wählt auf dem Januar-Blatt in Zelle B1 per Dropdown den Wert "Zahlungsverzug" aus. Über diese Dropdown Auswahl stehen prinzipiell noch mehrere mögliche Einträge zur Verfügung.
Auf dem Februar-Blatt steht nun in Zelle A1 auch wieder "Müller". Es soll nun in Zelle B1 der Wert aus B1 aus Januar angezeigt werden, also "Zahlungsverzug". Also quasi der Status des Vormonats. Per Formel natürlich leicht zu lösen.
Die Schwierigkeit ist jetzt die, dass der Sachbearbeiter nun die Möglichkeit haben soll, diesen Wert in B1 auf dem Februar Blatt zu überschreiben, aber halt auch per Dropdown Auswahl. D.h. die Zelle B1 auf dem Februar Blatt müsste eine SVERWEIS Formel und eine Dropdownmöglichkeit kombinieren.
Es wäre übrigens kein Problem, wenn die Zelle nach der Überschreibung per Dropdown die Formel "vergisst".
Hat hier jemand eine Idee?
Ich hatte auch schon überlegt, per Hilfsspalte den Januar Wert an den Anfang der Dropdownliste zu setzen (was auch funktioniert). Aber leider blendet Excel nicht den ersten Wert der Liste automatisch ein, sondern er müsste erst manuell ausgewählt werden...
Vielen Dank schon mal vorab.
Viele Grüße
Dominic

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Dominic,
hier der Code:
Dieser Code in "DieseArbeitsmappe":

Private Sub Workbook_NewSheet(ByVal Sh As Object)
'Fügt das Makro in ein neu erstelltes Arbeitsblatt ein
Dim x As Integer
With Workbooks(ThisWorkbook.Name).VBProject.VBComponents(Sh.Name).CodeModule
x = .CreateEventProc("Activate", "Worksheet")
.InsertLines x + 1, "Dim ws As Worksheet"
.InsertLines x + 2, "For Each ws In ThisWorkbook.Worksheets"
.InsertLines x + 3, "If Range(""A1"").Value = ws.Range(""A1"").Value Then"
.InsertLines x + 4, "Range(""B1"").Value = ws.Range(""B1"").Value"
.InsertLines x + 5, "Else"
.InsertLines x + 6, "End If"
.InsertLines x + 7, "Next"
End With
End Sub

Dieser Code in jedes bestehende Tabellenblatt:

Private Sub Worksheet_Activate()
'wechselt beim Aktivieren des Arbeitsblattes den Wert der Zelle B1 in Bezug auf den Wert in A1
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If Range("A1").Value = ws.Range("A1").Value Then
Range("B1").Value = ws.Range("B1").Value
Else
End If
Next
End Sub

Hab gerade keine andere Idee wie es möglich ist.
Gruß Marc

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread