Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1708to1712
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
1708to1712
1708to1712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile per Makro in weiteres Tabellenblatt einfügen

Zeile per Makro in weiteres Tabellenblatt einfügen
30.08.2019 08:44:42
gelee93
Hallo Zusammen,
ich brauche dringend Hilfe.
ich habe ein Hauptblatt, bei dem ich alle Daten Eintrage. Auf dem nächsten TabellenBlatt (7_1) ist meine Auswertung, die mit Formeln hinterlegt ist.
Ich habe es soweit, dass wenn ich im ersten Tabellenblatt eine Zeile einfüge, er in der Auswertung an gleicher Stelle eine Zeile einfügt. Jetzt soll er die Formeln von der Zeile oberhalb in die leere Zeile einfügen.
Mein VBA-Code ist:

Sub NeueZeile()
Dim Zl As Long
Zl = ActiveCell.Row
ActiveCell.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
With Sheets(" 7_1")
.Cells(Zl + 9, 1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End With
End Sub

Ich verschiebe die Zeilen um 9, da der Tabellenkopf etwas anders aussieht bei den beiden Blättern.
Besten Dank im vorraus, und beste Grüße,
Gelee93

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile per Makro in weiteres Tabellenblatt einfügen
30.08.2019 09:26:17
GerdL
Moin! (Hier sind Vornamen üblich) 
Sub NeueZeile()
Dim Zl As Long
Zl = ActiveCell.Row
ActiveCell.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
With Sheets(" 7_1")
.Cells(Zl + 9, 1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
For Each Zelle In .Range(.Cells(Zl + 8, 1), .Cells(Zl + 8, .Columns.Count).End(xlToLeft))
If Zelle.HasFormula Then
Zelle.Copy
Zelle.Offset(1, 0).PasteSpecial xlPasteFormulas
End If
Next
Application.CutCopyMode = False
End With
End Sub

Gruß Gerd
AW: Zeile per Makro in weiteres Tabellenblatt einfügen
30.08.2019 10:23:42
gelee93
Danke Gerd,
das klappt schon mal super. Nun noch die frage, ich habe mehrere Tabellenblätter für die Auswertung, ist es möglich es zu beschreiben, dass dieses Makro auf alle Blätter außer auf 2 angewendet werden soll, oder muss ich das für jedes Blatt definieren?
Und mir ist gerade noch aufgefallen, dass ich bei dem Hauptblatt in der Spalte AA die Summe aus den Spalten F:X ausgebe, dass kann man doch bestimmt auch in dem Makro schon vordefinieren.
Besten Dank und Gruß,
Jelle (jetzt mit Vornamen ;-))
Anzeige
AW: Zeile per Makro in weiteres Tabellenblatt einfügen
30.08.2019 13:39:31
GerdL
Hallo Jelle,
ich bin für eine positive Prüfung der relevanten Auswertungstabellen.
Irgendetwas wird schon als Kriterium geeignet sein.
Sub NeueZeile()
Dim Zl As Long, Sh As Object
Zl = ActiveCell.Row
ActiveCell.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(Zl, 27).Formula = "=SUM(" & Range("F" & Zl & ":X" & Zl).Address & ")" 'Summenformel  _
einfügen
For Each Sh In ActiveWorkbook.Sheets
With Sh
If Sh.Cells(1, 1) = "Überschrift1" Then ' bearbeite alle Blätter mit diesem Wert in A1 , _
ggf. anpassen
.Cells(Zl + 9, 1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
For Each Zelle In .Range(.Cells(Zl + 8, 1), .Cells(Zl + 8, .Columns.Count).End(xlToLeft))
If Zelle.HasFormula Then
Zelle.Copy
Zelle.Offset(1, 0).PasteSpecial xlPasteFormulas
End If
Application.CutCopyMode = False
Next
End If
End With
Next
End Sub
Gruß Gerd
Anzeige
AW: Zeile per Makro in weiteres Tabellenblatt einfügen
02.09.2019 08:04:17
gelee93
Hallo Gerd,
die Abfrage in A1 finde ich gut. Das klappt auch super.
Jetzt habe ich nur das Problem mit den kopierten Zeilen, ich bin davon ausgegangen, dass die Formeln sich anpassen, d.h. in der zu kopierenden Zeile steht =A4, dann soll in der neuen Zeile =A5 stehen. Dieses ist leider nicht so. Ist das auch möglich, dass die kopierten Zeilen sich so anpassen?
Beste Grüße,
Jelle
AW: Zeile per Makro in weiteres Tabellenblatt einfügen
03.09.2019 01:35:45
Piet
Hallo Jelle
wie sehen deine Formeln aus? Hast du Absolute oder Relative Adressierung? Absolute bleibt immer konstant!!
Das erkennst du in der Formel am $ Zeichen wie z.B: - =SUMME($J$2:$J$100) - Da bleibt die Formel beim verschiebn bestehen!
Wenn du die Zeile verschieben willst musst du die $ Zeichen vor der Zeile entfernen! Bei Spalten Verschiebung vor der Spalte.
mfg Piet
Anzeige
AW: Zeile per Makro in weiteres Tabellenblatt einfügen
03.09.2019 15:13:30
gelee93
Hallo Piet,
nein das war nicht das Problem, das Problem war die Anordnung der Tabellenblätter. Nur auf dem ersten Tabellenblatt hatte es nicht gestimmt, da es auf Daten zugegriffen hat, welche noch nicht existiert haben. Da sie noch nicht eingefügt wurden durch das Makro. Jetzt passt alles.
Beste Grüße,
Jelle

308 Forumthreads zu ähnlichen Themen

Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Anzeige
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Anzeige
erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 Beiträge
Zeilen ausblenden, außer wenn in Zelle ...?
Selma

Hallo Leute,
ich möchte mit einem CommandButton ab Zeile 4 die Zeilen wie folgt ausblenden:
- wenn in Spalte M die Zelle diesen "plt" Inhalt hat, dann soll die Zeile nicht ausgeblendet werden
- wenn in Spalte M die Zelle die Füllfarbe 15 hat., dann soll die Zeile nicht ausgeblendet...
27.10.2008 18:13:00
Thread-ID: 1019700
10 Beiträge
Zelleninhalt in Kopfzeile Seitenansicht zeigen?
Heiner

Hallo Forum,
ich bin Excel-Neueinsteiger habe ein grosses Problem...
In der Kopfzeile (Mitte) einer Seitenansicht soll automatisch der Eintrag aus Tabelle1 / Zelle B3 angezeigt werden.
Ist das möglich? Und wenn ja, wie kann das realisiert werden?
Wer kann mir mit einem Formel- o...
05.11.2008 12:10:35
Thread-ID: 1021845
2 Beiträge
Zeilen kopieren wenn wert in Zelle
Andreas

hallo zusammen
finde für meine herausforderung nichts passendes in der recherche. :-(
ich habe eine tabelle1 mit diversen Einträgen. die Spalten AC, AD, AE enthalten jeweils ein Datum (ist jedoch nicht in jeder Zeile der Fall)
Nun möchte ich folgende Schritte automatisieren
Erst...
24.11.2008 17:08:00
Thread-ID: 1027397
3 Beiträge
Werte aus einer Zelle in andere Zelle (neue Datei)
Franz

Tach auch,
folgendes Problem habe ich:
ich öffne eine Datei über eine Vorlage "rep.xlt". Die heisst dann bis zum Speichern "rep1". In einer Zelle wird eine Zahl eingetragen, bspw.: 1234. Dann kann ich die Datei per makro speichern, dann heisst sie: "rep1234.xls. Das funktioniert auch g...
22.01.2009 15:10:00
Thread-ID: 1042648
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
8
9
5
2
4
3
9
1
2
2
2
4
3
13
5
10
1
5
3
2
4
10
1
4
2