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

Zeilen durchsuchen

Zeilen durchsuchen
13.06.2008 15:22:00
Oliver
Hallo
also erstmal sorry für das kleine Durcheinander im Beitrag drüber. Hier nochmals die Problemstellung:
Wir exportieren aus unserem ERP Listen über die Zeiten der Mitarbeiter nach Excel. Diese Liste gilt es auszudrucken.
Hierfür soll oberhalb eines Mitarbeiters ein Umbruch gesetzt werden. Ich brauche daher ein Makro, welches alle Zeilen der Tabelle durchsucht und immer dann, wenn im ersten Zeichen der ersten Spalte ein '(' erscheint, einen Umbruch über dieser Zeile einfügen.
Wie macht mans?
Danke für Tipps

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen durchsuchen
13.06.2008 15:46:54
Uwe
Hi,
ich denke Du meinst mit Umbruch Seitenwechsel!?
Dann könnte das so klappen:

Sub test()
Dim L As Long
For L = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Left(Cells(L, 1), 1) = "(" Then _
ActiveSheet.HPageBreaks.Add before:=Cells(L, 1)
Next
End Sub


Gruß
Uwe
(:o)

AW: Zeilen durchsuchen
13.06.2008 16:33:00
Oliver
Super Lösung Uwe, danke vielmals.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige