Herbers Excel-Forum - das Archiv

Letzte Zahl in Zelle

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Letzte Zahl in Zelle
von: Hamza

Geschrieben am: 07.03.2005 14:55:39
Hallo leute,
mit folgendem Makro beschrifte ich die Spalte A1 mit fortlaufenden Nummern.
Tabellenblatt (Januar)
Cells(1, 1).Select
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell = "=R[-1]C+1"
Cells(1, 1).Select
Jetzt möchte ich zusätzlich über ein CommandButton Die letzte Zahl in der Spalte A (Tabellenblatt Januar) in die Zelle A1 Tabellenblatt(Februar) kopieren.
immer so weiter bis Dezember.
Habt ihr da eventuell eine Lösung?
Vielen Dank schonmal im Voraus.
Gruß
Hamza
Bild

Betrifft: AW: Letzte Zahl in Zelle
von: Boris

Geschrieben am: 07.03.2005 15:51:28
Hi,
Option Explicit
Sub rein_damit()
Dim Ws As Variant
With Cells(Rows.Count, 1).End(xlUp)
.Offset(1) = .Value + 1
For Each Ws In Array("Februar", "März", "April") 'Noch ergänzen bis Dezember!
Sheets(Ws).[a1] = .Offset(1)
Next Ws
End With
End Sub

Grüße Boris
Bild

Betrifft: AW: Letzte Zahl in Zelle
von: Hamza

Geschrieben am: 07.03.2005 16:36:37
Hallo Boris,
erstmal danke für deine hilfe aber leider meinte ich das anders.
Ich meinte es so, dass wenn ich im Tabellenblatt Januar bin das dann nur
in Februar die Daten übertragen werden.
Bei deiner Lösung wird die letzte Zahl in allen Tabellenblättern übertragen und zusätzlich auch noch in die letzte Freie Zelle des aktuellen Blattes.

Gruß
Hamza
 Bild
Excel-Beispiele zum Thema "Letzte Zahl in Zelle"
Letzte nichtleere Zelle ermitteln Letzter Wert in Zeile
Letztes Speicherdatum eintragen Letzter Wert aus einem Bereich
Letztes Speicherdatum in die Fußzeile aller Tabellenblätter Formel bis zur letzten Zeile der Nebenspalte kopieren
Letzte Zelle mit Inhalt suchen Letzte Zelle einer Spalte mit Inhalt aus geschlossener Arbeitsmappe
Letzte Verknüpfung in einem Tabellenblatt löschen Letztes Zeichen der Werte einer Zellauswahl hoch-/tiefstellen