Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Schleife für Kopieren gesucht

Forumthread: 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
Anzeige

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
Anzeige
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
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige