Tabelle kopiern

Forumthread: Tabelle kopiern
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Tabelle kopiern

Tabelle kopiern

13.09.2003 19:05:14

Sascha

Hallo liebe Freunde
Ich möchte drei verschiedene Tabellen (Blatt1!A1:C2500, Blatt2!A1:C2500, Blatt3A1:C2500) auf ein mall kopieren ohne lehren Zellen und dann werte in Blatt4 sortiert einfügen .#
Wer hilf mir??????
DANKE

Gruß Sascha

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabelle kopiern

13.09.2003 19:11:25

PeterW
AW: Tabelle kopiern

13.09.2003 19:15:56

Sascha
AW: Tabelle kopiern

13.09.2003 19:27:41

PeterW

AW: Tabelle kopiern

13.09.2003 19:11:25

PeterW

Hallo Sascha,

ist Blatt4 leer oder stehen da schon Werte? Wonach soll Blatt 4 sortiert werden (ich vermute nachdem alle drei Bereiche eingefügt worden sind)? Kommt eine VBA-Lösung für dich in Frage?

Gruß
Peter

AW: Tabelle kopiern

13.09.2003 19:15:56

Sascha

Hallo Peter
Blatt4 ist leer und Deine vermutung über sortieren ist richtig.
Danke
Gruß Sascha

AW: Tabelle kopiern

13.09.2003 19:27:41

PeterW

Hallo Sascha,

kopiere folgenden Code in ein Standardmodul und rufe es über Extra, Makro, Makros auf. Sortiert wird nach Spalte A.

Gruß
Peter


Sub Zusammen()
Dim intVar As Integer
For intVar = 1 To 3
Sheets("Tabelle" & intVar).Range("A1:C2500").Copy _
Destination:=Sheets("Tabelle4").Range("A" & (intVar - 1) * 2500 + 1)
Next
Sheets("Tabelle4").Columns("A:C").sort _
Key1:=Sheets("Tabelle4").Range("A1"), Order1:=xlAscending
End Sub

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