Live-Forum - Die aktuellen Beiträge
Datum
Titel
03.05.2024 15:00:19
MAX & WENN kombinieren ?
03.05.2024 14:23:54
Finden-Funktion ohne Suchen INNERHALB Strings
03.05.2024 13:31:36
Spaltenbereich wenn Buchstabe "F" vorhanden...
03.05.2024 13:09:39
MsgBox öffnen bei Eingabe eines Textes mit bestimmtem Wert
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1928to1932
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
1928to1932
1928to1932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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















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


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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige