Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
636to640
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Schleife

Schleife
16.07.2005 09: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
Anzeige
AW: Schleife
16.07.2005 09: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 09:31:52
Erich
Hallo Hajo
Vielen Dank für die superschnelle Antwort.
Klappt perfekt wie immer.
Gruss Erich
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige