Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.10.2025 15:10:14
VBA: Datei Upload mit http: POST
25.10.2025 13:01:47
Formel gibt nur #Wert! aus, wenn ich sie mit VBA berechne
25.10.2025 12:33:55
aktuellstes Datum aus Zelle auslesen
25.10.2025 08:21:40
Datensatz trennen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1796to1800
1796to1800
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Zellen in neues Blatt kopieren

Forumthread: Bestimmte Zellen in neues Blatt kopieren

Bestimmte Zellen in neues Blatt kopieren
06.12.2020 12:54:03
Thomas
Hallo liebe Fachleute!
Ich bin gerade dabei, mich mit den VBA Möglichkeiten in Excel vertraut zu machen.
Nun mein erstes Problem:
Ist:
Ich habe eine Arbeitsmappe mit zwei Blättern ("Formular" & "Daten").
Beim Formular werden u.a. in Zelle C3 und C4 Daten vom Nutzer eingegeben.
Soll:
Auf Knopfdruck sollen nun die Nutzereingaben der bestimmten Zellen des Formulars in die jeweils erste freie Zeile des Datenblattes kopiert werden.
Drücke ich noch einmal auf den Button, sollen die (dann natürlich neuen) Daten im Datenblatt in die nächste Zeile kopiert werden usw.
Ich danke euch bereits im Voraus für Eure Hilfe.
Beste Grüße
Thomas
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Zellen in neues Blatt kopieren
06.12.2020 13:02:50
Werner
Hallo,
und wohin, in welche Spalte, soll kopiert werden?
Excel hat da dann doch schon ein paar davon.
Gruß Werner
AW: Bestimmte Zellen in neues Blatt kopieren
06.12.2020 13:15:36
Thomas
Hi Werner.
Also im Datenblatt sollen in Zeile 1 Überschriften stehen und die Eingabedaten dann ab A2 bis open End.
AW: Bestimmte Zellen in neues Blatt kopieren
06.12.2020 13:16:31
GerdL
Moin Thomas,
nach Spalten A:B z.B. so: 
Sub Unit()
Range("C3:C4").Copy
Worksheets("Daten").Cells(Worksheets("Daten").Rows.Count, 1).End(xlUp).Offset(1, 0). _
PasteSpecial xlPasteValues, Transpose:=True
End Sub

Gruß Gerd
Anzeige
AW: Bestimmte Zellen in neues Blatt kopieren
06.12.2020 13:24:54
Thomas
Ja, das geht in die Richtung. Wenn ich jetzt noch weitere Zellen kopieren will (sind noch nicht abschließend) zB H4 einfach in der Range ergänzen?
Und wäre es auch möglich, die Daten in eine komplett neue Excel Tabelle (Daten.xlsm) zu kopieren statt des "Daten" Blattes in der selben Excel?
Grüße
Anzeige
AW: Bestimmte Zellen in neues Blatt kopieren
06.12.2020 14:03:45
GerdL
Hallo Thomas,
es wäre schon besser, du könntest die "neue andere " Datei u. Blatt benennen.
Getrennte Bereiche müssen i.d.R. getrennt kopiert werden. 
Sub Unit()
Dim Zielblatt As Worksheet
Set Zielblatt = Workbooks(Workbooks.Count).Worksheets(1)
Range("C3:C4").Copy
Zielblatt.Cells(Zielblatt.Rows.Count, 1).End(xlUp).Offset(1, 0). _
PasteSpecial xlPasteValues, Transpose:=True
Range("H4").Copy
Zielblatt.Cells(Zielblatt.Rows.Count, 1).End(xlUp).Offset(0, 2). _
PasteSpecial xlPasteValues
Application.CutCopyMode = False
Set Zielblatt = Nothing
End Sub

Gruß Gerd
Anzeige
AW: Bestimmte Zellen in neues Blatt kopieren
06.12.2020 14:50:13
Thomas
Also die Eingabe-Datei heißt Formular.xlsx mit dem Arbeitsblatt "Auftrag" und die Zieldatei Daten.xlsx.
Im Formular steht in Zelle H2 das aktuelle Datum mit der HEUTE() Funktion.
Wäre es denn nun auch noch möglich, die eingegebenen Daten aus dem Formular abhängig vom heutigen Datum in in der Daten.xlsx zu speichern? Sprich ich erstelle dort Arbeitsblätter mit den Namen Januar bis Dezember.
Nun gebe ich in der Formular.xlsx meine Daten ein und drücke auf den Speichern Button. Das Makro schaut nun, nach dem heutigen Datum und speichert die Daten dann in der Daten.xlsx im korrespondieren Arbeitsblatt (also heute bspw. im Dezember Blatt).
Das geht jetzt schon recht weit, aber in dieser Art wäre es für meinen Nutzen optimal. Ich hoffe, das war verständlich.
Anzeige
;

Forumthreads zu verwandten Themen

Kopieren eines Bereiches in ein neues Arbeitsblatt
Anett

