Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten Themen

fixierte Zeile beim Ausdrucken anzeigen
skuehmichel

Hallo.
Ich habe eine Tabelle in der ich eine Zeile fixiert habe so das ich beim scrollen immer den Überblick hab welche beschriftung diese spalte nun hat. Beim Ausdrucken bekomme ich diese Zeile allerdings nur einmal angezeigt und zwar als erstes. möchte aber das sie auf jedem neuen Blatt o...
30.09.2008 16:43:00
Thread-ID: 1013448
2 Beiträge
Spaltenüberschrift auf jeder Druckseite anzeigen
Stefan

Hallo,
wie bekomme ich es hin, dass bei einem Mehrseitendruck immer die Spaltenüberschrift ("I1:Z1")
auch auf der zweiten, dritten usw. Seite zur Orientierung angegeben wird?
Mein Code sieht bislang wie folgt aus:
Sub DruckBereich() Dim X As Range Set X = Range(Cells(1, 9), _...
03.03.2009 12:25:07
Thread-ID: 1055916
4 Beiträge
Anzeige
Überschriftzeile auf jeder Druckseite
thoemmy

Hallo VBAler
Ich habe eine ewig lange Tabelle die ich drucken möchte.
Ist es möglich dass man angibt, dass auf jeder neuen (Druck)Seite die Überschriftzeile an erster Stelle steht.
In meinem Fall ist der Überschriftsbereich Range(Cells(1,1),Cells(5,35)).
Danke für eure Tipps und...
18.05.2009 13:51:52
Thread-ID: 1075888
2 Beiträge
Tabellenzeilen fixieren (beim Druck)
stefan

Hallo zusammen,
ich hätte da ein - vermutlich ganz banales - Problem.
Ich habe eine Tabelle, die über mehrere Seiten reicht und möchte dass die ersten beiden Tabellen(Kopf-)zeilen beim Ausdruck auf jeder Seite oben erscheinen. Bei der Bildschirmansicht gelingt mir das mit dem Befehl >...
08.03.2010 09:58:01
Thread-ID: 1144258
3 Beiträge
Spaltenüberschrift auf jeder Seite drucken
Pit

Hallo zusammen,
ich habe ein Problem mit der Spaltenüberschirft.
In meiner Excel - Tabelle habe ich Spaltenüberschriften (A1:K1) vergeben. Die Tabelle zieht sich über mehrere Seiten (es werden wohl ca. 100 Seiten werden). In Excel selbst habe ich mir die Spaltenüberschrift fixiert, so d...
03.03.2011 14:42:26
Thread-ID: 1204064
3 Beiträge
Zeilen beim Drucken ignorieren
Udo

Hallo alle zusammen, guten Abend,
mal wieder ich, ich möchte ein für mich großes Problem lösen, könnt Ihr mir dabei helfen?
Wenn Ihr den Link öffnet seht Ihr meine (mit eurer Hilfe) erstellten Tabelle. Nun möchte ich beim Druck alle Zeilen bei denen in der Spalte " I " keine Werte über...
09.06.2011 23:52:50
Thread-ID: 1218010
6 Beiträge
Jede Zeile auf einer Seite ausdrucken
Stef@n

Hallo Excel-Freunde
ich verzweifel weil ich nicht auf die Lösung komme.
Ich habe eine Datei in der 42 Zeilen enthalten sind
Spalte A Name - Spalte B Datum und eine Grafik
Die beiden Spalten sind so breit, daß der Name linksbündig, das Datum rechtsbündig
auf einer DinA4 Seite...
28.06.2012 21:48:44
Thread-ID: 1269376
4 Beiträge
Anzeige
möchte Bild auf jeder Seite...
Jens W.

Hallo,ich habe ein Bild in einem Sheet und möchte es nach jedem Seitenumbruch an die selbe Stelle (wie auf Seite 1) kopieren.Danke
MfG
Jens
20.06.2002 12:18:40
Thread-ID: 130137
2 Beiträge
Anzeige
Kopfzeile mehrzeilig mit Textformatierung drucken
Ina

Hallo zusammen im Forum,
ich möchte beim Ausdruck automatisch eine zweizeilige Kopfzeile in verschiedenen Textformaten drucken.
Zeile 1 = Arial 14 fett - das klappt
Zeile 2 = Arial 10 normal
Wer kann mir den Codeschnipsel anpassen?
Sub Druck() With ActiveSheet .PageSetup....
25.03.2013 11:37:33
Thread-ID: 1305881
4 Beiträge
Datum auf jeder Seite
Anfänger

Hallo ich habe ein Problem ich bekam von meinem alten chef eine mappe zur Einsatzplanung von Mitarbeitern doch ich habe das Problem das mein alter Chef die Makros ein wenig kaputt gemacht hat
zu dem Problem :
an der rechten seite ist eine spalte die über 6 seiten reicht (in der mappe s...
26.07.2002 22:24:17
Thread-ID: 141353
9 Beiträge
Per Makro Zeilen beim Drucken zusammenhalten
Viktoria

Hallo zusammen,
nachdem der alte Beitrag schon im Archiv ist und ich jetzt erst wieder aus dem Urlaub zurück bin, versuche noch mal meine "Problemstellung" zu beschreiben, hoffentlich diesmal verständlicher.
Ich bin gerade dabei eine Vorlage mit Makro für ein Gehaltsschreiben zu entwer...
21.08.2015 13:08:11
Thread-ID: 1443658
2 Beiträge
Drücken eines Buttons mit Zeilenzwang
Marcus

Hallo,
ich habe eine UserForm ein der sich zwei CommandButtons befinden. Jetzt soll der zweite CommandButton nur aktiv sein, wenn ich in der dazugehörigen Tabelle in bestimmte Zeilen etwas eingetragen habe. Wie muss ich das in dem Button hinterlegen?
MfG Marcus
23.11.2017 11:05:18
Thread-ID: 1593187
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige