Sub
Daten_uebertragen()
Dim
z
As
Integer
= 1
Do
While
Tabelle2.Cells(z,1) <>
""
z = z + 1
Loop
Tabelle2.Cells(z,1) = Tabelle1.Cells(x1,y1)
Tabelle2.Cells(z,2) = Tabelle1.Cells(x2,y2)
Tabelle2.Cells(z,19) = Tabelle1.Cells(x19,y19)
Tabelle1.Cells(x1,y1) =
""
Tabelle1.Cells(x2,y2) =
""
Tabelle1.Cells(x19,y19) =
""
End
Sub