Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellenwert um eins erhöhen

Zellenwert um eins erhöhen
17.04.2007 23:39:00
Roger
Hallo Zusammen,
Wie ich eine Inputbox erstelle weiss ich mittlerweilen.
Nun steht in einer Zelle zum Beispiel eine Zahl "10"
Durch die Inputbox frage ich, wie oft 1 dazu addiert werden soll.
Gibt man 10 ein sollte es in die nächste Zeile 11, 12, 13,... 20 schreiben.

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellenwert um eins erhöhen
18.04.2007 01:12:52
Daniel
Hallo
da gibts mehrere Möglichkeiten:

Sub Test_1()
dim i as long
dim Anz as long
Dim Zelle as range
set Zelle = range("A1")
Anz =inputbox("Wert eingeben")
for i = 1 to Anz
zelle.offset(0,i).value = zelle.value +i
next
End Sub


oder


Sub Test_2()
dim Anz as long
Dim Zelle as range
set Zelle = range("A1")
Anz =inputbox("Wert eingeben")
Zelle.offset(0,1).resize(1,Anz).formular1c1 = "=rc[-1]+1"
End Sub


Gruß, Daniel

Anzeige
Nicht nach rechts, sondern nach unten
18.04.2007 08:38:00
Roger
Wie kann ich machen das es nicht nach rechts addiert, sondern nach unten?
Die erste Variante gefällt mir gut, und sie funktioniert einwandfrei.
Besten Dank an Daniel

AW: Nicht nach rechts, sondern nach unten
18.04.2007 08:59:00
Rudi
Hallo,

Sub Test_1()
dim i as long
dim Anz as long
Dim Zelle as range
set Zelle = range("A1")
Anz =inputbox("Wert eingeben")
for i = 1 to Anz
zelle.offset(i,0).value = zelle.value +i
next
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Nicht nach rechts, sondern nach unten
18.04.2007 12:59:43
Roger
Herzlichen Dank
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige