Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1544to1548
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Adress - DB:Zeilen aufteilen mit Titel für Drucken

Adress - DB:Zeilen aufteilen mit Titel für Drucken
16.03.2017 23:47:00
albin
Hallo zusammen
Leider habe im Web lange gesucht, aber Nichts brauchbares gefunden.
Ich habe eine grosse Adressliste, pro Adresse sind die Zellen B bis O belegt.
Ziel - Aufgabe VBA für die Vorbereitung des Ausdruck:
Schön wäre es nun, wenn man die Zeilen aufteilen könnte B - H und I - O, auf Tabelle2. Zusätzlich mit dem Titel ob der Zelle. Zusätzlich nach jedem AdressBlock müsste eine leere Zeile, mit Zeilenhöhe ca. 5 erstellen werden.
siehe bitte Link:
Ich danke im voraus.
Gruss Albin
https://www.herber.de/bbs/user/112234.xlsx

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Adress - DB:Zeilen aufteilen mit Titel für Drucken
17.03.2017 08:47:55
ChrisL
Hi Albin
Sub t()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim iZeile As Long, iCounter As Long
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
WS2.Rows.Delete
With WS1
For iZeile = 3 To .Cells(Rows.Count, 2).End(xlUp).Row
.Range("B2:H2").Copy WS2.Range("A" & iCounter + 1)
.Range(.Cells(iZeile, 2), .Cells(iZeile, 8)).Copy WS2.Range("A" & iCounter + 2)
.Range("I2:O2").Copy WS2.Range("A" & iCounter + 3)
.Range(.Cells(iZeile, 9), .Cells(iZeile, 15)).Copy WS2.Range("A" & iCounter + 4)
WS2.Rows(iCounter + 5).RowHeight = 5
iCounter = iCounter + 5
Next iZeile
End With
End Sub
cu
Chris
Anzeige
AW: Adress - DB:Zeilen aufteilen mit Titel für Dru
17.03.2017 09:51:59
albin63
Lieber Chris
Du hast mir den Freitag gerettet. Super Code, einfach Perfekt!!! :-)
Ich bedanke mich für die rasche Antwort und wünsche Dir ein
schönes Weekend.
Albin

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige