Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Letzte Zahl in Zelle

Letzte Zahl in Zelle
07.03.2005 14:55:39
Hamza
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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Letzte Zahl in Zelle
07.03.2005 15:51:28
Boris
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
Anzeige
AW: Letzte Zahl in Zelle
07.03.2005 16:36:37
Hamza
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
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige