Ich steh vor einem Rätsel



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Ich steh vor einem Rätsel
von: Thomas M
Geschrieben am: 28.06.2002 - 16:12:21

Ich üb mich gerade in VBA
Darum hab ich mir zu Übungszwecken 2 Schleifen gebaut die eigentlich daselbe tun sollten tun sie aber nicht! und ich weis nicht warum
Sub tauschen1 macht genau was ich will
dann hab ich statt cut copy verwendet und muss dadurch natürlich Zellen löschen Aber er löscht die falschen Zellen (beim 2. delete)
Wen mir da einer einen Tip geben könnte

Schöne Grüße Thomas


Sub tauschen()
ende_zeile = range(Cells(10, 7), Cells(10, Columns.Count)).End(xlToRight).Column
ende_spalte = Cells(Rows.Count, 7).End(xlUp).Row
erste_spalte = Cells(1, 7).End(xlDown).Row

For I = erste_spalte To ende_spalte Step 2
range(Cells(I, 7), Cells(I, 8)).Copy Cells(I, ende_zeile + 1)
range(Cells(I, 9), Cells(I, ende_zeile + 2)).Copy Cells(I, 7)
range(Cells(I, ende_zeile + 1), Cells(I, ende_zeile + 2)).Delete

For j = erste_spalte + 1 To ende_spalte Step 2
range(Cells(j, ende_zeile), Cells(j, ende_zeile - 1)).Copy Cells(j, 5)
range(Cells(j, 5), Cells(j, ende_zeile - 2)).Copy Cells(j, 7)
range(Cells(j, 5), Cells(j, 6)).Delete

Next j
Next I
End Sub
Sub tauschen1()
For a = 1 To 4
ende_zeile = range(Cells(10, 7), Cells(10, Columns.Count)).End(xlToRight).Column
ende_spalte = Cells(Rows.Count, 7).End(xlUp).Row
erste_spalte = Cells(1, 7).End(xlDown).Row

For I = erste_spalte To ende_spalte Step 2
range(Cells(I, 7), Cells(I, 8)).Cut Cells(I, ende_zeile + 1)
range(Cells(I, 9), Cells(I, ende_zeile + 2)).Cut Cells(I, 7)

For j = erste_spalte + 1 To ende_spalte Step 2
range(Cells(j, ende_zeile), Cells(j, ende_zeile - 1)).Cut Cells(j, 5)
range(Cells(j, 5), Cells(j, ende_zeile - 1)).Cut Cells(j, 7)
Next j
Next I
Next a
End Sub



nach oben   nach unten

Hat sich erledigt bin selbst drauf gekommen
von: Thomas M
Geschrieben am: 28.06.2002 - 16:31:32

.

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Suchen und Zeile löschen"