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

Forumthread: Daten kopieren und in die nächste freie Zeile eine

Daten kopieren und in die nächste freie Zeile eine
05.11.2008 09:34:00
Haagangelika
Hallo,
kann mir bitte jemand helfen.
Ich möchte aus meinem Tabellenblatt1 einen bestimmten Bereich markieren, und diesen dann in Tabellenblatt 2 einfügen, und zwar immer in die nächste freie Zeile.
Es wird immer aus Tabellenblatt1 ( welches bei bedarf überschrieben wird ) in Tabellenbatt 2 nächts freie Zeile kopert. Das ganze soll für nicht Excel Kenner einfach zu handhaben sein- also per VBA ?
Ich hoffe man kann verstehen was ich will.
Vielen Dank für Eure Hilfe
Angelika
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten kopieren und in die nächste freie Zeile eine
05.11.2008 10:02:00
Timo
Hallo Angelika,
versuch es mal mit diesem Code:
In ein Standardmodul einfügen und einer Schaltfläche zuweisen.

Sub Auswahl_kopieren()
Dim intZeile As Integer
Selection.Copy
intZeile = Sheets("Tabelle2").UsedRange.Rows.Count + 1
Sheets("Tabelle2").Activate
Cells(intZeile, 1).Select
ActiveSheet.Paste
Sheets("Tabelle1").Activate
Application.CutCopyMode = False
End Sub


Gruß
Timo

Anzeige
AW: Daten kopieren und in die nächste freie Zeile eine
05.11.2008 10:18:57
Maik
hmm kann ich nix mit anfangen was du mir da geschrieben hast ... man konnte keine Auswahl treffen VBA kenntnisse 0 :(
AW: Daten kopieren und in die nächste freie Zeile eine
05.11.2008 10:37:00
Maik
arrrg jetzt habe die antwort gelesen und gesehen das es garnicht auf meinem post war .... nicht über meine antwort nachdenken wenn es geht kann die gleich einer rauslöschen bitte ... Augen sind heute morgen noch nicht so ganz "auf"
Anzeige
AW: Daten kopieren und in die nächste freie Zeile
05.11.2008 10:51:00
Angelika
Hallo Maik und Timo,
danke für euren schnellen Beitrag. Nach ein wenig umbau funktionierts jetzt so wie ich mir das vorgestellt habe.
Einen schönen Tag vom Bodensee
wünscht Euch Angelika
AW: Daten kopieren und in die nächste freie Zeile
05.11.2008 10:59:10
Thomas
Hallo Angelika,
habe deinen Tread gelesen, da ich auch nach dieser Lösung gesucht habe. Aber als Neuling im Excel, habe ich keinen schimmer wie bzw. wo ich den Code einbauen soll.
Kannst Du mir eine Beispielmappe senden?
Thomas
Anzeige
AW: Daten kopieren und in die nächste freie Zeile
05.11.2008 11:57:21
Timo
Hallo,
Beispielmappe kann ich nicht uploaden (server-restriktionen), aber eine kurze Anleitung geben.
mit ALT+F11 den VBA-Editor öffnen
Links ist da eine Liste der aktuell geöffneten Arbeitsmappen,
hier die gewünschte Mappe anklicken und im Menü Einfügen auf Modul klicken
den Code in das Modul kopieren und ggf. anpassen ("Tabelle1" etc. durch den eigenen Tabellennamen ersetzen)
Dann auf eine Symbolleiste rechtsklicken und unter Makro den Smiley-Button in eine Leiste ziehen. -Rechtsklick auf den Button und unter Makros den Makronamen eingeben.
Gruß
Timo
Anzeige
AW: Daten kopieren und in die nächste freie Zeile
05.11.2008 12:17:07
Thomas
Hallo Timo,
danke für deine Anleitung, werde mal ein wenig Üben.
Thomas

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Daten kopieren und in die nächste freie Zeile einfügen


Schritt-für-Schritt-Anleitung

Um Daten aus einem Tabellenblatt in die nächste freie Zeile eines anderen Tabellenblatts zu kopieren, kannst du den folgenden VBA-Code verwenden. Dieser Code wird dir helfen, den Prozess zu automatisieren, sodass auch Excel-Neulinge damit umgehen können.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Klicke im Menü auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
  3. Füge den folgenden VBA-Code in das Modul ein:
Sub Auswahl_kopieren()
    Dim intZeile As Integer
    Selection.Copy
    intZeile = Sheets("Tabelle2").UsedRange.Rows.Count + 1
    Sheets("Tabelle2").Activate
    Cells(intZeile, 1).Select
    ActiveSheet.Paste
    Sheets("Tabelle1").Activate
    Application.CutCopyMode = False
End Sub
  1. Schließe den VBA-Editor und gehe zurück zu deinem Excel-Dokument.
  2. Um den Code auszuführen, kannst du eine Schaltfläche erstellen und das Makro zuweisen.

Häufige Fehler und Lösungen

  • Fehler: "Der eingegebene Name ist ungültig."

    • Lösung: Stelle sicher, dass die Tabellennamen im Code ("Tabelle1" und "Tabelle2") mit den tatsächlichen Namen in deinem Excel-Dokument übereinstimmen.
  • Fehler: "Keine Auswahl getroffen."

    • Lösung: Achte darauf, dass du einen Bereich in "Tabelle1" ausgewählt hast, bevor du das Makro ausführst.

Alternative Methoden

Wenn du keine VBA-Lösungen verwenden möchtest, kannst du auch die folgenden Methoden nutzen:

  1. Kopieren und Einfügen: Markiere den gewünschten Bereich in "Tabelle1", kopiere ihn mit Strg + C, gehe zu "Tabelle2" und drücke Strg + V, um ihn an der gewünschten Stelle einzufügen.
  2. Power Query: Nutze Power Query, um Daten zu importieren und transformieren. Dies ist besonders nützlich, wenn du regelmäßig Daten aus verschiedenen Quellen konsolidieren möchtest.

Praktische Beispiele

Angenommen, du hast in "Tabelle1" die Werte in den Zellen A1 bis A5, und du möchtest diese in die nächste freie Zeile in "Tabelle2" kopieren:

  1. Wähle die Zellen A1 bis A5 in "Tabelle1" aus.
  2. Führe das Makro Auswahl_kopieren aus.
  3. Die Daten werden automatisch in die nächste freie Zeile in "Tabelle2" eingefügt.

Tipps für Profis

  • Makros speichern: Speichere deine Excel-Datei als .xlsm, um sicherzustellen, dass alle Makros erhalten bleiben.
  • Fehlerbehandlung: Füge im VBA-Code Fehlerbehandlungsroutinen hinzu, um unerwartete Fehler besser zu handhaben.
  • Dokumentation: Kommentiere deinen Code, um anderen (oder dir selbst) zu helfen, die Funktionsweise zu verstehen.

FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen?
Du kannst die Tabellennamen im Code ändern, um sie an deine Bedürfnisse anzupassen. Ersetze "Tabelle1" und "Tabelle2" durch die entsprechenden Namen deiner Arbeitsblätter.

2. Wie führe ich das Makro aus?
Du kannst das Makro über eine Schaltfläche, die du in deiner Excel-Datei erstellt hast, oder direkt im VBA-Editor ausführen. Drücke dazu F5, während du im Editor bist.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige