Ich gebe über Inputbox einige Werte ein (Siehe u.a. Sub).
Danach übertrage ich diese in eine Übersicht.
Sub schritt3()
Dim a, b, c, d
a = "Wieviele Stunden? "
b = "Anzahl Stunden"
c = "0,00"
d = InputBox(a, b, c, 9000, 7000)
Range("D24").Value = d 'Anzahl Stunden
Range("O1").Value = d 'Anzahl Stunden
End Sub
Dann kommt:
Range("M1:P1").Select
Selection.Copy
Sheets("Dezember").Select
Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Hier nehme ich in Spalte C die Summe der Stundenwerte.
Mein Problem:
Die Summenformel rechnet nicht den neuen Betrag, sondern erst, wenn ich den Stundenwert nochmals von Hand eintippe?
Warum?
Die Stundenzahl steht nach dem kopieren immer linksbündig(Wie Text), nach dem eintippen wieder rechtsbündig.
Gruß Reinhardt.