Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nach leztze Zelle Wer eintragen

Forumthread: 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
Anzeige

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

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

Beliebteste Forumthreads (12 Monate)

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