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

Zeile im Bereich einfügen mit Übernahme Format/Dropdown

Forumthread: Zeile im Bereich einfügen mit Übernahme Format/Dropdown

Zeile im Bereich einfügen mit Übernahme Format/Dropdown
13.12.2024 11:31:36
Thorsten
Hallo,

ich bin recht neu in Excel unterwegs und stehe vor dem Problem, dass ich über einen Button neue Zeilen einfügen müsste mit Übernahme der Formatierung und der Dropdown-Liste aus der Zeile darüber, dabei die Inhalte der neuen Zeile quasi geleert werden sollen. Die Zeilen sollen jeweils am Ende des aktuellen Feldes eingefügt werden, zum Beispiel soll beim Klick auf Button 1 eine Zeile unterhalb von A4 eingefügt werden, beim erneuten Klick unterhalb A5, beim zweiten Button entsprechend unterhalb A10, erneuter Klick unterhalb A11 etc.

Wie bekomme ich das hin?

Vielen Dank schonmal,

Thorsten

Hier die Datei:
https://www.herber.de/bbs/user/174340.xlsx
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile im Bereich einfügen mit Übernahme Format/Dropdown
13.12.2024 11:54:47
{Boris}
Hi,

weshalb setzt Du den unteren Bereich nicht nach oben? Dann kannst Du die Liste einfach lückenlos untereinander weiterführen.
Am Besten daraus auch noch eine strukturierte Tabelle machen.

VG, Boris
AW: Zeile im Bereich einfügen mit Übernahme Format/Dropdown
13.12.2024 12:31:52
daniel
Hi
probier mal diesen Code:
Code in ein allgemeines Modul einfügen und dann das Makro den Button zuweisen.
du kannst das Makro für mehrere Buttons verwenden, da man im Code abfragen kann, welcher Button das Makro ausgelöst hat (Application.Caller)
damit der Code richtig funktioniert, muss die linke obere Ecke in der Überschriftenhzeile des jeweiligen Blocks liegen (die, die Fett gedruckt ist)
das Makro erkennt das Ende des Blocks über die linke Rahmenlinie in Zeile 2
(Block ist zu ende, wo keine Rahmenlinie mehr ist)

Sub ZeilenKopieren()

Dim z As Long
Dim AC As Range
Set AC = ActiveSheet.Shapes(Application.Caller).TopLeftCell
z = AC.Row + 1

Do Until Cells(z, 2).Borders(xlEdgeLeft).LineStyle = xlNone
z = z + 1
Loop

Rows(z - 1).Copy
Cells(z, 1).Insert shift:=xlDown
Range(Cells(z, 1), Cells(z, AC.Column - 1)).ClearContents
Application.CutCopyMode = False

End Sub


Gruß Daniel
Anzeige
AW: Zeile im Bereich einfügen mit Übernahme Format/Dropdown
13.12.2024 13:16:05
Thorsten
Hallo,

vielen lieben Dank für Deine Mühe, ich probier den Code gleich aus, wenn ich zuhause angekommen bin, kann noch ein paar Stunden dauern wegen Fahrzeit. Ich melde mich dann,

liebe Grüße,

Thorsten
AW: Zeile im Bereich einfügen mit Übernahme Format/Dropdown
13.12.2024 15:03:48
Thorsten
Hallo Daniel,

das ist exakt das, was ich gesucht habe, vielen lieben Dank dafür.


Mit freundlichen Grüßen,

Thorsten
Anzeige
AW: Zeile im Bereich einfügen mit Übernahme Format/Dropdown
13.12.2024 11:59:40
Thorsten
Hallo,

dieser Bereich ist nur ein Auszug eines Tabellenblatts, es ist alles vorgegeben und kann/darf aufgrund des Arbeitsablaufs nicht verändert werden. Trotzdem danke für die Idee.


Mit freundlichen Grüßen,

Thorsten

Forumthreads zu verwandten Themen

Anzeige
Anzeige