Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1064to1068
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
Inhaltsverzeichnis

letzer Wert in Zelle addieren und ausgeben

letzer Wert in Zelle addieren und ausgeben
03.04.2009 12:52:15
Jonathan
Hallo zusammen,
ich stehe mal wieder total auf dem Schlauch.
Ich habe in einer Datei in Spalte A Jahreszahlen stehen. Immer mit zwei Leerzeilen dazwischen.
Durch den Aufruf eines Makros sollte jetzt nach dem letzten Wert in Spalte A (+2 Leerzeilen) die nächste Jahreszahl angezeigt werden.
Zur besseren Vorstellung habe ich eine Beispieldatei erstellt.... =)
https://www.herber.de/bbs/user/60972.xls
Vielen Dank schonmal
Gruß
Jonathan

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: letzer Wert in Zelle addieren und ausgeben
03.04.2009 14:02:22
Gilligan

Sub Jahr()
Dim i As Integer
i = 1
Do Until ActiveWorkbook.Sheets("Tabelle1").Cells(i, 1) = ""
i = i + 3
Loop
ActiveWorkbook.Sheets(1).Cells(i, 1) = ActiveWorkbook.Sheets(1).Cells(i - 3, 1) + 1
End Sub


Anzeige

348 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige