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

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

Anzeige

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)

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

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige