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

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

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

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige