Jedes 1/2 kg um 1,97 Cent erhöhen
11.12.2006 15:08:04
RainerS
habe mir mit viel Mühe ein kleines Makro gebastelt, das wie folgt aussieht
Dim i As Double
Range("D2").Select
Selection.End(xlDown).Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value <= 0.5 Then
ActiveCell.Offset(0, 5).Value = 9.37
~f~ElseIf ActiveCell.Value > 0.5 And ActiveCell.Value <= 1# Then
ActiveCell.Offset(0, 5).Value = 11.34
.
.
ElseIf ActiveCell.Value > 59.5 And ActiveCell.Value ActiveCell.Offset(0, 5).Value = 189.9
Die aktive Zelle enthält immer ein Gewicht und 5 Spalten weiter rechts
wird immer der Preis dazu ausgegeben.
Der Preis erhöht sich immer um den gleichen Wert (1,97)
Wenn sich jetzt die Preise ändern muss ich immer von einem 1/2kg bis 60 kg
alle Preise ändern.
Das geht doch aber bestimmt auch einfacher.
Kann mir jemand helfen?
Vielen Dank im Voraus.
Gruß
RainerS