Tabelle kopiern teill 2
13.09.2003 19:37:05
Sascha
Habe diese vba (aus Forum) als antwort auf meine frage
***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***
Bekommen
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
Es funktioniert super bis auf Tatsache das auch Zellen mit wert 0 kopiert sind und dann in Tabelle4 ganz oben erscheinen
Ich habe auch bei meine frage lehre Zellen geschrieben und glaube das NULLWERTE richtiger wäre.
Wer hilft weiter
Danke
Grus Sascha