Herbers Excel-Forum - das Archiv

um in zelle zum Wert darin etwas dazuaddieren

Bild

Betrifft: um in zelle zum Wert darin etwas dazuaddieren
von: fuzzi

Geschrieben am: 29.12.2006 23:18:17
habe es noch nicht geschafft, zu dem Wert, der in einer Zelle steht per Makro eins dazuzuaddieren
Range ("E13").Select
ActiveCell.FormulaR1C1 = "+1"
war falsch, da schrieb es immer nur eine neue eins,
für
With Range("E13")
.Formula = .Formula & "+1"
End With
scheine ich zu dumm zu sein, um es korrekt anzuwenden,
wer hilft dummies
Bild

Betrifft: AW: um in zelle zum Wert darin etwas dazuaddieren
von: chris b
Geschrieben am: 29.12.2006 23:19:52
Das geht so
Sub dazu()
Range("E13") = Range("E13") + 1
End Sub

Bild

Betrifft: AW: Addition zu Zelle oder zu Zellformel?
von: Luc:-?

Geschrieben am: 30.12.2006 12:33:13
Hallo Fuzzi,
warum bleibst du nicht im alten Thread? Über eine Antwort freut man sich hier idR! Ansonsten mal die Forumsregeln nachlesen, kann nicht schaden... ;-)
Ich ging natürlich davon aus, dass in deiner Zelle eine Formel steht... Hast du nicht "=3+1" geschrieben? Wenn da nur ein Wert drinsteht, läuft es so wie Chris geschrieben hat oder in Analogie zu meiner Antwort...
With Range("E13")
.Value = .Value + 1
End With 

Du kannst natürlich auch eine Formel aus einem eingetragenen Wert machen...
With Range("E13")
.Formula = "=" & .Value & "+1"
End With 

Statt "=" kann auch "+" (bzw "-") verwendet werden.
Guten Rutsch!
Luc :-?
 Bild