Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:16:26
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen in mehrere Tabellen einfügen

Forumthread: Zeilen in mehrere Tabellen einfügen

Zeilen in mehrere Tabellen einfügen
03.01.2004 22:07:34
Simmi
Hallo zusammen,

ich habe eine Arbeitsmappe mit 3 Tabellen. Tabelle 1, Tabelle2 und Tabelle 3.

Nun sollte durch ein Makro(VBA) folgende Aktion durchgeführt werden:

Die Zeile 6 (enthält Formeln) der Tabelle 1 wird kopiert und in alle Tabellen (1,2,3) vor eine bestimmte Zeile hinzugefügt.(Wichtig--nicht kopiert)

Die Zeilennummer sollte per Inputbox eingeben werden.

Beispiel: Ich drücke auf eine Commandbox "Zeile hinzufügen".
Die Zeile 6 der Tabelle 1 wird kopiert. Dann geht die Inputbox auf.
Ich gebe die Zeilennummer ein vor die die kopierte Zeile eingefügt werden soll.

Ich hoffe es ist verständlich und ein Profi von Euch kann mir helfen.
Vielen Dank
Simmi
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen in mehrere Tabellen einfügen
04.01.2004 04:48:33
Uwe Küstner
Hallo Simmi,

das war eine echt harte Nuß. Doch ich glaube, folgender Code sollte funktionieren:


Sub ZeileKopieren()
Dim ZNr As Variant
Dim T As Worksheet
Dim QZeile As Range
ZNr = InputBox("Bitte die Zeilennummer eingeben!")
If IsNumeric(ZNr) Then
Set QZeile = Worksheets("Tabelle1").Rows(6)
For Each T In Worksheets
T.Rows(ZNr).Insert Shift:=xlDown
QZeile.Copy T.Rows(ZNr)
Next T
End If
End Sub


Viele Grüße

Uwe
Anzeige
AW: Zeilen in mehrere Tabellen einfügen
04.01.2004 21:14:08
simmi
Hallo Uwe.
du bischt a Käpsele !!!!
Vielen Dank. Es funktioniert bestens.
Gruss
simmi
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige