Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
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
1380to1384
1380to1384
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

letzte leere Zeile

Forumthread: letzte leere Zeile

letzte leere Zeile
09.09.2014 11:31:11
FAFR
Hallo,
ich brauch dringend eure Hilfe.
Ich habe ein Tabellenblatt "Input" in dem mehrere Nummern und zugehörige Daten aufgelistet sind. Wenn nun was geändert wird will ich die aktuelle Zeile in das Tabellenblatt "Archive" in die letzte leere Zeile kopieren.
Beim ersten mal kopieren, erkennt er die Überschriften im Tabellenblatt "Archiv" nicht und überschreibt die ersten zwei Zeilen immer mit der kopierten Zeile. Wenn aber in Zeile 3 schon etwas geschrieben steht, schreibt er die kopierte Zeile so wie er es soll in Zeile 4. Welchen Befehl benötige ich, dass er erst ab Zeile 3 anfängt die kopierten Zeilen einzufügen?
Mein Code sieht so aus: 

Sub MakroArchiv()
aktiveZeile = ActiveCell.Row
Sheets("Input").Range("A" & aktiveZeile, "M" & aktiveZeile).Copy
Sheets("Archive") _
.Cells(Sheets("Archive").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) _
.PasteSpecial
End Sub

Vielen Dank
Gruß
Franzi

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: letzte leere Zeile
09.09.2014 11:44:19
Tino
Hallo,
die Referenzspalte anhand die letzte beschriebene Zeile ermittelt wird ist die Spalte A bzw. 1
Prüfe wo dort die letzte Zelle mit Inhalt ist, evtl. eine andere Spalte dafür verwenden!
Gruß Tino

AW: letzte leere Zeile
09.09.2014 11:47:05
Rudi
Hallo, 
Sub MakroArchiv()
Dim leereZeile As Long
Dim aktiveZeile As Long
aktiveZeile = ActiveCell.Row
Sheets("Input").Range("A" & aktiveZeile, "M" & aktiveZeile).Copy
With Sheets("Archive")
leereZeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
leereZeile = WorksheetFunction.Max(3, leereZeile)
.Cells(leereZeile, 1).PasteSpecial xlPasteValues
End With
End Sub
Gruß
Rudi

Anzeige
AW: letzte leere Zeile
09.09.2014 11:57:44
FAFR
Funktioniert! Super! Danke für eure Hilfe
Gruß
Franzi
;

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