ich habe folgendes Problem.
Ich habe eine Userform der mir Zahlen aus 6 Textfelder in ein datumabhängigen Bereich schreibt.Funktioniert auch soweit. Jetzt werden aber mehrmals am Tag die Werte aktualisiert wobei nur immer der niedrigste Wert in den Zellen übernommen werden soll.Das funktioniert nur bedingt... zb. wird eine 8 durch eine 4 ersetzt aber eine 10 nicht durch irgendwas unter 10.... Stimmt da was mit der Formatierung nicht ?
Kann mir einer helfen.. hier mal mein Code...
Dim zelle As Range
Sheets("Tagesübersicht").Activate
For Each zelle In ActiveSheet.Range("a1:a366").Cells
If zelle.Text = Datumtext Then
zelle.Activate
ActiveCell.Offset(0, 1).Activate
If ActiveCell = "" Then
ActiveCell.Value = PM1.Text
Else
If ActiveCell "kleinerzeichen" PM1.Text Then
ActiveCell.Value = PM1.Text
End If
End If
ActiveCell.Offset(0, 1).Activate
If ActiveCell = "" Then
ActiveCell.Value = PM2.Text
Else
If ActiveCell "kleinerzeichen" PM2.Text Then
ActiveCell.Value = PM2.Text
End If
End If
usw....
P.S. leider wird das kleinerzeichen nicht akzeptiert