Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1588to1592
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
1588to1592
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro zum Einfügen einer Zeile in Tabelle

Makro zum Einfügen einer Zeile in Tabelle
07.11.2017 07:18:33
Jenny
Hallo zusammen,
ich habe folgendes Problem und hoffe auf Hilfe:
Ich habe eine Excel-Tabelle, die stetig um Zeilen erweitert wird. Leider arbeiten verschiedene Personen daran, so dass häufig die Formatierung durcheinander gerät etc. Außerdem enthält die Tabelle Formeln, die in jeder Zeile gleich bleiben sollen.
Ich hätte nun gerne über ein Makro erreicht, dass eine neue Zeile oberhalb der Ergebniszeile (also am Ende der Tabelle) eingefügt wird und dabei alle Formatierungen sowie evtl. Formeln in der Tabelle von den vorherigen Zeilen übernommen werden, nicht jedoch der Inhalt der Zellen.
Ich wäre sehr dankbar, wenn mir da jemand helfen könnte.
Viele Grüße,
Jenny

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum Einfügen einer Zeile in Tabelle
07.11.2017 09:15:50
Nadine
Hallo Jenny,
ich mach das immer so: Makro-Button "Zeile Einfügen" in deiner Tabelle anlegen (oberhalb der einzufügenden Zeilen)und Makro zuweisen. So, angenommen, deine eigentliche Tabelle beginnt ab Zeile4, d.h. in Zeile3 stehen noch die Titel/Überschriften und es soll in Zeile4 immer ein neue leere Eintragszeile eingefügt werden, inkl. dem Format und den Formeln aus der Zeile darunter, ohne die Werte.
Sub Makro1_Zeile_Einfügen()
'Makro fügt immer 1 neue Zeile in Zeile 4 ein, unter Erhalt des Formats und der Formeln aus der  _
Zeile 5
Rows("4:4").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove   'fügt 1 neue Zeile  _
oberhalb ein
Rows("5:5").Select
Selection.Copy
Rows("4:4").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False    'kopiert Format von Zeile 5 auf neu eingefügte  _
Zeile4
Application.CutCopyMode = False
Rows("5:5").Select
Selection.Copy
Rows("4:4").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False    'kopiert Formeln von Zeile 5 auf neu eingefügte  _
Zeile4 (leider auch die Werte)
Range("A4:D4,F4,H4:J4,M4").Select     'alle Zellen mit Werten auswählen(im Bsp.: Spalte A-D, _
F, H-J, M = hier werden Einträge gemacht. In Spalte E, G, K-L, N-Ende sind Formeln, die erhalten bleiben sollen
Selection.ClearContents     'Inhalt löschen
Range("A4").Select
End Sub

Anzeige
AW: Makro zum Einfügen einer Zeile in Tabelle
07.11.2017 09:42:10
Jenny
Hallo Nadine,
erstmal vielen Dank für deine Hilfe.
Leider müssten die neuen Zeilen jedoch immer am Ende der Tabelle eingefügt werden, so dass ich nicht konkret auf eine einzelne Zeile verweisen kann, die dann kopiert wird, da ja immer neue Zeilen hinzukommen.
Ich bräuchte also einen Befehl wie "oberhalb der Ergebniszeile Zeile einfügen" und anschließend "zwei Zeilen oberhalb der Ergebniszeile kopieren". Geht das irgendwie?
Danke,
Jenny
AW: Makro zum Einfügen einer Zeile in Tabelle
07.11.2017 10:23:27
Peter
Hallo Jenny,
Vieleicht hilft es Dir weiter.
In diesen Fall wird in der Tabelle1 und in der Spalte "A" über den letzten Eintrag eine neue Zeile eingefügt und die Formel aus der darüberliegende Celle kopiert.
Du müsstest noch die Tabelle und die Spalte anpassen. 
Sub Zeile()
Dim intZeile As Integer, intSpalte As Integer
intZeile = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
intSpalte = 1
Cells(intZeile, intSpalte).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(intZeile - 1, intSpalte).Copy
Cells(intZeile, intSpalte).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Viele Grüße
Peter (hpo)
Anzeige
AW: Makro zum Einfügen einer Zeile in Tabelle
07.11.2017 15:22:17
Jenny
Super, vielen Dank, euch beiden.

300 Forumthreads zu ähnlichen Themen

Namen von Tabellenblätter in Fußzeile übertragen
Tabellenblätter

Hallo zusammen,
ich habe eine ziemlich große Exceldatei mit derzeit ca. 80 Tabellenblättern (Sheets). die Namen beginnen entweder mit "Titel 01" oder "Titel 02". Nun möchte ich gerne haben, dass die Fußzeile einen bestimmten Text druckt, z.B. "GEBÄUDE 100", wenn das Tabellenblatt mit "Titel...
15.10.2008 23:37:38
Thread-ID: 1016707
3 Beiträge
Anzeige
Leere Zeilen in Tabellenspalte zählen
A.Franz

Hallo...
ich habe fogendes Problem u.hoffe das mir jemand helfen kann.Ich Habe eine UserForm mit Listbox u.Textbox.Über diese schreibe ich Werte in die Tabelle (Spalte A).Ist es möglich,wenn ich die Userform aufrufe,das mir die Anzahl noch freier Zeilen in Spalte A z.B in einer TextBox oder...
03.12.2008 12:55:46
Thread-ID: 1029789
4 Beiträge
2 verschiedene Kopfzeilen in einer Tabelle
Horst

Hallo liebe Leute,
ich hab folgendes Problem, ich habe eine Tabelle Bei der ich den Druckbereich variabel gestalte. Zusätzlich möchte ich aber das ab einer bestimmten Seitenanzahl was anderes im Kopf steht. Dazu habe ich einen ansatz hier im archiv gefunden und den auch schon etwas angepas...
28.01.2009 10:51:00
Thread-ID: 1044486
5 Beiträge
Anzeige
Zeile in allen Tabellenblättern durchsuchen
ben

Hallo,
bei folgendem Problem stoße ich mit meinen Excel/VBA Kenntnissen an die Grenze.
Ich würde gern, wenn die Zelle C57 im Blatt Menü ein Wochentag ist, eine Suche in allen Tabellenblättern in der Zeile 9 nach dem Wert der in Zelle C58 (ist die Kalenderwoche) im Blatt Menü steht start...
14.03.2009 13:26:44
Thread-ID: 1060139
2 Beiträge
Makro Zeile einfügen und Summe automatisch anpasse
Zoran

Hallo zusammen.
Kann mir jemand mit einem Makro weiterhelfen. Folgendes Problem/Idee habe ich:
Ich würde gern ein Makro haben, dass automatisch eine Zeile einfügt und die Summen (inkl. neuer Zeile) aktualisiert.
Hintergrund ist, dass wir einige User im Unternehmen haben, die nicht...
22.06.2009 08:45:34
Thread-ID: 1083366
2 Beiträge
EXCEL-VBA: Zeilen einfügen, wenn
Brinkmeyer

Hallo,
ich habe das Problem eines sehr großen Formulars. Ich möchte gern, dass Zeilen nur angezeigt werden, wenn eine bestimmte Zelle einen Inhalt hat. - So kann das Formular bei leeren Zellen kleiner gehalten werden...
Hat jemand eine Idee?
06.08.2009 19:27:26
Thread-ID: 1094141
2 Beiträge
Zeitdifferenz in Zelle einfügen
Alina

Hallo zusammen,
ich habe mir in Excel eine Überstundentabelle gebastelt. Soweit funktioniert auch alles. Ich kann mir auch die Überstunden pro Tag in der Spalte G berechnen lassen. Berechnet wird das durch die Solleinzeit in Spalte F und der tatsächlichen Endzeit in Spalte D.
Nun möcht...
16.08.2009 00:06:36
Thread-ID: 1096190
12 Beiträge
pro tabelleneintrag automatisch eine neue Zeile
papa

Hallo liebe Excelianer,
ich möchte über ein Userform diverse Informationen abfragen und diese dann in einer Tabelle ablegen.
Es soll eine Datenbank entstehen, sprich bei jedem neuen Userformeintrag soll in der Tabelle eine neue Zeile verwendet werden.
Bisher hab ich dieses Vorhaben...
06.10.2009 00:10:16
Thread-ID: 1107402
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
7
3
4
6
1
1
1
11
2
5
2
8
5
4
7
1
3
10
31
2
2
18
1
4