|
Hallo zusammen ich bin nicht so der Crack was Makros angeht und hab hier n porblem das ich nicht hinbekomme.
Könnt Ihr euch bitte folgende Funktion ansehen und mir ggf. sagen, warum es das Ergebnis IMMER in die erste angegebene Zeile schreibt und nicht dem Loop folgt?
Sub Freezes()
Dim a As Integer
Dim b As Integer
For a = 0 To 50
For b = 0 To 50
If Sheets("Meilensteinsliste").Cells(4, 2 + a) = Sheets("Datenblatt").Range("E15") Then
Sheets("Meilensteinsliste").Cells(19, 2 + b) = Sheets("Datenblatt").Range("D15")
Exit For
Exit For
End If
Next b
Next a
End Sub
Kurze Erklärung: Wenn B4=E15, dann zeigt B19=D15 an.
Zur Erklärung: Die Funktion sagt, dass wenn in der Mappe „Meilensteinsliste“ die Zelle (4,2+a)=B4+a (weiterführend zu C4, etc.) gleich der Zelle E15 in der Mappe „Datenblatt“ ist, dann
Soll der Inhalt der Zelle D15 der Mappe „Datenblatt“ in die Zelle (19,2+b)=B19+b (weiterführend zu C19, etc.) übertragen werden.
Sonst:
Soll der Loop weitergeführt werden, bis die Funktion erfüllt ist.
Danke
|