In einem überschaubaren VBA-Script wird der Zellinhalt (ActiveCell) "2,00" beim ersten Aufruf als "200" interpretiert und ab dem zweiten Mal als "2,00"
(Analog: "3,0000" wird beim ersten Aufruf als "30.000" interpretiert, und dann als "3,000")
(Hinweis_1: Übertrage ich den Zellinhalt der aktiven Zelle ohne VBA in eine andere Zelle, erscheint dort dir richtige Kommazahl. Schreibe ich den Inhalt per VBA in eine andere Zelle, erscheint dort die falsche Zahl mit ignoriertem Komma)
(Hinweis_2: Der Code wurde aus Sub erhoehen_2() kopiert, wo das Ganze anstandslos funktioniert. Auch die Formatierungen sind ident!)
Zur Funktion:
Abhängig von der Größe der Zahl in der aktiven Zelle soll diese um einen gewissen Wert erhöht werden.
---------------------------------------------------------------------------
Sub erhoehen_3()
Dim Schritt
If ActiveCell.Value < ActiveSheet.Range("E19").Value Then
Schritt = ActiveSheet.Range("E21").Value
Else:
If ActiveCell.Value < ActiveSheet.Range("Q19").Value Then
Schritt = ActiveSheet.Range("Q21").Value
Else:
If ActiveCell.Value < ActiveSheet.Range("AC19").Value Then
Schritt = ActiveSheet.Range("AC21").Value
Else:
Schritt = ActiveSheet.Range("AO21").Value
End If
End If
End If
ActiveCell.Value = ActiveCell.Value + Schritt
End Sub
---------------------------------------------------------------------------
(Bin VBA-Anfänger, ratlos und für jede Hilfe dankbar!)
|