Office: Zeilenumbruch nach ** in Spalte

GuterFrager · 10. Juni 2010

Hallo Leute,

ich habe folgendes Problem. Ich habe eine Excel Tabelle aus einem SAP-Export. Etwas abgewandelt sieht diese so aus:

http://yfrog.com/1xexceloj

Mein Ziel ist es jetzt diese Tabelle zu drucken. Und dabei immer nach den ********* einen Seitenumbruch einfügen. Auf der neuen Seite soll der Tabellenkopf nochmal angezeigt werden.

Einen Lösungsansatz habe ich auch schon:

' neues Tabellenblatt anlegen, benennen, nach hinten verschieben
Sheets.Add.Name = "Tabelle2"
Sheets("Tabelle2").Move After:=Sheets(2)

' Inhalt vom ersten Tabellenblatt kopieren
Sheets("Tabelle1").Select
Cells.Select
Selection.Copy

' Ins Zweite einfügen
Sheets("Tabelle2").Select
ActiveSheet.Paste

' Spalten ausblenden
Columns("A:A").Select
Selection.EntireColumn.Hidden = True

' Tabellenkopf formatieren
Range("A1:").Select
Selection.Font.ColorIndex = 1
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With

' Letzte Zeile mit Inhalt finden
Dim lngLastRow As Long
With ActiveSheet
lngLastRow = .Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End With

' Spalten mit Inhalt auswählen
Range("$A$1:$V$" & lngLastRow).Select

' Tabellenrand einfügen
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Sub
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

' Druckbereich festlegen
ActiveSheet.PageSetup.PrintArea = " $A$1:$V$" & lngLastRow
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With

' Zeilen mit ** suchen
**** Habe leider keine Ahnung, wie ich das machen könnte ****

' Seitenumbrüche vor Zeilen mit Sternchen einfügen
**** Habe leider keine Ahnung, wie ich das machen könnte ****

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der obere Teil funktioniert auch, wie ich es mir vorgestellt habe. Lediglich die letzten beiden Methoden habe ich noch nicht.

Um das Problem zu lösen, würde ich gerne zuerst nach Spalten mit 2 oder mehr Sternchen suchen lassen.

Diese könnte man ja dann vielleicht in ein Array schreiben und nacheinander drucken lassen. Vielleicht auch immer durch erneute Festlegung des Druckbereiches. Aber dazu müsste ich wissen, wie man eben diese Zeilenindexe auslesen kann, in denen ** stehen und wie man in Excel mit Schleifen arbeitet, um immer wieder neue Druckbereiche festzulegen.

Vielen, vielen Dank im Voraus für jede Hilfe!!!

GuterFrager · 11. Juni 2010

Hmm... scheint wohl eine ziemlich schwierige Fragestellung zu sein. Vielleicht könnte mir zumindest jemand beim ersten Schritt helfen.

Um überhaupt weitermachen zu können, müsste ich erstmal die Reihen finden, die in der Spalte "B" verschieden Lange *-Folgen haben (also ***, *****, ****, ...) und den Zeilenindex bekommen.

Ist dies überhaupt möglich? Weil * in Excel ja als Platzhalter fungieren. Da die Daten aber aus SAP kommen lässt sich dies auch nicht ändern.

Eventuell könnte man alternativ den Ansatz fahren und z.B. nach leeren Feldern in Spalte C innerhalb der Matrix suchen. Wäre das eher möglich?

Office: Zeilenumbruch nach ** in Spalte

Zeilenumbruch nach ** in Spalte

Zeilenumbruch nach ** in Spalte

Zeilenumbruch nach ** in Spalte - Similar Threads - Zeilenumbruch Spalte

Zeilenumbruch im Serientext

Word nach TXT exportieren und manuelle Zeilenumbrüche erhalten?

Aus 1 Spalte 2 machen beim Zeilenumbruch

Bei Textmarke aktualisieren automatischer Zeilenumbruch

Serienbrief Excel Datenquelle

Zeilen in Spalten umformatieren

Power Query Zeilenumbrüche in Spalte ersetzen