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

Beiträge aus den Excel-Beispielen zum Thema "Letzte Zahl in Zelle"