Max. Wert einer Zelle aber mind. 1 nehme
08.06.2021 10:19:53
Dennis
Zurück
Guten Morgen zusammen,
ich benötige mal wieder euer Know-how beim Lösen eines Problems.
In einer Tabelle haben die Spalten 8 bis 10 in denen jeweils ein Datum stehen kann. Diese sind immer absteigend von 8 nach 10 (sprich in 10 wäre immer das älteste von den 3). Jetzt will ich überprüfen, ob in der Spalte 10 ein Datum drinsteht und gleichzeitig den Wert aus Spalte 35. Hier steht endweder nix drin oder Zahlen ab 2. Da ich hier den Wert aber mit einer anderen Zahl multiplizieren muss, möchte ich also bei "" eine 1 übergeben. Sollte Spalte 10 leer sein, wird der Vorgang mit Spalte 9 (und Spalte 34) wiederholt, um so das älteste Datum bzw. die ältesten Einträge in Spalte 33-35 zu finden. Dies wollte ich mit der Funktion MAX machen, leider habe ich hier irgendwo einen Fehler drin. Ich hoffe ihr könnt mir helfen.
Viele Grüße
Dennis
Sub test()
Set td = Worksheets("Daten")
With td
lngZeileMax = td.Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To lngZeileMax
If .Cells(i, 10) "" Then
old1 = Max(1, .Cells(i, 35)) * .Cells(i, 29).Value
Else
If .Cells(i, 9) "" Then
old1 = Max(1, .Cells(i, 34)) * .Cells(i, 29).Value
Else
If .Cells(i, 8) "" Then
old1 = Max(1, .Cells(i, 33)) * .Cells(i, 29).Value
End If
Next i
End With
End Sub