Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Werte in Spalte B2, D2, F2, H2 eintragen usw.

Forumthread: Werte in Spalte B2, D2, F2, H2 eintragen usw.

Werte in Spalte B2, D2, F2, H2 eintragen usw.
08.03.2004 17:22:39
M Heiss
Folgender Sachverhalt:
Blatt1 A1 bis A500 stehen Zahlen und Texte
Auf Blatt2 soll Etiketten daraus gedruckt werden.
Diese sind 4-Reihig angebracht und benötigen 4 Zeilen in der Tabelle.
Wie mache ich das, das er diese richtig anordnet auf Blatt2?
z.B.
1___B____D____F____H
2__gs1__gs2__gs3__gs4
3
4
5__gs5__gs6__gs7__gs8
6
7
8__gs9
usw.
danke Martin
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte in Spalte B2, D2, F2, H2 eintragen usw.
08.03.2004 17:38:56
ChrisL
Hi Martin
Option Explicit

Sub TrappTrapp()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim iZeile As Long
Dim ZielSpalte As Byte, ZielZeile As Long
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
ZielZeile = 2
For iZeile = 1 To WS1.Range("A65536").End(xlUp).Row
ZielSpalte = ZielSpalte + 2
If ZielSpalte = 10 Then
ZielSpalte = 2
ZielZeile = ZielZeile + 3
End If
WS2.Cells(ZielZeile, ZielSpalte) = WS1.Cells(iZeile, 1)
Next iZeile
End Sub


Gruss
Chris

PS: Etikettendruck geht einfacher über Serienbrief Word.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige