Kopieren aus anderen Tabellen mit VBA

Bild

Betrifft: Kopieren aus anderen Tabellen mit VBA von: Jürgen
Geschrieben am: 15.02.2005 08:40:24

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.


Bild


Betrifft: doppelt von: Jens
Geschrieben am: 15.02.2005 09:55:46

d


Bild


Betrifft: AW: Kopieren aus anderen Tabellen mit VBA von: u_
Geschrieben am: 15.02.2005 09:59:36

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ß


Bild


Betrifft: AW: Kopieren aus anderen Tabellen mit VBA von: Jürgen
Geschrieben am: 15.02.2005 11:07:49

Alles klar, vielen Dank funktioniert perfekt.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Kopieren aus anderen Tabellen mit VBA"