Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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.

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

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

Anzeige
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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige