Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1928to1932
1928to1932
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leere Zeile mit Daten darunter füllen

Forumthread: Leere Zeile mit Daten darunter füllen

Leere Zeile mit Daten darunter füllen
27.04.2023 10:34:10
Eddy

"Hallo,
der erste Schritt in meinem Makro hat wunderbar geklappt, das Problem er setzt ein festen Zellenbezug ein weshalb ich es kein Zweites mal benutzen kann. Es Soll in Spalte A unter die erste leere Spalte gehen. Dann die Daten aus Spalte A bis D bis zur nächsten leeren Spalte Kopieren und in die erste leere Zelle einfügen. unteresten Daten müssen ja dann gelöscht werden, damit keine Duplikate entstehen. "
Ich hoffe Sie können mir Weiterhelfen.
Danke















Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Leere Zeile mit Daten darunter füllen
27.04.2023 10:45:57
MCO
Moin!

Grundsätzlich ist es immer von Vorteil, den vorhandenen Code zu kennen, ansonsten musst du es selbst adaptieren.

letzeZeile in A
cl = cells(rows.count,"A").end(xlup).row
letzeSpalte in cl
lsp = cells(cl,columns.count).end(xltoleft).offset(0,1).column
Bedenke, dass die Variablen cl und lsp hier als single funktionieren.

Gruß, MCO


Anzeige
AW: Leere Zeile mit Daten darunter füllen
27.04.2023 10:53:42
Eddy 
Sub Test()
'
' Test Makro
'

'
    Range("A1").Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Range("A15:D15").Select
    Selection.Copy
    Range("A14").Select
    ActiveSheet.Paste
    Range("A15:D15").Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub
Das ist bisher der Code für einmal ausführen. Ich dachte ich habe die Datei mit als Upload geschickt. Datei 158919


Anzeige
AW: Leere Zeile mit Daten darunter füllen
27.04.2023 11:41:35
MCO
Hallo Eddy,

so sieht´s aus:
Sub Test()
'
    cl = Cells(Rows.Count, "A").End(xlUp).Row 'letzte Zeile
    lsp = Cells(cl, Columns.Count).End(xlToLeft).Offset(0, 1).Column 'letzte spalte in letzte Zeile
    Set Rng = Range("A" & cl & ":D" & cl)'Bereich in Variable schreiben
    Rng.Copy Range("A" & cl - 1) 'kopieren und einfügen (geht so nicht mit pastespecial!)
    Rng.ClearContents 'Bereich löschen
End Sub
Gruß, MCO

Anzeige
;

Beliebteste Forumthreads (12 Monate)

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