Schleife

Forumthread: Schleife
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Schleife

Schleife

16.07.2005 11:13:36

Erich

Hallo...
Habe große Problem mit Schleifen.
Ich muss in einer Tabelle ca. 650 Zeilen bearbeiten.
Wenn ich diese form wähle wird der Code ellenlang und
ewige Tipperei.
Cells(2, 1) = Cells(2, 2)
Cells(3, 1) = Cells(3, 2)
Kann man das auch mit einer Schleife lösen ?
Wenn ja, wie ?
Für einen Hinweis wäre ich sehr froh.
In der Recherche habe ich nichts passendes gefunden.
Gruss Erich

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Schleife

16.07.2005 11:27:32

Hajo_Zi
AW: Schleife

16.07.2005 11:31:52

Erich

AW: Schleife

16.07.2005 11:27:32

Hajo_Zi

Hallo Erich,
Du kannst es über eine Schleife realisieren oder nur mit einer Zeile.


Option Explicit
Sub Test()
Dim Loi As Long
For Loi = 2 To 6536
Cells(Loi, 1) = Cells(Loi, 2)
Next Loi
End Sub
Sub Te()
Range(Cells(2, 1), Cells(65536, 1)).FormulaLocal = "=B1"
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

AW: Schleife

16.07.2005 11:31:52

Erich

Hallo Hajo
Vielen Dank für die superschnelle Antwort.
Klappt perfekt wie immer.
Gruss Erich