Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
632to636
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
632to636
632to636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro letzten eintrag suchen/wert kopieren

Makro letzten eintrag suchen/wert kopieren
06.07.2005 17: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.

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

Betreff
Datum
Anwender
Anzeige
AW: Makro letzten eintrag suchen/wert kopieren
06.07.2005 17: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 17:42:01
Achim
Klappt super. eine kleine frage noch geht das auch für spalte k? und wie?
noch mal danke
achim H.
AW: Makro letzten eintrag suchen/wert kopieren
07.07.2005 07: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 20:34:54
Achim
Hallo UweD
Klappt alles super und war eine echte Hilfe.
Noch mal danke
Gruß aus dem Ruhrgebiet
Achim H.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige