Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
25.09.2025 14:32:49
Excel-Dateien zusammen führen (Tabellen)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1920to1924
1920to1924
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren in die erste freie Zeile

Forumthread: Kopieren in die erste freie Zeile

Kopieren in die erste freie Zeile
27.02.2023 07:18:15
Jörg
Hallo Profis,
ich möchte aus einer Vorlage-Excel Tabelle Zeile 6 - 45 per VBA in eine andere Tabelle in die erste freie Zeile kopieren.
Folgendes habe ich bis jetzt gemacht, aber er nimmt nicht die erste freie Zeile.
Sub Kopieren()
'
' Kopieren Makro
'
'
Windows("Vorlage.xlsm").Activate
Rows("6:45").Select
Selection.Copy
Windows("Zählliste aktuell_13.02.2023.xlsm").Activate
Range("A246").Select
ActiveSheet.Paste
End Sub
Könnt ihr mir helfen?
VG
Jörg
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Kopieren in die erste freie Zeile
27.02.2023 08:55:32
GerdL
Hallo Jörg,
statt Worksheets(1) kannst du den Tabellennamen in die Klammer schreiben.
Sub Unit()
Workbooks("Vorlage.xlsm").Worksheets(1).Rows("6:45").Copy Destination:= _
Workbooks("Zählliste aktuell_13.02.2023.xlsm").Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub
Gruß Gerd
Anzeige
AW: Kopieren in die erste freie Zeile
27.02.2023 09:02:44
UweD
Hallo Jörg
auf select und activate kann in 99% verzichtet werden.
so?
    Dim LR As Long, TB1 As Worksheet, TB2 As Worksheet
    Set TB1 = Workbooks("Zählliste aktuell_13.02.2023.xlsm").Sheets("Tabelle1")
    Set TB2 = Workbooks("Vorlage.xlsm").Sheets("Tabelle1")
    
    LR = TB1.Cells(TB1.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte
    TB2.Rows("6:45").Copy TB1.Rows(LR + 1)
LG UweD
Anzeige
AW: Kopieren in die erste freie Zeile
01.03.2023 08:52:03
Jörg
Moin Uwe,
soweit hat es geklappt!!!
Was nur jetzt noch ist, ist das die Liste Vorlage.xlsm geöffnet sein muss. Wie kann ich es anstellen, das aus der geschlossenen Liste kopiert wird?
VG
Jörg
AW: Kopieren in die erste freie Zeile
01.03.2023 10:45:38
UweD
Hallo
dann kurz (automatisch) öffnen, kopieren und wieder schließen
    Dim LR As Long, TB1 As Worksheet, WB As Workbook, TB2 As Worksheet
    Dim Pfad As String
    
    Pfad = "E:\excel\temp\"
    Application.ScreenUpdating = False
    
    Set TB1 = Workbooks("Zählliste aktuell_13.02.2023.xlsm").Sheets("Tabelle1")
    Set WB = Workbooks.Open(Filename:=Pfad & "Vorlage.xlsm")
    
    Set TB2 = WB.Sheets("Tabelle1")
    
    LR = TB1.Cells(TB1.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte
    TB2.Rows("6:45").Copy TB1.Rows(LR + 1)
    WB.Close False
LG UweD
Anzeige
;

Forumthreads zu verwandten Themen

Werte aktualisieren oder in nächster freie Zeile
Frank

Hallo!
Ich möchter gerne per VBA einen vorhandenen Datensatz aktualisieren oder in der nächsten freien Zeile anlegen.
Leider bin ich VBA Deep, dass ist mein Versuch:
Private Sub CommandButton6_Click() Dim LngZ As Long Dim Found1 As Range Dim Found2 As Range Set Found1 = Sheets("A...
02.03.2009 19:24:29
Thread-ID: 1055699
7 Beiträge
Ans ende einer Zeile springen
Felix

Hallo,
wahrscheinlich eine sehr einfache Frage für euch:
Ich möchte gerne per makro einen wert 3 zellen links vom zeilenende kopieren und an einer andere zelle wieder einfügen.
Das ganze zur einer schleife programmieren kann ich (hoffe ich) selbst.
Vielen Dank.
Felix
16.06.2009 13:23:03
Thread-ID: 1081884
4 Beiträge
erste leere Zelle einer Zeile finden.
Marcel

Hallo zusammen
Ich möchte den Wert der Aktiven Zelle (ohne diese zu verlassen) in die erste leere Zelle der Zeile schreiben.
Kennt jemand den Befehl dafür?
Wäre echt froh um Hilfe.
Danke schon im Voraus
Gruss Marcel
23.09.2009 14:23:15
Thread-ID: 1104940
3 Beiträge
Erste freie Zeile...
Gegga

Hallo an alle...
Wer kann mir folgendes ins VBA übersetzen?
SucheA
Suche erste freie Zeile in Sheet LIEF Spalte 6
Wenn dieser Wert > 71 verwende gefundenen Wert
Wenn der Wert <71 dann Suche erste freie Zeile ab 118
Wenn der Wert <146 dann Suche erste freie Zeile...
13.10.2010 13:50:17
Thread-ID: 1182244
7 Beiträge
erste freie Zeile suchen aber nur bis Zeile 40
Reinhardt

Hallo,
ich möchte mit u.a.Code ein "PASTE" in die erste freie Zeile in Spalte G durchführen.
Jedoch soll nur der Bereich bis Zeile 40 berücksichtigt werden.
Wie schreibt man so etwas?
Gruß aus Lübeck
Reinhardt.
Sub Schritt02() 'Eintragen zur Vorbereitung für ArchivB Shee...
23.10.2010 12:13:40
Thread-ID: 1183617
7 Beiträge
Anzeige
gehe zu einer Zelle in der aktuellen Zeile
Holger

Hallo mit einander
Ich habe folgendes Problem
im bereich f6- bis f250 sind Datumswerte
in der 5 Zeile sind auch Datumswerte
Bsp
----------------Zeile 6 -------------01.06. --- 02.06 ---- 03.06
Spalte F
12.6.2010
13.6.2010
03.6.2010 -----------...
30.10.2010 20:33:37
Thread-ID: 1184563
3 Beiträge
nächste freie Zeile
Peter

Hallo an alle,
ich habe eine ständig größer werdende Datei, mit z.Zt. 200 Zeilen.
Wenn ich z.B. in der Zeile 15 etwas ändere muß ich immer wieder runterscrollen
um in nächste freile Zeile zu kommen. Je mehr Zeilen es werden um so mehr
scrolle ich da immer wieder runter in die n...
17.02.2011 17:48:42
Thread-ID: 1201539
3 Beiträge
Rahmen in die nächste leere Zeile
Heinz

Hallo Leute
Habe unteres Makro das mir ab A6:L einen Rahmen setzt.
Ich möchte gerne wenn zb. in A10 ein Wert steht,das mir dann in A11:L11 der Rahmen gesetzt wird.
Also immer immer die nächste leere Zelle von A.
Könnte mir dazu bitte jemand helfen?
Gruß
Heinz
Private...
27.02.2011 19:42:52
Thread-ID: 1203245
9 Beiträge
1. freie Zeile trotz Autofilter finden
Dietmar

Hallo zusammen,
mit folgendem (erkennbar umständlichem) Code übertrage ich Daten in eine Endlos-Tabelle zwecks durchzuführender Auswertungen.
Die Daten aus A28:Z28 resultieren aus Verknüpfungen von anderen Sheets, die ich auf dem Umweg der Umwandlung in Werte in Zeile 30 eintrage (ich w...
21.03.2011 16:52:28
Thread-ID: 1206687
6 Beiträge
Anzeige
erste freie Zeile suchen
René

Hallo,
ich möchte ausgewählte Texte aus ComboBoxen und TextBoxen aus einer UserForm in ein Tabellenblatt übernehmen.
Funktioniert auch mit
Hier nur mal für das Auslesen einer ComboBox. Werden aber mehrere ausgelesen und die Werte stehen dann in Tabelle 1 hintereinander in einer Zei...
24.03.2011 15:50:04
Thread-ID: 1207434
2 Beiträge
erste freie Zeile in Zieltabelle finden
René

Hallo liebe Excelgemeinde,
ich will eine Datentabelle aus einer Datei in eine andere Datei kopieren.
Mein Problem ist das die Daten immer in der Zeiltabelle überschrieben werden weil die erste freie Zeile nicht gefunden wird. Kann mir bitte jemand an der Modifizierung des Makros helfen?...
05.04.2011 18:45:35
Thread-ID: 1209134
7 Beiträge
Anzeige
nicht in nächste zeile sondern spalte!
lisa

Hallo ihr fleißigen Helfer ich benötige hier bitte mal eure Hilfe!
Ich habe eine Userform mittels der ich Daten in meine Tabelle schreiben will!
Nun habe ich etwas rumgegoogelt und mir hier was zusammengestrickt.
Jetzt würde ich gern die Daten in immer die nächste freie Spalte eintr...
02.05.2011 13:44:31
Thread-ID: 1212635
19 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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