Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
128to132
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
128to132
128to132
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert um 1 erhöhen

Wert um 1 erhöhen
16.06.2002 13:23:51
Jens
Hallo Excelfreunde
ich möchte per Makro unter der letzten gefüllten Zelle in Spalte 1 den Wert der letzten Zelle um 1 erhöht einfügen. Wie mache ich das?
Vielen Dank im Voraus Jens

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

Betreff
Datum
Anwender
Anzeige
Re: Wert um 1 erhöhen
16.06.2002 14:04:44
Ramses
Hallo Jens,

Dieses Makro in ein Modul kopieren und ausführen


Re: Wert um 1 erhöhen
16.06.2002 14:10:26
stonee
Hey jens,

probier mal so:
funktioniert fuer Spalte A und erstes Sheet des Workbooks

--------------------------------------------------
Dim currentcell As Variant
Dim tempcell As Variant

Set currentcell = Sheets(1).Range("A1")

While Not IsEmpty(currentcell)

Set tempcell = currentcell.Offset(1, 0)
Set currentcell = tempcell

Wend

tempcell = currentcell.Offset(-1, 0)
currentcell.Value = tempcell + 1
--------------------------------------------------

gruss,
stonee

Anzeige
Re: Wert um 1 erhöhen
16.06.2002 14:19:42
stonee
hey ramses,

wieder was gelernt in excel, mit dieser end property!

Re: Wert um 1 erhöhen
16.06.2002 15:17:39
Ramses
Jeder programmiert eben auf seine Weise :-))
Wichtig ist nur das Ergebnis.

Gruss Rainer

302 Forumthreads zu ähnlichen Themen

Erstellungsdatum bzw. Änderungsdatum in Zelle
di

Hi Forum!
ich habe eine Tabelle mit Adressen (Liste) und möchte gerne beim hinzufügen eines neuen Datensatz beziehungsweise bei Änderung, das aktuelle Datum mit Uhrzeit und Benutzername automatisch in die vordefinierte Zelle eintragen lassen.
Beispiel:
RegistriertAm RegistriertVon G...
01.09.2008 13:22:00
Thread-ID: 1006414
10 Beiträge
Anzeige
Wenn Zahl Dann Datum + 1
Dominik

Hallo zusammen,
folgendes Problem:
Ich habe 2 Spalten - SpalteA (Inhalt: Julianischer Kalender bzw. Zahlen von 100 bis 113)
SpalteB (Inhalt: soll mit einem Datum gefüllt werden)
Nun in Spalte A wechseln die Zahlen nicht von Zeile zu Zeile, sondern es kommt vor dass die Zahl 100...
06.02.2009 12:08:00
Thread-ID: 1047706
9 Beiträge
OHNE VBA Wert aus Zelle +71
Tom

Hallo zusammen,
kann mir jemand sagen ob es die Möglichkeit gibt über eine Formel beim runter ziehen eines Zellbezugs den Wert des Bezugs um 71 Spaltenb zu verschieben?
Beispiel:
Tabelle1 hat in der A1 Zelle einen Wert, in der A72 Zelle wieder einen und nach weiteren 71 Zeilen wiede...
17.06.2009 00:09:09
Thread-ID: 1082093
5 Beiträge
Anzeige
Autofilter: 1 Kriterium für 2 Spalten
Stefan

Guten Morgen,
kann mir jemand bei folgender Frage helfen ?
Ich habe 2 Spalten, die mit Werten gefüllt sind. Nun habe ich mit dem Textfeld aus der Steuerelemente-Toolbox ein Suchfeld erschaffen. Sobald hier ein Suchbegriff eingegeben wird, sollen die beiden Spalten durchsucht und die Erg...
22.10.2009 10:51:27
Thread-ID: 1111254
5 Beiträge
Wert in Zelle um 1 erhöhen
Daniel

Hallo,
kann mir jemand sagen wie der VBA Code aussehen muss für folgendes Problem?!
Also ich habe in Zelle sagen wir B200 einen Wert von 100. Nun möchte ich das per Makro bei Zelle B201 mit dem Wert 1 angefangen wird und in den darunterliegenden Zellen jeweils um 1 erhöht wird, also 1,2...
26.10.2009 12:35:35
Thread-ID: 1112187
12 Beiträge
Zählen "U" Summe übertragen aus Zelle CR10
Steffi

Hallo Zusammen,
Sitze mal wieder da und bekomme es nicht gebacken.
In Zelle CR10 wird Bereich =ZÄHLENWENN(C10:CN10;"U") überprüft auf "U" und werden gezählt.
In Zelle CR31 wird Bereich =ZÄHLENWENN(C31:CO31;"U") überprüft auf "U" und werden gezählt.
So weit gut, nun soll folgende...
06.02.2010 20:59:44
Thread-ID: 1136466
3 Beiträge
Letzte belegte Zelle + 1
Walter

Hallo zusammen,
habe mal diese Makrozeilen erhalten.
Dim rngFind As Range
Set rngFind = Sheets("Haus").Columns(4).Find(What:="Whg1")
ActiveSheet.Cells(rngFind.Row, 1).Select
Ich möchte das jetzt ändern, komm leider nicht drauf auf such die letzte belegte Zelle
+ 1 d...
03.03.2010 15:26:55
Thread-ID: 1143032
3 Beiträge
Erhöhung einer Zahl um 1 in TextBox
Josef

Hallo!
Ich habe in einem Arbeitsblatt mehrere Datensätze stehen.
Beispiel:
411143272000922000000001300
411143272000922000010141100
4111432720009220000203D0104
4111432720009220000303D0104
4111432720009220000403D0104
4111432720009...
13.04.2010 10:10:40
Thread-ID: 1151362
5 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
6
8
4
2
4
11
2
2
4
7
1
6
2
6
2
2
1
21
5
1
3
6
15
2