Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

zellen automatisch auschneiden und einfügen

Forumthread: zellen automatisch auschneiden und einfügen

zellen automatisch auschneiden und einfügen
29.01.2025 09:48:40
Matthias
Guten Morgen zusammen,

wir nutzen Excel für jährliche Mitarbeiter Gespräche und legen für das kommende Jahr Weiterbildungsmaßnahmen fest. Im folgenden Mitarbeitergespräch wird geprüft ob die Weiterbildungen gemacht wurden und wirksam sind.

Wir stellen den Vorgesetzten dazu die Datei des vergangenen Gesprächs zur Verfügung.
Jetzt wäre es super, wenn wir die geplanten Maßnahmen automatisch nach oben kopieren könnten bevor wir die Datei versenden.

https://www.herber.de/bbs/user/175341.xlsx

Danke für eure Hilfe!
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zellen automatisch auschneiden und einfügen
29.01.2025 12:12:05
Yal
Hallo Matthias,

Rechtsklick auf das Menüband, Register "Entwicklertools" anzeigen lassen.
Darin die Schaltfläche "Makro aufzeichnen" anklicken,
Versetzen der Zeilen durchführen,
Dieselbe Schaltfläche mit jetzige Aufschrift "Aufzeichnung beenden" anklicken.
Datei offen lassen (da ist das Makro drin), aber andere Datei öffnen,
Makro abrufen,
Datei speichern und schliessen,
nächste Datei zu behandeln öffnen.

VG
Yal


Anzeige
AW: zellen automatisch auschneiden und einfügen
29.01.2025 13:04:15
Piet
Hallo

zu deiner Anfrage gibt es bereits mehrere Lösungen, auch Beispieldateien die funktionieren.

Es wäre aber gut eine echte Lösung von Hand zu zeigen, denn die Frage ist, wie groß soll der Zeilenabstand zwischen den einzelnen Blöcken sein. Eine Zeile, zwei Zeilen, oder mehr?? Soll über oder neben dem Block der Dateiname notiert werden?
Soll es eine Übersicht geben welche Dateien alle kopiert wurden?? - Gibt es Dateien die keine Vorjahres Daten enthalten??

Ich habe dir mal eine nützliche MyDir Datei hochgeladen. Sie wurde fürs Forum entwickelt um alle Dateien eines Ordners öffnen zu können. Da kann man den Code auf Bereiche kopieren umfrickeln. Wir brauchen dazu aber genaue Informationen was von wo wohin kopiert werden soll. Mit exakten Zeilenabständen usw. Optimal ist eine Vorgabe von hand für 2-3 Blöcke.

https://www.herber.de/bbs/user/175348.xls

mfg Piet
Anzeige
AW: zellen automatisch auschneiden und einfügen
29.01.2025 13:31:57
Piet
Nachtrag

denk bitte daran das die alten Daten beim kopieren überschrieben werden.
Sollen die Dateien einen neuen Namen bekommen? In einem neuen Ordner??
Das solltest du bitte alles vorher klären.
Ggf. den ganzen Ordner mit allen Dateien vorher unter neuem Namen kopieren.

mfg Piet
Anzeige
AW: zellen automatisch auschneiden und einfügen
29.01.2025 12:30:47
Matthias
Hallo Yal,
danke für die Rückmeldung.

Da es sich um ca. 200 Dateien handelt (hätte ich vorher schreiben können) hatte ich auf eine automatisiertere Lösung gehofft :-)

VG
AW: zellen automatisch auschneiden und einfügen
29.01.2025 12:40:34
Oberschlumpf
Hi,

und bitte genau welche Datensätze sollen wohin kopiert werden?
Oder sehe nur ich eine Bsp-Datei, die zwar Überschriften enthält (wo soll welcher Wert stehen), aber ansonsten eigentlich LEER ist. (zumindest für mich; wo stehen die Bsp-Datensätze?)

Ciao
Thorsten
Anzeige
AW: zellen automatisch auschneiden und einfügen
29.01.2025 14:01:22
Yal
Hallo Matthias,

kein Problem:
Makroaufzeichnung starten,
Datei öffnen,
Makro aufrufen,
Datei speichern und schliessen,
Makroaufzeichnung beenden.

Hier komplizierter, weil es eine Schleife über alle Dateien gebaut werden müsste. Wenn alle Dateien innerhalb eines Verzeichnisses vorliegen und darin keine andere Dateien vorliegen oder die Dateinamen einen festen Namensmuster, kann man leicht eine Schleife über die Datei laufen lassen.

VG
Yal
Anzeige
AW: zellen automatisch auschneiden und einfügen
29.01.2025 12:57:22
Matthias
Hallo Oberschlumpf,
alles farblich markierte unter Zelle A21 soll in den farblich markierten Bereich unterhalb Zelle A10. Also nach oben wandern.

Danke für deine Hilfe!
AW: zellen automatisch auschneiden und einfügen
29.01.2025 13:25:07
Piet
Hallo Matthias

ich habe gerade deine Antwort an Thorsten gelesen. Ziemlich einfacher Code.

Das ist der Code für eine Datei, prüfe ihn bitte in einer Kopie Datei ob er so richtig ist?
Sollen nach dem Löschen die unteren Zeilen gelöscht werden? - Habe ich so vorgesehen.
Bei 200 Dateien kommt dann eine For Next Schleife fürs Öffnen, Kopieren, Schließen, etc.

PS: --> Bei externen Mappen gehört im Code natürlich noch dieser Teil davor:
Workbooks("xxx").Worksheets("xxx").Range("A24:J29").Copy
Workbooks("xxx").Worksheets("xxx").PasteSpecial xlPasteValues

mfg Piet

Sub kopieren()

Range("A24:J29").Copy
Range("A12").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("A24:J29").ClearContents
ActiveWorkbook.Save
End Sub
Anzeige
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18