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

Verschachtelte Schleife

Verschachtelte Schleife
25.09.2004 12:32:26
Werner
Hallo Excel Freunde,
Ich versuche per Schleife folgende Daten zu Kopieren!
Die Daten stehen in C24:F31 und sollen ab L24 eingefügt werden!
Ich brauche also nicht nur die Werte, sondern auch das Format der einzelnen Zellen.
Besten Dank für eure Hilfe und Gruß Werner
 
 CDEF
241234
255678
269101112
2713141516
2817181920
2921222324
3025262728
3129303132
 
 L
241
252
263
274
285
296
307
318
329
3310
3411
3512
3613
3714
3815
3916
4017
4118
4219
4320
4421
4522
4623
4724
4825
4926
5027
5128
5229
5330
5431
5532

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

Betreff
Datum
Anwender
Anzeige
AW: Verschachtelte Schleife
K.Rola
Hallo,
so z.B.
Option Explicit Sub kopieren() Dim z As Long, c As Range z = 24 For Each c In [c24:f31] c.Copy Cells(z, 12) z = z + 1 Next End Sub
Gruß K.Rola
AW: Verschachtelte Schleife
Werner
Hallo K.Rola
Ich sollte halt die ganze Strucktur zeigen!
Alle Daten sollten ab L24 untereinander eingefügt werden.
Leider gibt es ein paar Zeilen dazwischen die ich nicht brauchen kann.
Wie kann ich das lösen?
Danke Gruß Werner
  
 CDEF
241234
255678
269101112
2713141516
2817181920
2921222324
3025262728
3129303132
3233343536
3337383940
3441424344
3545464748
3649505152
3753545556
3857585960
3961626364
4065666768
4169707172
4273747576
4377787980
4481828384
4585868788
4689909192
4793949596
48979899100
49101102103104
50105106107108
51109110111112
52113114115116
53117118119120
54121122123124
55125126127128
56129130131132
57133134135136
58137138139140
 
 CDEF
76141142143144
77145146147148
78149150151152
79153154155156
80157158159160
81161162163164
82165166167168
83169170171172
84173174175176
85177178179180
86181182183184
87185186187188
88189190191192
89193194195196
90197198199200
91201202203204
92205206207208
93209210211212
94213214215216
95217218219220
96221222223224
97225226227228
98229230231232
99233234235236
100237238239240
101241242243244
102245246247248
103249250251252
104253254255256
105257258259260
106261262263264
107265266267268
108269270271272
109273274275276
110277278279280
111281282283284
112285286287288
113289290291292
114293294295296
115297298299300
116301302303304
117305306307308
118309310311312
119313314315316
120317318319320
121321322323324
122325326327328
123329330331332
 
 CDEF
141333334335336
142337338339340
143341342343344
144345346347348
145349350351352
146353354355356
147357358359360
148361362363364
149365366367368
150369370371372
151373374375376
152377378379380
153381382383384
154385386387388
155389390391392
156393394395396
157397398399400
158401402403404
159405406407408
160409410411412
161413414415416
162417418419420
163421422423424
164425426427428
165429430431432
166433434435436
167437438439440
168441442443444
169445446447448
170449450451452
171453454455456
172457458459460
173461462463464
174465466467468
175469470471472
176473474475476
177477478479480
178481482483484

Anzeige
AW: Verschachtelte Schleife
K.Rola
Hallo,
einfach den Bereich erweitern:
Option Explicit
Sub kopieren()
Dim z As Long, c As Range
z = 24
For Each c In [c24:f58,c76:c123,c141:f178]
c.Copy Cells(z, 12)
z = z + 1
Next
End Sub

Gruß K.Rola
Danke
Werner
Hallo K.Rola,
Ich hab viel zu weit gesucht :-)
Danke für deine Hilfe und Gruß Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige