Office: Makro nicht mehr von ComboBox,sonder aus Zelle

Hallo Schatzi, hallo liebe Gemeinde,

Private Sub WocheLaden_Change(ByVal Target As Range)
Dim objEingabe As Worksheet, objDaten As Worksheet
Dim lngR As Long, intC As Integer, lngEingabe As Long

Set objEingabe = Sheets("Eingabe") 'Eingabetabelle
Set objDaten = Sheets("Alle_Wochen") 'Datentabelle

If ComboBox1.ListIndex <> -1 Then
lngR = ComboBox1.ListIndex + 2 'Zeile im Blatt Alle_Wochen
For intC = 1 To 91
Select Case intC
...
...

so geht mein Makro los, wenn Daten geladen werden sollen.
Jetzt wollte ich es, da einfacherere Bedienung, das bei Änderung in "Eingabe" B7, das Makro gleich ausgeführt wird-ohne Umweg ComboBox. Wie ist der korrekte Anfang, da B7 ja im Blatt "Alle_Wochen" gesucht werden muß ab A2. Über die Form funzt´s ja schon.

Hier Cod der Form.
Private Sub UserForm_Activate()
With Sheets("Alle_Wochen")
ComboBox1.List = .Range("A2:A" & Application.Max(1, .Cells(Rows.Count, 1).End(xlUp).Row)).Value
End With
End Sub

Danke, silex1

 

Hallo!

Ich habe deine Tabelle jetzt nicht mehr im Kopf, aber ich versuch's trotzdem mal:
Um ein Makro durch eine Zelländerung zu starten, brauchst du ein Worksheet_Change()-Ereignis.
Rechtsklicke dazu den Tabellenreiter von "Eingabe" und wähle "Code anzeigen".
Über die beiden ComboBoxen über dem Codefenster kannst du "Worksheet" und "Change" einstellen und erhältst einen Coderumpf.
Nun musst du Excel noch mitteilen, um welche Zelle es sich handelt.
Das Ergebnis könnte z.B. so aussehen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Verlasse den Code, wenn die geänderte Zelle nicht B7 ist:
If Target.Address <> "$B$7" Then Exit Sub
'
'Dein Code
'
End Sub

 

Hallo Schatzi,

danke für die Erläuterung. Anbei noch mal die Mappe, da evtl besser zu verstehen.

mein Gedanke war, wie auch umgesetzt, statt Datum eingeben, dieses über ne Liste schon zu haben. Funzt.

Nun wollte ich, dass bei Änderung der Woche/Datum (B7) über diese Liste, sich auch die gespeicherten Daten der Woche laden. So wie halt über den Button "Woche laden".

So fallen einige Bedienungs-Schritte weg!

LG silex1

 

Hallo!

Wenn ich es recht verstehe, dann liegt es nur an der Definition von lngR.

Code:

lngR = ComboBox1.ListIndex + 1

Hier wird lngR der ListIndex zugewiesen.
Das muss geändert werden, indem du die Zeile in Blatt "Alle_Wochen" suchst in der das Datum aus B7 steht.
Das geht entweder über Formel
=VERGLEICH(Eingabe!B7;Alle_Wochen!A:A;0)
oder in VBA
Sheets("Alle_Wochen").Columns(1).Find(Sheets("Eingabe").Range("B7")).Row

(beide Vorschläge ungetestet...)

 

Danke dir Schatzi,

das fehlte mit (VBA).

Geh jetzt mal bastel und würde dir Morgen Rückmeldung geben.

LG silex1

 

Hallo Schatzi,

jetzt funzt´s. Hab zwar einige Stunden benötigt, aber jetz ist´s hübsch so.

Danke von mir und meinen 3 Gehirnzellen, Lg silex1