Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
600to604
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
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Schleife für Kopieren gesucht

Schleife für Kopieren gesucht
22.04.2005 16:20:35
VolkerM
Hallo
Ich bekomme einfach eine Schleife für folgenden Code nicht hin:
Cells(33, 1).Value = Cells(1, 2).Value
Cells(35, 1).Value = Cells(1, 3).Value
Cells(37, 1).Value = Cells(1, 4).Value
Cells(39, 1).Value = Cells(1, 5).Value
Cells(41, 1).Value = Cells(1, 6).Value
Cells(43, 1).Value = Cells(1, 7).Value
Cells(45, 1).Value = Cells(1, 8).Value
Cells(47, 1).Value = Cells(1, 9).Value
.......
bis
Cells(211, 1).Value = Cells(1, 94).Value
Kann mir jemand auf die Sprünge helfen.
Vielen Dank im Voraus.
Gruß Volker

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleife für Kopieren gesucht
22.04.2005 16:24:41
Hajo_Zi
Hallo Volker,
Option Explicit

Sub kopieren()
Dim ByI As Byte
'    Cells(33, 1).Value = Cells(1, 2).Value
'    Cells(35, 1).Value = Cells(1, 3).Value
'    bis
'    Cells(211, 1).Value = Cells(1, 94).Value
For ByI = 33 To 211
Cells(ByI, 1).Value = Cells(1, ByI - 31).Value
Next ByI
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.



"Wer Rechtschreibfehler findet, darf sie behalten!"
Anzeige
AW: Schleife für Kopieren gesucht
22.04.2005 16:28:29
Andi
Hi Volker,
wenn ich Dein System richtig verstanden habe, dann müsste die letzt Zeile doch
cells(217,1).value = cells(1,94).value heissen, oder?
Das müsste dann so gehen (ungetestet, aber rechnerisch haut's hin...):
for zaehler = 1 to 93
cells((zaehler * 2) + 31, 1).value = cells(1, zaehler + 1)
next zaehler
Schönen Gruß,
Andi
AW: Schleife für Kopieren gesucht
22.04.2005 16:37:39
VolkerM
Hallo Andy
Du hast Recht; ich habe mich verrechnet. Dein Code funktioniert.
Danke
Danke auch an Hajo
Gruß Volker
Gern geschehen... (ot)
22.04.2005 16:39:45
Andi
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige