Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
568to572
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
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren aus anderen Tabellen mit VBA

Kopieren aus anderen Tabellen mit VBA
15.02.2005 08:40:24
Jürgen
Hallo, ich habe mal eine Frage.
Gibt es eine Möglichkeit das VBA erkennt in wieviele Zeilen einer Tabelle geschrieben wurde und dann nur die kopiert?
Ich habe eine Mappe mit 2000 Werten, nur die stehen in verschiedenen einzelnen Tabellen.
Ich will sie nun alle in eine gemeinsame Liste kopieren, da die Spalten in den einzelnen Tabellen identisch sind.
Das Problem ist eben nur das sich die Einträge in den einzelnen Tabellen ändern können bzw. es mehr oder weniger werden.
Mal als kleines Beispiel:
Tabelle1:
Typ: Stückzahl: Preis:
BMW 6 10,5
BMW 5 7,6
BMW 7 4,5
Tabelle2:
Typ: Stückzahl: Preis:
FIAT 10 8,5
AUDI 8 12,5
usw.
Das ganze will ich nun in eine gemeinsame Liste schreiben:
Typ: Stückzahl: Preis:
BMW 6 10,5
BMW 5 7,6
BMW 7 4,5
FIAT 10 8,5
AUDI 8 12,5
usw.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
doppelt
Jens
d
AW: Kopieren aus anderen Tabellen mit VBA
u_
auf die Schnelle:

Sub kopieren()
Dim i As Integer, s As Integer
Application.ScreenUpdating = False
s = Sheets(1).Range("A1").End(xlToRight).Column
For i = 2 To Worksheets.Count
With Sheets(i)
.Range(.Cells(2, 1), .Cells(.Range("A65536").End(xlUp).Row, s)).Copy _
Destination:=Sheets(1).Range("A65536").End(xlUp).Offset(1, 0)
End With
Next i
Sheets(1).Activate
Application.ScreenUpdating = True
End Sub

Gruß
AW: Kopieren aus anderen Tabellen mit VBA
Jürgen
Alles klar, vielen Dank funktioniert perfekt.
Anzeige

308 Forumthreads zu ähnlichen Themen

Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Anzeige
VBA - Letzte Tabelle Finden und Formel einfügen
André

Hallo Forum,
ich habe jetzt ein paar VBA Funktionen gefunden und in meine Datei eingebaut,
komme aber trotzdem nicht zum Schluss.
Ich habe 5 Tabellenblätter (1 - 5). Für die KW 6 will ich per VBA ein neues Blatt
einfügen und in A1 der Tabelle6 mittels Makro die Funktion
"vo...
07.12.2009 13:31:49
Thread-ID: 1122185
5 Beiträge
VBA Spalte kopieren und mehrfach (X-mal) einfügen
Sebastian

Hallo,
ich habe folgendes Problem:
Ich habe ein Excel Tabelle und möchte dort die komplette Spalte M kopieren und direkt rechts daneben mehrmals wieder einfügen (wenn möglich nicht nur die Inhalte sondern inkl. aller Formatierungen).
Die Menge, wie oft diese Spalte wieder eingefügt...
21.07.2010 15:44:35
Thread-ID: 1168151
6 Beiträge
Anzeige
Tabelle kopieren und in andere Datei einfügen
VBAmateur

Hallo an alle,
nachdem ich mich hier schon mehrfach mit Code bedient habe, möchte ich erstmal allen danken die sich die Mühe machen für "Gottes Lohn" anderen zu helfen.
Für die Lösung meines aktuellen Problems konnte ich leider nicht das richtige finden. Vielleicht können mir die Profis...
11.11.2011 21:33:05
Thread-ID: 1237564
8 Beiträge
VBA Zelle auf anderes Tabellenblatt kopieren
Timonski

Servus...
ich hätte gern beim aktivieren einer Tabelle einen bestimmten Teil eines Zellenwert auf einer anderen Tabelle stehen.
Quellezelle auf Tabellenblatt ABRECHNUNG H6
Ziel auf Tabellenblatt INDEX AY1
meine nicht funktionierende Formel :-)
Sheets("Index").Cells(1, 51) =...
20.03.2012 08:03:41
Thread-ID: 1255689
3 Beiträge
VBA kopieren und zeilen einfügen
dirk0011

Hallo zusammen,
habe ein ganz kleines Problem. Mit dem Button Werte Kopieren in dem Reiter "zusammenfassung" kopiert mir das Script wunderbar jeden neuen Eintrag von den dahinter liegenden Reitern. Jetzt kommt die Frage dazu.
Ich möchte gerne eigentlich immer die in grau markierten Über...
17.12.2012 14:53:15
Thread-ID: 1291240
18 Beiträge
per VBA in bestimmte Tabellennamen kopieren
Nibio

Liebe Profis,
ich bin in der Lage per VBA Zellen aus aktive Tabelle in alle Tabellenblätter zu kopieren. Aber ich kann nicht, in Tabellenblätter zu kopieren die mit "Stat" als Tabellenname beginnen, z.B "Stat112, 2Stat125" usw.. Könnte mir vielleicht jemand helfen?
Z.B, kopiere bereich...
29.01.2013 02:09:43
Thread-ID: 1296439
9 Beiträge
Mit VBA Werte aus Tabellen auf übersicht kopieren
BlueJay

Guten Morgen zusammen,
habe da mal wieder eine Frage - villeicht hat ja einer von euch eine solche Lösung schon mal bearbeitet und hat noch einen Code rumliegen den ich mir schnell anpassen könnte?
Und zwar möchte ich gerne auf einer Übesichtstabelle (erste Tabelle) in der Arbeitsmappe,...
26.03.2013 09:03:33
Thread-ID: 1306002
7 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
7
2
4
5
2
7
2
17
8
6
9
2
2
3
4
5
13
8
9
4
1
16
3
3
8