Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 13:19:18
Daten aus externer Datei als Bereich übernehmen... ?
23.04.2024 12:57:21
Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
720to724
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
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ergänzung einer Liste

Ergänzung einer Liste
20.01.2006 10:29:02
Bernd
Hallo.
ich möchte gerne eine Zeile mit Werten, die immer an der gleichen Stelle steht, automatisiert einige Zeilen weiter unten einfügen. Dies soll täglich vollzogen werden, so dass eine Liste entsteht. Manuell kopiere ich derzeit die Zeile und füge per "Werte einfügen" die Zeile an das jeweilige Ende der Liste. Schön wäre es, wenn ein Makro automatisch die neue Zeile am Ende der in der Historie bereits deutlich angewachsenen Liste erkennen würde und die Werte dort einfügt.
Besten Dank im Voraus für Lösungsvorschläge!
Gruß
Bernd

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ergänzung einer Liste
20.01.2006 10:52:19
Matthias
Hallo Bernd,
mein Vorschlag:

Sub ZeileAnsEnde()
Const zeile = 2 'anpassen
Dim zl As Long
Dim mark As Range
Set mark = Selection
zl = Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(zeile).Copy
Rows(zl).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
mark.Select
End Sub

Gruß Matthias
AW: Ergänzung einer Liste
20.01.2006 10:56:51
UweD
Hallo
so. z.B.

Sub TT()
Dim Sp%, LR%, TB1, Ze1%
'anpassen********
Sp = 1 'Spalte A
Ze1 = 2 'Zeile, die kopiert werden soll
Set TB1 = Sheets("Tabelle1")
LR = TB1.Cells(Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte
TB1.Rows(Ze1).Copy Destination:=TB1.Rows(LR + 1)
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Ergänzung einer Liste
Bernd
Besten Dank für Eure Hilfe!
Gruß
Bernd

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige