Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Schleife für Kopieren gesucht"
In einer Schleife auf Elemente einer UserForm zugreifen CheckBoxes in UserForms in eine Schleife einbinden
Gruppe von UserForm-ListBoxes über eine Schleife ansprechen UserForm-Optionsfelder über eine Schleife zurücksetzen
Blätter in andere Arbeitsmappen kopieren Module von Mappe zu Mappe kopieren
Arbeitsblatt 40 mal kopieren Schriftgröße beim Kopieren verdoppeln
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen Tabellencode nach Kopieren des Blattes löschen