Hallo,
ich habe ein Problem bei dem ich nicht weiterkomme:
Ich möchte einen Bereich aus einem Arbeitsblatt in ein anderes von insgesamt 20 Arbeitsblatt kopieren. Allerdings gibt es noch eine Schwierigkeit: Der zu kopierende Bereich hat 124 Zeilen. Jede Zeile soll abhängig von Ihrem Inha...
10.09.2008 11:12:00
Thread-ID: 1008687
2 Beiträge
Letzte Zeile in neues Blatt kopieren
Matthias

Hallo zusammen,
ich habe zwar in der Suche einiges über die LETZTE ZEILE gefunden, aber mein Problem konnte ich dennoch nicht richtig lösen.
Hier, was ich habe:
- In einer Excel-Datei mehrere Tabellen, die Anzahl kann sich ändern (z.B. Tabelle1, Tabelle2, Tabelle3...Tabelle 30)
...
11.09.2008 07:20:00
Thread-ID: 1008963
7 Beiträge
Variablen Bereich in neues Blatt kopieren
robert

Ein Hallo an Alle
ich hätte gerne Hilfe zu meiner Aufgabe
es geht um das kopieren von einem variablen Bereich von Blatt Daten auf Blatt Auswertung
genauere Beschreibung in der Datei
https://www.herber.de/bbs/user/58797.xls
Bitte um Hilfe und Gruß
Robert
26.01.2009 12:43:27
Thread-ID: 1043840
16 Beiträge
Bei wert in Spalte zeile A bis P in Neues Blatt
juergen

Hallo liebe Excel Freunde
Hab da ein kleines Problem.
Ich hab da 2 Tabellen eine mit Eingaben und eine zum Auswerten.
Nun soll das Makro:
Wenn in der Spalte (D) der Tabelle Eingaben eine Wert bzw.eine Zahl steht , dann soll die Zeile von A bis P in die Tabelle Rechentab fortlauf...
25.02.2009 18:12:34
Thread-ID: 1054119
2 Beiträge
Letzte Zeile finden und in neues Blatt schreiben
Claudia

Hallo zusammen,
wie ich die erste frei Zeile finde, weiß ich. :-)
Sub erste_leere_zelle_finden() Range("a65536").End(xlUp).Offset(1, 0).Select End Sub
Jetzt brauche ich aber Eure Hilfe!
Ich bräuchte ein Makro, was über sämtliche Tabellen einer Datei die letzte belegte Zeile i...
06.04.2009 12:17:04
Thread-ID: 1067080
5 Beiträge
Anzeige
Mittelwerte in ein neues Blatt kopieren per VBA
Drusilla

Hallo liebe Profis
Da mir letztes Mal so gut geholfen wurde, würde ich euch gerne nochmals fragen. Ich möchte per Makro folgendes erreichen:
-neues Blatt generieren mit dem Namen „Uebersicht“
-dort Mittelwerte (sind schon berechnet, schreibe das nur, damit ihr wisst, dass in der...
06.05.2009 09:51:09
Thread-ID: 1073265
2 Beiträge
Daten aus Tabellenblättern in ein Blatt kopieren
Jens

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ca. 20 Tabellenblätter.
Auf allen Tabellenblättern sind drei Zellen (A4, A6, S41), deren Werte ich gerne auf Tabellenblatt 1 (Tabelle1) kopiert hätte.
Es sollen nur Werte, keine Formate kopiert werden [.PasteSpecial Paste:=xlP...
15.07.2009 12:25:07
Thread-ID: 1088795
5 Beiträge
Anzeige
Werte in anderes Tabellenblatt übertragen
Marcus

Hallo, zusammen,
Ich habe hier ein dolles Makro, was mir hier jemand aus diesem Forum geschrieben hat. Dieses Makro funktionierte bisher auch ganz gut, bis durch ein Zufall ein Fehler entdeckt wurde. Dieser Fehler liesse sich durch genau festgelegte Bedingungen umgehen, aber vielleicht läss...
03.10.2009 20:46:05
Thread-ID: 1106914
6 Beiträge
Zeilen suchen und in neues Blatt uebertragen
TT

Hallo liebe Excel- und VBA-Cracks!
Möchte zur Zeiterfassung von mehreren Personen, die alle in mehrerer Projekten und darin in unterschiedlichen Arbeitspaketen arbeiten, folgendes tun:
Projektmitarbeiter fuellt in einem Monatsblatt alle notwendigen Angaben aus, wobei er fuer jede Tätigk...
21.10.2009 06:33:49
Thread-ID: 1110868
2 Beiträge
Zellen in neuem Tabellenblatt kopieren
Ingo

Hallo zusammen,
folgendes Problem:
In meiner ersten Spalte sind x Zellen, wobei eine Zelle mehrere Wörter (durch Semikolon getrennt) enthalten können (siehe Überschrift Ausgangssituation).
Diese müssen in einem neuen Tabellenblatt nun untereinander kopiert werden (siehe Überschrift...
10.11.2009 13:16:06
Thread-ID: 1115551
3 Beiträge
Autofilter, kopieren in neues Blatt fehlerhaft
Günther

Guten Morgen,
mit folgendem Code prüfe ich, ob der Eintrag "TED" vorkommt, lasse dann entsprechend filtern und in das eigene Blatt TED kopieren.
Funktioniert aber nur, wenn tatsächlich ein TED-Eintrag besteht. Ist keiner vorhanden kopiert _ es ALLE Datensätze. Kann man hier evtl. mit e...
01.12.2009 11:08:07
Thread-ID: 1121160
3 Beiträge
Zeile in anderes Tabellenblatt kopieren
Carle

Hallo zusammen!
Ich würde gerne in einem Arbeitsblatt die Kopfzeile einer Tabelle in ein anderes Tabellenblatt derselben Arbeitsmappe kopieren, und zwar in der Weise, dass bei einer Änderung der Tabellenzeile (z. B. durch Einfügen einer neuen Spalte oder Änderung des Werts einer Zelle) sich...
01.02.2010 20:51:08
Thread-ID: 1134230
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Bestimmte Zellen in neues Blatt kopieren

Schritt-für-Schritt-Anleitung

Um bestimmte Zellen in ein neues Blatt zu kopieren, kannst Du VBA (Visual Basic for Applications) verwenden. Folge diesen Schritten:

  1. Öffne die Excel-Datei mit den Blättern "Formular" und "Daten".

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

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

  4. Füge den folgenden VBA-Code ein:

    Sub Unit()
   Dim Zielblatt As Worksheet
   Set Zielblatt = Workbooks("Daten.xlsx").Worksheets(Format(Date, "MMMM")) ' Monatsblatt erstellen

   ' Daten aus dem Formular kopieren
   Range("C3:C4").Copy
   Zielblatt.Cells(Zielblatt.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues, Transpose:=True

   ' Weitere Zellen hinzufügen
   Range("H4").Copy
   Zielblatt.Cells(Zielblatt.Rows.Count, 1).End(xlUp).Offset(0, 2).PasteSpecial xlPasteValues

   Application.CutCopyMode = False
   Set Zielblatt = Nothing
End Sub

  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Erstelle einen Button in Deinem Arbeitsblatt, um das Makro auszuführen. Gehe dazu auf Entwicklertools > Einfügen > Button und wähle das Makro "Unit" aus.

  7. Klicke auf den Button, um die Daten zu kopieren.

Häufige Fehler und Lösungen

  • Fehler: "Zielblatt nicht gefunden"

    • Stelle sicher, dass die Datei "Daten.xlsx" geöffnet ist und das Zielblatt existiert.

  • Fehler: "Method 'Range' des Objekts 'Worksheet' fehlgeschlagen"

    • Überprüfe, ob die Zellreferenzen korrekt sind und die Zellen nicht leer oder ungültig sind.

Alternative Methoden

Wenn Du keine VBA-Programmierung verwenden möchtest, kannst Du auch die Copy & Paste-Funktion manuell nutzen:

  1. Markiere die Zellen in Deinem Formularblatt.
  2. Rechtsklick und wähle Kopieren.
  3. Wechsle zum Datenblatt, klicke in die erste freie Zeile und wähle Einfügen.

Diese Methode ist jedoch weniger automatisiert und erfordert manuelle Schritte.

Praktische Beispiele

  • Um Daten aus dem "Formular"-Blatt in das "Daten"-Blatt zu übertragen, kannst Du den Code erweitern, um auch andere Zellen oder Bereiche zu kopieren.

  • Wenn Du beispielsweise Zellen aus den Zeilen 5 bis 10 kopieren möchtest, kannst Du die Range-Angabe entsprechend anpassen:

    Range("C3:C4, H4, A5:A10").Copy

Tipps für Profis

  • Nutze Fehlerbehandlungsroutinen in VBA, um sicherzustellen, dass Dein Makro robust ist. Füge On Error Resume Next ein, um Fehler zu ignorieren.
  • Verwende Namensbereiche, um die Lesbarkeit Deines Codes zu verbessern und sicherzustellen, dass Du immer auf die richtigen Zellen zugreifst.
  • Überlege, ob Du Datenvalidierung in Deinem Formular verwenden möchtest, um sicherzustellen, dass die Eingaben korrekt sind.

FAQ: Häufige Fragen

1. Kann ich auch Daten in eine andere Excel-Datei kopieren? Ja, das ist möglich. Stelle sicher, dass die Zieldatei geöffnet ist und passe den VBA-Code entsprechend an.

2. Wie kann ich automatisch bestimmte Zeilen in ein anderes Tabellenblatt kopieren? Du kannst Bedingungen in Dein VBA-Makro einfügen, um nur bestimmte Zeilen zu kopieren, basierend auf Deinen Kriterien.

3. Was ist der Unterschied zwischen "PasteSpecial" und "Paste"? PasteSpecial ermöglicht das Einfügen von Werten, Formaten und Formeln, während Paste alle Inhalte einschließlich Formate einfügt.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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