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

Forumthread: Zeile automatisch in andere Tabelle kopieren

Zeile automatisch in andere Tabelle kopieren
04.10.2006 07:35:42
Schorn
Hallo zusammen im Forum
habe folgende Frage
ich habe eine Mappe mit 2Tabellen. Tabelle1 wird als Datentabelle genutzt.
Verschiedene Spalten von Tabelle1 werden in Tabelle2 auch angezeigt.
D.h. wenn ich in Tabelle 1 was ändere wird dies automatisch auch in Tabelle2 geändert.
Tabelle1 ist die "Mastertabelle"
Jetzt möchte in Tabelle1 eine Zeile irgendwo mittendrin einfügen können
die dann automatisch auch in Tabelle2 an der gleichen Stelle mit Inhalten eingefügt wird.
kann mir jemand helfen?
Vielen Dank im voraus
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeile automatisch in andere Tabelle kopieren
04.10.2006 09:54:20
fcs
Hallo Schorn,
das folgende Makro fügt in der aktiven Tabelle (Tabelle1) vor der aktiven Zelle eine Leerzeile ein und in der 2.Tabelle an gleicher Position eine Zeile mit Kopie der Formeln. Statt der Nummer (2) kannst du auch den Tabellennamen in Anführungszeichen angeben ("Tabelle2")
Zur Vereinfachung für das Makro ein Tastaturkürzel festlegen oder auch das Makro einem Button in einer Symbolleiste zuweisen.
Gruß
Franz

Sub Zeile_in_1_und_2_einfuegen()
'Fügt im aktiven Blatt vor der aktiven Zelle eine Leerzeile ein
'und fügt im Blatt "Tabelle2" an gleicher Position eine Kopie der Zeile mit Formeln ein
Dim wks1 As Worksheet, wks2 As Worksheet, Zeile As Long
Set wks1 = ActiveSheet
Set wks2 = ActiveWorkbook.Sheets("Tabelle2")
Zeile = ActiveCell.Row
wks1.Rows(Zeile).Insert
wks2.Rows(Zeile).Copy
wks2.Cells(Zeile, 1).Insert shift:=xlDown
Application.CutCopyMode = False
End Sub

Anzeige
AW: Zeile automatisch in andere Tabelle kopieren
04.10.2006 14:44:14
Schorn
Hallo fcs
vielen Dank für die schnelle Hife
ist schon eingebaut
Gruß W. Schorn

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zeile automatisch in andere Tabelle kopieren


Schritt-für-Schritt-Anleitung

Um eine Zeile in einer Excel-Tabelle automatisch in eine andere Tabelle zu kopieren, kannst du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne deine Excel-Datei mit den Tabellen "Tabelle1" und "Tabelle2".

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  4. Kopiere und füge den folgenden VBA-Code ein:

    Sub Zeile_in_1_und_2_einfuegen()
       'Fügt im aktiven Blatt vor der aktiven Zelle eine Leerzeile ein
       'und fügt im Blatt "Tabelle2" an gleicher Position eine Kopie der Zeile mit Formeln ein
       Dim wks1 As Worksheet, wks2 As Worksheet, Zeile As Long
       Set wks1 = ActiveSheet
       Set wks2 = ActiveWorkbook.Sheets("Tabelle2")
       Zeile = ActiveCell.Row
       wks1.Rows(Zeile).Insert
       wks2.Rows(Zeile).Copy
       wks2.Cells(Zeile, 1).Insert shift:=xlDown
       Application.CutCopyMode = False
    End Sub
  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Führe das Makro aus, indem du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.

Mit diesem Makro kannst du eine Zeile in "Tabelle1" einfügen, und die Inhalte werden automatisch in "Tabelle2" an derselben Stelle kopiert.


Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 9: Index außerhalb des gültigen Bereichs."
    Lösung: Stelle sicher, dass der Tabellenname "Tabelle2" korrekt geschrieben ist und tatsächlich existiert.

  • Fehler: Die Zeile wird nicht korrekt kopiert.
    Lösung: Überprüfe, ob du das Makro in der richtigen Tabelle (Tabelle1) ausführst und dass die aktive Zelle korrekt positioniert ist.


Alternative Methoden

Eine alternative Methode, um Daten aus einer Excel-Datei in eine andere zu übernehmen, ist die Verwendung von Formeln. Du kannst beispielsweise die VERGLEICH- und INDEX-Funktionen nutzen, um Daten aus einer Tabelle automatisch zu ziehen, anstatt ein Makro zu verwenden. Hier ist ein Beispiel:

=INDEX(Tabelle1!A:A;VERGLEICH(B2;Tabelle1!B:B;0))

Diese Formel sucht den Wert in B2 in "Tabelle1" und gibt den entsprechenden Wert aus Spalte A zurück.


Praktische Beispiele

Angenommen, du hast folgende Daten in "Tabelle1":

A B
Name Alter
Max 30
Lisa 25

Wenn du nun eine Zeile einfügst, wird die Struktur in "Tabelle2" automatisch aktualisiert:

A B
Name Alter
Max 30
(neue Zeile)
Lisa 25

So kannst du eine Excel-Tabelle automatisch füllen aus einer anderen Tabelle.


Tipps für Profis

  • Makros speichern: Speichere deine Excel-Datei als Makro-fähige Datei (.xlsm), um sicherzustellen, dass das Makro erhalten bleibt.
  • Tastenkürzel: Weise dem Makro ein Tastenkürzel zu, um den Prozess zu beschleunigen.
  • Fehlerbehandlung: Implementiere Fehlerbehandlungsmechanismen im Makro, um unerwartete Fehler besser abzufangen.

FAQ: Häufige Fragen

1. Frage
Wie kann ich das Makro anpassen, um mehrere Zeilen gleichzeitig einzufügen?
Antwort: Du kannst eine Schleife im Makro implementieren, um dies zu ermöglichen.

2. Frage
Funktioniert das Makro in allen Excel-Versionen?
Antwort: Ja, das Makro sollte in den meisten modernen Excel-Versionen funktionieren (Excel 2010 und höher).

3. Frage
Kann ich das Makro auch für andere Tabellen verwenden?
Antwort: Ja, passe einfach die Tabellennamen im Code entsprechend an.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige