Schleife für Kopieren gesucht

Bild

Betrifft: Schleife für Kopieren gesucht
von: VolkerM
Geschrieben am: 22.04.2005 16:20:35
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

Bild

Betrifft: AW: Schleife für Kopieren gesucht
von: Hajo_Zi
Geschrieben am: 22.04.2005 16:24:41
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!"
Bild

Betrifft: AW: Schleife für Kopieren gesucht
von: Andi
Geschrieben am: 22.04.2005 16:28:29
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
Bild

Betrifft: AW: Schleife für Kopieren gesucht
von: VolkerM
Geschrieben am: 22.04.2005 16:37:39
Hallo Andy
Du hast Recht; ich habe mich verrechnet. Dein Code funktioniert.
Danke
Danke auch an Hajo
Gruß Volker
Bild

Betrifft: Gern geschehen... (ot)
von: Andi
Geschrieben am: 22.04.2005 16:39:45
.
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Schleife für Kopieren gesucht"