ich habe ein Frage, die Ihr bestimmt schnell lösen könnt, mich aber schon meine letzten Haare kostet...
Also ich muss per Schleife Zeilen durchsuchen das habe ich auch hinbekommen, nun muss das in einer äußeren Schleife aber auch die Spalten durchsuchen.
Also ich muss eine Spalte auswählen, dann zwei Zellen vergleichen und in eine dritte Zelle einen Wert schreiben. Da gibt es zwei unterschiedliche Fälle (plus und minus). Wenn das geschehen ist muss die nächste Spalte ran und so weiter.
Danke,
Euer Marcel
Dim i As Integer
For i = C To W
If Sheets("Vergleich").Cells(i + 2, 37) > Sheets("Vergleich").Cells(i + 2, 18) Then
Sheets("Vergleich").Cells(i + 2, 37).Font.ColorIndex = 4
Vergleich1
Else
Sheets("Vergleich").Cells(i + 2, 37).Font.ColorIndex = 3
Vergleich2
End If
Next
End Sub
Sub Vergleich1()
Dim r As Integer
Dim d As Integer
d = 17
For r = 3 To d
If Sheets("Vergleich").Range(i + 2 & r) < Sheets("Vergleich").Range(i + 2 & r + 19) Then
Sheets("Vergleich").Range(i + 2 & r + 39) = Sheets("Vergleich").Range("A" & r + 19)
End If
Next
End Sub
Sub Vergleich2()
Dim r As Integer
Dim d As Integer
d = 17
For r = 3 To d
If Sheets("Vergleich").Range("C" & r) > Sheets("Vergleich").Range("C" & r + 19) Then
Sheets("Vergleich").Range("C" & r + 39) = Sheets("Vergleich").Range("A" & r + 19)
End If
Next
End Sub