Ich möchte in einem Makro ein wenig rechnen alles läuft auch, wie gewünscht.
Nur die Darstellung meiner Zahlen überrascht mich. Anstelle von 5000.00 erscheint nach genau der Eingabe 5000#.
Meine Vergleichswerte sind 5.000,00, 3.000,00 usw.
Auszug aus meinem Code:
Dim sProzente As Single
Dim lIndx As Long
For lIndx = 2 To Range("A65536").End(xlUp).Row
If Cells(lIndx, 5).Value > 0 Then
sProzente = Cells(lIndx, 5).Value * 25 / 100
Select Case Cells(lIndx, 6).Value
Case 6
If sProzente > 5000# Then
Cells(lIndx, 7).Value = 5000#
Else
Cells(lIndx, 7).Value = sProzente
End If
Case 5
If sProzente > 3000# Then
Ist das nun tragisch, oder gibt es eine Möglichkeit, das zu umgehen?
Für einen guten Tipp schon jetzt vielen Dank im voraus.
Gruß, Peter