Schleife - Wenn funktion mit zwei Bedingungen

Hallo,
nach dem Dieter mir bei der Erstellung des SVerweis Makros geholfen hat und jetzt funktioniert.
Möchte ich es weiter optimieren.
Herausforderung:
In der Spalte C befinden sich Zellen mit dem Wert 0.
Darauf hin wird in gleichen Zeile in der Spalte F ein Datum eingetragen.
Aber nur dann wenn in der Spalte G keine 1 eingetragen ist.
Das Datum steht in der in der Zeile, wo der die erste 0 in der Spalte C gefunden wird.
Lösungsansatz:
In der Spalte C eine Schleife durchlaufen lassen, Dann mit der ersten Wenn-Funktion prüfen ob eine 0 als Wert in der Zelle eingetragen ist. Wenn diese erfüllt ist wird die zweite Wenn Funktion aktiviert und überpürft ob in der Spalte G eine 0 oder 1 steht.
Wenn beide Bedingungen erfüllt sind, soll das Datum was in der ersten Zelle in der Spalte F wo sich eine 0 in der Spalte C befindet in die darauf folgenden zellen, mit einem Wert 0 in Spalte C kopiert werden.
Ist es möglich eine Schleife mit zwei wenn - Funktion durchlaufen zu lassen ?
Kann jemand einen Lösungsansatz mit einem Code posten
Vielen Dank
Gruß Mike

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub machen() Dim a, z&, t&, d Const uebZ = 1 z = Range("C" & Rows.Count).End(xlUp).Row If z 0 t = t + 1 Wend d = a(t, 4) If Not IsDate(d) Then MsgBox "Kein Datum": Exit Sub If t > UBound(a) - 1 Then MsgBox "keine weiteren Daten": Exit Sub For z = t + 1 To UBound(a) If a(z, 1) = 0 And a(z, 5) 1 Then Range("F" & z) = d Next End Sub

Hallo Mike,
die Zeile

If a(z, 1) = 0 And a(z, 5)  1 Then Range("F" & z) = d

weist der Zelle in F ja nur einen Wert zu, ohne das Format zu ändern - d.h. wenn Du die ganze Spalte einfach so (ohne Makro) wie gewünscht formatierst, sollte das auch tun.
Ansonsten: Numberformat mit "MM/TT/JJJJ" (mit deutschen Buchstaben), oder man drückt sich um die ganze Geschichte und kopiert einfach die erste, gefundene Zelle:

Sub machen()
Dim a, z&, t&, d
Const uebZ = 1
Dim gemerkt As Range
z = Range("C" & Rows.Count).End(xlUp).Row
If z  0
t = t + 1
Wend
'd = a(t, 4) ' ersetzt durch nächste Zeile
Set gemerkt = Range("F" & t)
'If Not IsDate(d) Then MsgBox "Kein Datum": Exit Sub ' ersetzt
If Not IsDate(gemerkt) Then MsgBox "Kein Datum": Exit Sub
If t > UBound(a) - 1 Then MsgBox "keine weiteren Daten": Exit Sub
For z = t + 1 To UBound(a)
If a(z, 1) = 0 And a(z, 5)  1 Then gemerkt.Copy Range("F" & z) '***
If a(z, 1)  0 And a(z, 4)  "" Then Range("F" & z) = Empty
Next
End Sub

...was so natürlich nur Sinn macht, wenn das Datum als WERT, nicht als Formel drinsteht, sonst mit copy/paste values and formats.
Gruß,
Michael
P.S.: falls die Geschichte zickt, wäre ne Beispieldatei doch hilfreich.

Beliebteste Forumthreads (12 Monate)

Schleife - Wenn funktion mit zwei Bedingungen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

357 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Schleife - Wenn funktion mit zwei Bedingungen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

357 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread