Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
748to752
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
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Schleife(n) gesucht

Schleife(n) gesucht
30.03.2006 15:02:54
Reinhard
Hallo,
irgendwie bin ich mit Konstrukten wie:
Cells(nn + n, 5) = Cells(n + nn + anz2, 2) in einer Doppelschleife und ähnlichem
nah dran aber auch gleichzeitig noch entfernt von der Lösung.
Eine Spalte will ich in Blöcke aufteilen, dann in andrer Spalte untereinander den ersten Wert von Block1, dann den ersten Wert von Block2 dann den ersten Wert von Block3, dann weiter mit zweitem Wet von Block1, dann zweiter Wert Block2 usw.
Bekannt sind mir 2 Variablen:
Anzahl an Zeilen, im Beispiel 15
Blocklänge, im Beispiel 3
Wie bastle ich da die Schleife?
Sub tt()
Cells(1, 5) = Cells(1, 2)
Cells(1, 7) = Cells(1, 4)
Cells(2, 5) = Cells(6, 2)
Cells(2, 7) = Cells(6, 4)
Cells(3, 5) = Cells(11, 2)
Cells(3, 7) = Cells(11, 4)
Cells(4, 5) = Cells(2, 2)
Cells(4, 7) = Cells(2, 4)
Cells(5, 5) = Cells(7, 2)
Cells(5, 7) = Cells(7, 4)
Cells(6, 5) = Cells(12, 2)
Cells(6, 7) = Cells(12, 4)
'usw.
Cells(13, 5) = Cells(5, 2)
Cells(13, 7) = Cells(5, 4)
Cells(14, 5) = Cells(10, 2)
Cells(14, 7) = Cells(10, 4)
Cells(15, 5) = Cells(15, 2)
Cells(15, 7) = Cells(15, 4)
End Sub

Danke und Gruß
Reinhard

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleife(n) gesucht
30.03.2006 15:15:06
u_
Hallo,
ungetestet:

Sub tt()
For i = 1 To 15
Cells(i, 5) = Cells(1 + (i - 1) * 5, 2)
Cells(i, 7) = Cells(1 + (i - 1) * 5, 4)
Next i
End Sub

Gruß
Geist ist geil!
leider nein :-(
30.03.2006 15:27:42
Reinhard
Hallo u_,
ab i=4 sind die Quellzeilen viel zu hoch durch (i - 1) * 5.
Leider klappt dies auch nicht:
For n = 1 To 15
Cells(n, 5) = Cells(1 + Int(n / 4) * 5, 2)
Cells(n, 7) = Cells(1 + Int(n / 4) * 5, 4)
Next n
Gruß
Reinhard
AW: Schleife(n) gesucht
30.03.2006 16:27:59
Reinhard
Hallo,
so gings dann:
For n = 1 To 5
For nn = 0 To 2
nnn = nnn + 1
Cells(nnn, 5) = Cells(n + nn * 5, 2)
Cells(nnn, 7) = Cells(n + nn * 5, 4)
Next nn
Next n

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige