Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellenwert um eins erhöhen

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

Wert um eins erhöhen, dann die Datei speichern ?
Selma

Hallo Leute,
in der aktive Datei möchte ich ein Makro ausführen, der folgendes macht:
1. MsgBox "Bitte den Startwert eintragen" anzeigen.
Der eingegebene Wert soll in Zelle C4 eingetragen werden und die Datei in selben Pfad wie die aktive Datei mit Namen "Berechnungsblatt_UNI_(Wert...
22.10.2008 17:23:24
Thread-ID: 1018424
6 Beiträge
Zelleninhalt um eins erhöhen
Sascha

Hallo,
eigentlich habe ich eine leichte Aufgabe und dennoch breche ich mir dabei die Ohren.
Ich habe in einer Zelle D7 eine Jahreszahl zu stehen (2008) und möchte auf einen Button
die Funktion legen auf diesem Tabellenblatt die Zelle D7 um eins zu erhöhen (2009) und
zusätzlich v...
14.05.2009 12:21:39
Thread-ID: 1075102
9 Beiträge
Frage zum Einsatz Kontexnemü
ray

Hallo,
auf meinen Userform bzw. den Textboxen steht mir das Rechtsklick-Kontexmenü nicht zur Verfügung. Geht das nicht?
Viele Grüße aus Hamburg mit einer Regierung die nicht mal Schneeschieben kann...
Ray
11.02.2010 08:47:30
Thread-ID: 1137598
12 Beiträge
Anzeige
Wert um eins erhöhen
Thomas

Hallo zusammen,
ich versuche mich an unten stehenden Code.
Es soll so funktionieren, dass wenn man in der Spalte B (Zeilen 13 bis 309) einen Wert größer 1 eingibt, in der Spalte A in der entsprechenden Zeile um 1 erhöht wird.
Vielen Dank!
Gruß
Thomas
Private Sub Work...
06.02.2013 11:45:05
Thread-ID: 1297930
22 Beiträge
Anzeige
Date um Eins minimieren
zesa_suzuki@live.de

Hallo Leute,
ich habe mal eine Frage.
Ich möchte via VBA einige Sachen weiter automatisieren.
Dazu soll mir eine Tabelle aufgebaut werden mit dem heutigem Datum und den letzten Tagen.
Das habe ich so gemacht: Sub FormelDatum() Dim i As Integer For i = 1 To 7 Cells(1, i + 1).For...
19.02.2014 11:07:23
Thread-ID: 1350330
2 Beiträge
Anzeige
DTPicker linked cell automatisch um eins erhöhen
Daniel

Hallo zusammen,
ich kenne mich leider nur grundlegend mit Excel aus. Nun möchte ich mit dem Date and Time Picker eine Funktion nachbauen die aus Word kenne. Ich möchte komfortabel das Datum für eine Zelle auswählen. Das Problem ist, dass wenn ich den Date and Time Picker im Entwurfsmodus du...
25.07.2014 16:07:32
Thread-ID: 1372342
2 Beiträge
Datenbereich von Diagramm um eins verschieben
Diagramm

Hallo,
ich möchte gerne den Datenbereich eines Diagrammes, sowohl Anfang als Ende, um eins inkrementieren. Am besten jeweils jede Sekunde zusammen hiermit: https://www.herber.de/forum/messages/1428894.html
Deluxe Version: Erst ab einer gewissen Anzahl von Einträgen in Spalte XY.
So...
02.06.2015 18:53:25
Thread-ID: 1428933
9 Beiträge
Beschleunigen und Datum einsetzen
Andre

Hallo
Ich habe folgenden Code der auch soweit läuft nur das er ewig braucht bis er die 1500 Datensätze durchlaufen hat
Wie kann ich diesen Code beschleunigen?
und in Spalte B im Grundbuch soll automatisch das Datum vor den eingefügten Zeilen stehen
vielen Dank im voraus
Pri...
03.04.2016 09:27:44
Thread-ID: 1485616
5 Beiträge
nach Makro " Blattnummer" um eins erhöhen
Andi

Hallo,
habe folgendes Makro,
Sub Makro1() ' Objektdaten Übernehmen auf Blatt Drucken Range("V6:Z9").Select Selection.Copy Sheets("Drucken").Select Range("B5").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Bearbei...
10.12.2016 10:00:29
Thread-ID: 1529475
3 Beiträge
Wert um eins erhöhen
Holger B.

Hallo Leute,
vielleicht kann mir jemand weiterhelfen.In der Zelle A1 steht eine Zahl. Daneben ist eine Schaltfläche.
Bei jedem Klick soll der Wert von A1 um eins erhöht werden.Im vorraus Danke
H.B.

03.12.2002 17:50:28
Thread-ID: 188495
2 Beiträge
Datum einsetzen
Heiko F.
Hallo Excelfreunde ,

habe folgendes Modulteil

ActiveWorkbook.SaveAs Filename:= _
"C:\Datenauswertungen\Datenauswertung 2003\auswertungen\gl\08.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBa...
29.08.2003 07:45:36
Thread-ID: 301807
6 Beiträge
Wert in aktiver Zelle um eins erhöhen
Tom
Hallo,

gibt es eine Möglichkeit, den Wert in der gerade aktiven Zelle durch drücken auf eine Schaltfläche um eins zu erhöhen? Die Zellenangabe muss also variabel sein.

Danke
12.11.2003 13:42:32
Thread-ID: 337060
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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