Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
704to708
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
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

nach leztze Zelle Wer eintragen

nach leztze Zelle Wer eintragen
10.12.2005 22:21:57
bongiu
Hallo Excelianer,
irgendwie komme ich nicht weiter:
ich habe diesen Code:
Range("A3:A2500").ClearContents
Range("A3").Value = 1
For Each CA In Range("A3:A2500")
If CA.Offset(1, 0) = "" Then
CA.Offset(1, 0) = CA + 1
End If
Next
Ich möchte nun, dass nicht bis A2500 "cleart" und neu schreibt, sondern, dass bis letze geschriebene Zelle "cleart" und darunter der Wert der lezte Zelle +1 schreibt.
ich habe versucht, leider ohne Erfolg.
Wie soll der Code geändert werden?
Danke
Bongiu

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nach leztze Zelle Wer eintragen
11.12.2005 13:25:05
Beni
Hallo Bongiu,
mit "lz" ermittle ich die letzt Zeile, dann wird die diese gelöscht und der Wert von der letzter Zelle+1 in die Zelle eingefügt.
Gruss Beni

Sub bongiu()
lz = Cells(65536, 1).End(xlUp).Row
Cells(lz, 1).ClearContents
Cells(lz, 1) = Cells(lz - 1, 1) + 1
End Sub

AW: nach leztze Zelle Wer eintragen
11.12.2005 14:11:31
bongiu
danke benni
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige