Schleife zum übertragen von Zellen
14.07.2004 00:45:53
Zellen
ich möchte von einer Tabelle nur bestimmte Zellen in ein neues
Blatt kopieren.
Es sind genau 612 Zellen, die aber nicht zusammenhängend sind.
Ab H3 dann 10 runter, das ganze insgesamt 17 mal, ( H13 bis H 173)
dann 4 Spalten weiter (L3 bis L173). Das ganze bis( ER3 bis ER 173).
Nun habe ich eine Schleife programmiert, die, die erste Spalte kopiert,
komme jetzt aber nicht mehr weiter, mir fehlt die Schleife für die
nächsten Spalten
Bis jetzt sieht der Code so aus:
Sub übertr1()
z = 3
sp = 8
With Sheets("Tipp") 'aus diesem Blatt kommen die Daten.
If z > 173 Then z = z(-170, 0).Row.Column
For m = 2 To 37
For i = 2 To 19
If Cells(m - 1, i) = "" Then Exit For
Cells(m, i) = .Cells(z, sp)
z = z + 10
Next i
Next m
End With
End Sub
Wer hat eine Idee ?
Oder wo liegt mein Denkfehler?
Wer löst mir das Brett von meinem Kopf !!
Danke
Gruß AndréL.