Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Makro letzten eintrag suchen/wert kopieren

Forumthread: Makro letzten eintrag suchen/wert kopieren

Makro letzten eintrag suchen/wert kopieren
06.07.2005 19:03:58
Achim
Hallo Excel Freunde
Wer kann mir mit eonem Makro aushelfen?
und zwar....
Das Makro sollte folgendes können:
Suche in der Spalte A nach dem letzten Eintrag und kopiere diesen gleichen Wert 43 mal mal darunter.
Füür hilfe bin ich Dankbar
Gruß
Achim H.
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro letzten eintrag suchen/wert kopieren
06.07.2005 19:11:50
UweD
HAllo Achim
so:

Sub kopieren43()
Dim LR%
LR = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte A
Range(Cells(LR + 1, 1), Cells(LR + 43, 1)) = Cells(LR, 1)
End Sub

Gruß UweD
(Rückmeldung wäre toll)
AW: Makro letzten eintrag suchen/wert kopieren
06.07.2005 19:42:01
Achim
Klappt super. eine kleine frage noch geht das auch für spalte k? und wie?
noch mal danke
achim H.
Anzeige
AW: Makro letzten eintrag suchen/wert kopieren
07.07.2005 09:41:13
UweD
Hallo
klar geht das.
Hier mal mit Variablen..

Sub kopieren43()
Dim LR%, Fakt%, Sp%
Fakt = 43
Sp = 11 'A=1 B=2..K=11
LR = ActiveSheet.Cells(Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte A
Range(Cells(LR + 1, Sp), Cells(LR + Fakt, Sp)) = Cells(LR, Sp)
End Sub

Gruß UweD
Anzeige
AW: Makro letzten eintrag suchen/wert kopieren
07.07.2005 22:34:54
Achim
Hallo UweD
Klappt alles super und war eine echte Hilfe.
Noch mal danke
Gruß aus dem Ruhrgebiet
Achim H.

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige