Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1644to1648
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten in unterschiedliche Tabellenblätter kopieren

Daten in unterschiedliche Tabellenblätter kopieren
24.09.2018 16:41:41
Michael
Hallo zusammen,
ich in ein absoluter Neuling in VBA und hoffe ihr könnt mir helfen.
Ich habe ein Tabellenblatt (EINGABE) in den ich meine Daten eingebe:
Spalte A: Zahlen 1-5
Spalte B: Zahlen 1-300
Spalte C: Betrag in Euro
Spalte A gibt das Tabellenblatt an, in welche die Daten aus der Spalte B und C kopiert werden sollen.
Nach dem alle Daten kopiert sind soll das Tabellenblatt (EINGABE) geleert werden.
Bei nächsten Aufruf des Skriptes müssen die Daten in die nächste freie Zeile kopiert werden und dürfen nicht überschrieben werden.
Ich habe mal eine Beispiel Tabelle gemacht.
https://www.herber.de/bbs/user/124189.xlsx
Danke
Gruß Michael

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

Betreff
Datum
Anwender
Anzeige
AW: Daten in unterschiedliche Tabellenblätter kopieren
24.09.2018 16:50:13
Hajo_Zi
das geht nicht, da eine XLSX Datei kein Makro enthalten kann.
Ich sehe keinen Grund eine Datei 2x zu speichern. Ich führe keine Liste unter welchem Dateinamen ich die Datei gespeichert habe.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
schmeiß dein Excel weg...
24.09.2018 18:08:00
Werner
Hallo Hajo,
...meines kann das nämlich.
Und sogar noch mehr. Mein Excel hat das tatsächlich hin gebracht den Code abzuarbeiten, ohne dass ich die Datei überhaupt gespeichert habe. Ich bin begeistert.
Gruß Werner
AW: Daten in unterschiedliche Tabellenblätter kopieren
24.09.2018 17:27:09
Werner
Hallo Michael,
heißen deine Tabellenblätter tatsächlich Tabelle1, Tabelle2, Tabelle3 ....
Und trägst du auch tatsächlich in Spalte A jeweils nur 1, 2, 3... ein
Gruß Werner
Anzeige
Noch was vergessen...
24.09.2018 17:27:59
Werner
Hallo Michael,
...und ist auch sichergestellt, dass es das jeweilige Tabellenblatt auch schon gibt?
Gruß Werner
wenn dem so ist dann...
24.09.2018 18:05:39
Werner
Hallo Michael,
...z.B. so: 
Option Explicit
Public Sub Übertrag()
Dim loLetzteZ As Long, raZelle As Range
With Worksheets("Eingabe")
If .Cells(2, 1)  "" Then
For Each raZelle In .Range(.Cells(2, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 1))
With Worksheets("Tabelle" & CStr(raZelle))
loLetzteZ = .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row
If .Cells(5, 1) = "" Then loLetzteZ = 5
.Cells(1, 2) = raZelle
.Cells(loLetzteZ, 1).Resize(, 2) = raZelle.Offset(, 1).Resize(, 2).Value
End With
Next raZelle
.Range(.Cells(2, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 3)).ClearContents
End If
End With
End Sub
Gruß Werner
Anzeige
AW: wenn dem so ist dann...
25.09.2018 10:48:50
Michael
Hallo Werner,
Danke für deine Hilfe.
Es ist sichergestellt das die Tabellenblätter exisitieren. In Spalte A stehen nur Zahlen von 1-5. Es kann aber sein, dass Zahlen öfter vorkommen.
Ich teste nachher mal dein Skript.
Viele Grüße
Michael
Testen ja, Rückmeldung nein? o.w.T.
27.09.2018 13:43:12
Werner

300 Forumthreads zu ähnlichen Themen

Daten in mehrere Arbeitsblätter kopieren
Ben

Hallo
Ich habe folgenden Code, um den Wert der Spalte D vom Arbeitsblatt "Übersicht" auf das Blatt "Montag" zu kopieren.
Sub schieben1() Dim R As Long R = Me.Shapes(Application.Caller).TopLeftCell.Row Select Case Left(Cells(R, 13).Text, 1) Case 1: kopieren "Montag", "D" & R End Se...
27.03.2009 09:43:23
Thread-ID: 1064498
3 Beiträge
Anzeige
mehrere Arbeitsblätter zusammenkopieren
Stefan

Hallo zusammen,
ich muß leider schon wieder die Experten bemühen, da mein VBA leider nicht ausreichend ist.
Ich habe eine Mappe mit ca. 90 Tabellen. Alle ausser der 1. Tabelle können Infos im Bereich B6:E60 enthalten . Nun würde ich gern zur Auswertung alle diese Infos auf das Worksheet...
19.06.2009 10:57:02
Thread-ID: 1082815
10 Beiträge
Daten aus mehrere Tabellenblätter kopieren
Sebastian

Hallo zusammen,
ich habe in einer Exceldatei mehrere Blätter der Form: 0104, 0204, 0504, 0904, etc.
Der Aufbau ist immer gleich. Nun möchte ich von allen Blättern jeweils die 2. Zeile in ein neues Tabellenblatt kopiert haben. Für ein Blatt ist das kein Problem, allerdings kann ich nic...
07.03.2011 17:12:03
Thread-ID: 1204623
2 Beiträge
Anzeige
Datenbereich von mehreren Blättern kopieren
mehreren

Guten Morgen zusammen,
ich habe ein kleines Problem, wobei ich nicht verstehe warum mein Makro außerhalb der Entwicklerumgebung anders arbeitet.
Ich habe mehrere Arbeitsblätter die ab Zelle E23 bis Exx Daten enthalten, wobei deren Anzahl variieren kann. Ich möchte jetzt alle Daten aus d...
19.03.2013 08:13:30
Thread-ID: 1304676
5 Beiträge
verschiedener Bereiche in mehrere Blätter kopieren
Matze

Hallo zusammen,
wo liegt denn nun wieder mein Gedankenfehler?
Wie kann ich denn verschiedene Bereiche einer Tabelle(zB1) in weitere Tabellen(Mehrzahl Tab2,Tab3,..)übertragen/kopieren? Dabei ist zu beachten das die Bereiche "nicht" zusammenhängend sind.
'Fehlermeldung (Laufzeitfehler...
01.08.2013 21:48:38
Thread-ID: 1325334
6 Beiträge
Werte aus mehreren Tabellenblättern kopieren
Kai

Hallo zusammen,
ich nutze ein Makro um aus mehreren Tabellenblättern ein einziges zu erstellen.
Die Quelldateien haben bis zu 50.000 Zeilen sodass sich eine Menge Daten ergeben und das Makro sehr lange läuft. Allerdings sind dort viele Werte mit Null enthalten, die ich in der Zieldatei...
15.09.2015 16:18:01
Thread-ID: 1447599
2 Beiträge
Mehrere Tabellenblätter kopieren
Dennis

Guten Morgen Zusammen,
ich versuche gerade, aus einer großen Tabelle (Excel 2010) nur ein paar einzelne Tabellenblätter in eine neue Datei zu kopieren. Das funktioniert soweit gut.
Was ich noch zusätzlich möchte, ist bei jedem einzelnen, zu kopierendem Blatt einen bereich angeben der K...
21.01.2016 10:31:25
Thread-ID: 1470198
2 Beiträge
Daten und Formeln in mehrere Tabellenblätter
Dan

Hallo Zusammen,
ich versuche derzeit ein Template zusammenzustellen.
Dabei habe ich dynamische Bezeichnungen für die einzelnen Tabellenblätter.
Der VBA Code kann derzeit über eine Variable (i) erkennen, auf welches Tabellenblatt zugegriffen werden soll.
Nun habe ich 5 Tabellenbl...
09.04.2016 18:47:23
Thread-ID: 1487099
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
9
1
5
4
5
1
1
4
12
3
2
1
3
5
11
5
3
4
17
3
4
11
8