Hallo liebe Forumsgemeinde,
bei folgender Schleife habe ich beim Schlussteil ein Problem:
For f = 6 To ActiveSheet.UsedRange.Rows.Count
If Cells(f, 2).Value < Datum_AKT And Datum_AKT - Cells(f, 2).Value <= 4 And Datum_AKT - Cells(f, 2).Value >= 0 _
Then <b><i>Cells(f, 2).Offset(0, 1).Value = g And Cells(f, 2).Offset(0, 2).Value = m</i></b>
Next f
ich schreibe: Then Cells(f, 2).Offset(0, 1).Value = g And Cells(f, 2).Offset(0, 2).Value = m
Dann sind zwar die richtigen Werte in g und m gespeichert, aber der Übertrag der Inhalte von g und m in die jeweiligen Zellen funktioniert nicht bzw. es wird nur ein falscher Wert für g (0 anstatt 2,5) in die Zielzelle von g eingefügt, in die Zielzelle von m wird kein Wert eingefügt (obwohl hier 2,5 = der Wert von m eingefügt werden müsste).
Wo habe ich den Fehler?
Kann mir jemand weiter helfen?
Grüße
Lars