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
Anzeige