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
1916to1920
1916to1920
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einfügen in die Letze freie Zeile

Forumthread: Einfügen in die Letze freie Zeile

Einfügen in die Letze freie Zeile
27.01.2023 09:15:25
Jörg
Moin zusammen,
ich bin neu in der VBA Programmierung für Excel und stehe gerade vor einem Problem.
Hier mein Marko.
Sub Archivieren()
'
' Archivieren Makro
'
'
    Rows("6:24").Select
    Selection.Cut
    Sheets("Archiv").Select
    last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
    ActiveSheet.Paste
    Sheets("Tabelle1").Select
    Selection.Delete Shift:=xlUp
End Sub
Ich möchte das beim weiteren ausführen die ausgeschnitten Zeilen in die nächste frei Zeile des anderen Arbeitsblattes eingefügt wird und nicht überschrieben.
Alle anderen Beitrage habe ich schon ausprobiert.
VG
Jörg
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Einfügen in die Letze freie Zeile
27.01.2023 09:37:47
UweD
Hallo
auf select kann in 99% verzichtet werden
so?
Sub Archivieren()
    Dim last As Long, RNG As Range
    
    Set RNG = Sheets("Tabelle1").Rows("6:24")
    
    With Sheets("Archiv")
        last = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        
        RNG.Copy .Rows(last)
        RNG.Delete Shift:=xlUp
    End With
End Sub
LG UweD
Anzeige
AW: Einfügen in die Letze freie Zeile
27.01.2023 09:53:04
Bernhard
Hallo Jörg,
du musst die Zelle, ab der du einfügen möchtest, noch auswählen.
Nach
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A" & last).Select
einfügen.
Grüße
Bernhard
AW: Einfügen in die Letze freie Zeile
27.01.2023 10:10:54
Jörg
Danke Euch beiden, hat super geklappt.
VG
Jörg
;

Forumthreads zu verwandten Themen

inhalt aus textbox in letzt freie zeile
hans

Hallo und guten Abend,
ich möchte gerade ein Userform erstellen, dass mir die werte die ich über mehrere Textboxen eingebe, in die letzte freie Zeile einträgt. Mit VBA kenn ich mich leider gar nicht aus. Zwar klappt das eintragen per Userform, aber wo und wie ich den Code produzieren und ei...
03.01.2009 23:46:03
Thread-ID: 1036668
10 Beiträge
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
Anzeige
letzte freie Zeile ermitteln
Kai

Hi,
wie kann ich denn die erste freie Zeile in meinem Sheet ermitteln ? Seither habe ich das so gemacht, dass ich nur B geprüft habe:
lngRow = Cells(Rows.Count, "B").End(xlUp).Row
das geht aber nicht mehr, da es vorkommen kann das eine andere Spalte weiter runter befüllt ist.
wi...
25.03.2009 11:36:06
Thread-ID: 1063680
7 Beiträge
Freie Zeile in vorgegebenen Bereich suchen
uww

Ich brauche bei dem folgenden Makro Eure Hilfe:
Public Sub Daten_übertragen() Dim liZeile As Integer With ActiveSheet If .Cells(Rows.Count, 1).End(xlUp).Row = 1 And .Range("A60").Value = " " Then liZeile = 1 Else liZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1 End If .Range("A" & li...
23.06.2009 11:36:20
Thread-ID: 1083726
3 Beiträge
1 freie Zeile statt B10 in bestehenden Macro änder | Herbers Excel-Forum
snore
Hallo Excelprofis,
hab wieder ein Problem ich hab ein Macro von t.ramel, funktioniert super,
in diesen Macro werden Daten aus einer geschlossenen Arbeitsmappe Kopiert und in die Ziel Arbeitsmappe ab deb Bereich B10 beingefügt, soweit so gut.
Nun möchte ich aber das nicht ab der Zelle...
24.01.2010 11:23:41
Thread-ID: 1132436
6 Beiträge
bei WAHR Zelleninhalt in freie Zeile eintragen
Kuhlmey

Hallo liebe Excel-Spezialisten,
habe folgendes Problem:
1. Arbeitsblatt mit 100 Einträgen in Spalte B nach unten
2. Steuerelement "aktiviert durch Hacken" neben jeder Zelle in Spalte C (also 100 mal)
3. Den Ausdruck "Wahr" oder "Falsch" in Spalte D zu jeder Zeile, je nach dem o...
08.03.2010 17:25:28
Thread-ID: 1144381
7 Beiträge
Anzeige
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
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
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
Anzeige
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
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