Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Werte aus Tabelle 1 nach Tabelle 2 kopieren

Werte aus Tabelle 1 nach Tabelle 2 kopieren
15.02.2007 16:44:00
Fritz_W
Hallo VBA-Experten,
ich brauche erneut eure Unterstützung.
Mit welchem Code lässt sich folgendes bewerkstelligen:
Das Makro soll Daten aus der Tabelle1 wie folgt in die Tabelle2 kopieren:
Es sollen die Daten aus Tabelle1 in Zelle AM15, AN15 und AP15 kopiert werden und zwar in die Daten aus AM 15 in die Tabelle2 in die erste freie Zelle der Spalte A (beginnend ab Zeile 5!). Dann sollten die Daten aus AN15 in die Spalte B der gleichen Zeile (in Tabelle2) und die aus AP 15 in die Spalte C der gleichen Zeile (in Tabelle2) kopiert werden!
Vielen Dank für eure Hilfe.
Mfg
Fritz
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Werte aus Tabelle 1 nach Tabelle 2 kopieren
15.02.2007 17:43:00
Peter
Hallo Fritz,
das beigefügte Makro in ein allgemeines Modul kopieren:


'
'   Das Makro soll Daten aus der Tabelle1 wie folgt in die Tabelle2 kopieren:
'   Es sollen die Daten aus Tabelle1 in Zelle AM15, AN15 und AP15 kopiert werden
'   und zwar in die Daten aus AM 15 in die Tabelle2 in die erste freie Zelle der
'   Spalte A (beginnend ab Zeile 5!).
'   Dann sollten die Daten aus AN15 in die Spalte B der gleichen Zeile (in Tabelle2)
'   und die aus AP 15 in die Spalte C der gleichen Zeile (in Tabelle2) kopiert werden!
'
Public Sub Kopieren()
Dim lLetzte  As Long
   With Worksheets("Tabelle2")
      lLetzte = IIf(.Range("A65536") <> "", 65536, .Range("A65536").End(xlUp).Row) + 1
      If lLetzte < 5 Then lLetzte = 5
   End With
   With Worksheets("Tabelle1")
      Worksheets("Tabelle2").Cells(lLetzte, 1).Value = .Range("AM15")
      Worksheets("Tabelle2").Cells(lLetzte, 2).Value = .Range("AN15")
      Worksheets("Tabelle2").Cells(lLetzte, 3).Value = .Range("AP15")
   End With
End Sub 


Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Werte aus Tabelle 1 nach Tabelle 2 kopieren
15.02.2007 17:54:53
Fritz_W
Hallo Peter,
das Makro läuft wie gewünscht. Super!
Vielen Dank für Deine Hilfe.
Schöne Grüße
Fritz
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Werte aus Tabelle 1 nach Tabelle 2 kopieren


Schritt-für-Schritt-Anleitung

Um Werte aus einer Excel Tabelle 1 in Tabelle 2 zu kopieren, kannst Du ein VBA-Makro verwenden. Befolge dazu die folgenden Schritte:

  1. Öffne Deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke im Menü auf Einfügen und wähle Modul aus.

  3. Kopiere den folgenden VBA-Code in das Modul-Fenster:

    Public Sub Kopieren()
       Dim lLetzte As Long
       With Worksheets("Tabelle2")
           lLetzte = IIf(.Range("A65536") <> "", 65536, .Range("A65536").End(xlUp).Row) + 1
           If lLetzte < 5 Then lLetzte = 5
       End With
       With Worksheets("Tabelle1")
           Worksheets("Tabelle2").Cells(lLetzte, 1).Value = .Range("AM15")
           Worksheets("Tabelle2").Cells(lLetzte, 2).Value = .Range("AN15")
           Worksheets("Tabelle2").Cells(lLetzte, 3).Value = .Range("AP15")
       End With
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Um das Makro auszuführen, drücke ALT + F8, wähle Kopieren aus und klicke auf Ausführen.

Mit diesem Makro werden die Werte aus den Zellen AM15, AN15 und AP15 der Tabelle 1 in die erste freie Zeile der Tabelle 2 kopiert.


Häufige Fehler und Lösungen

  • Fehler: "Subscript out of range"

    • Lösung: Stelle sicher, dass die Tabellennamen ("Tabelle1" und "Tabelle2") genau so im Excel vorhanden sind. Kleinere Abweichungen führen zu Fehlern.
  • Problem: Daten werden nicht korrekt kopiert

    • Lösung: Überprüfe, ob die Zellen AM15, AN15 und AP15 in Tabelle 1 tatsächlich Werte enthalten. Leere Zellen werden nicht in Tabelle 2 übertragen.

Alternative Methoden

Wenn Du kein Makro verwenden möchtest, kannst Du die Werte auch manuell kopieren:

  1. Markiere die Zellen AM15, AN15 und AP15 in Tabelle 1.
  2. Drücke STRG + C, um die Zellen zu kopieren.
  3. Wechsle zu Tabelle 2 und wähle die erste freie Zelle in Spalte A ab Zeile 5 aus.
  4. Drücke STRG + V, um die kopierten Werte einzufügen.

Diese Methode eignet sich besonders gut, wenn Du nur gelegentlich Daten übertragen möchtest.


Praktische Beispiele

Angenommen, Du hast in Tabelle 1 folgende Werte:

  • AM15: "Datum"
  • AN15: "Umsatz"
  • AP15: "Kosten"

Wenn Du das Makro ausführst, werden diese Werte in die nächste freie Zeile in Tabelle 2 kopiert. So kannst Du die Excel Tabelle 1 zu 1 kopieren und die Daten einfach übertragen.


Tipps für Profis

  • Automatisierung: Du kannst das Makro in einer Schaltfläche oder im Ribbon integrieren, um den Prozess zu automatisieren und einfacher zugänglich zu machen.
  • Datenüberprüfung: Implementiere eine Überprüfung, um sicherzustellen, dass keine Duplikate in Tabelle 2 erstellt werden, bevor Du die Werte überträgst.
  • Formatierung: Achte darauf, dass die Formatierungen in Tabelle 2 vor dem Einfügen der Werte korrekt eingestellt sind, um ein einheitliches Erscheinungsbild zu gewährleisten.

FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen, um Werte aus anderen Zellen zu kopieren? Du kannst die Zellreferenzen im Code einfach ändern, z.B. Range("AM15") zu Range("A1"), um andere Zellen zu kopieren.

2. Gibt es eine Möglichkeit, das Kopieren zu automatisieren? Ja, Du kannst das Makro so einstellen, dass es beim Öffnen der Datei oder beim Ändern bestimmter Zellen automatisch ausgeführt wird.

3. Funktioniert das auch in Excel Online? Leider unterstützt Excel Online keine VBA-Makros, daher musst Du diese Methode in der Desktop-Version von Excel verwenden.

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