HERBERS Excel-Forum - das Archiv
VBA Umbrüche
Dietz

Hallo,
ich würde gerne innerhalb meines Sheets alle Umbrüche mittels VBA entfernen lassen.
Hat jemand vielleicht einen passenden Code dazu?
Gruß
Dietz

welche Umbrüche ? owT
Rudi

AW: welche Umbrüche ? owT
Dietz

Ein Makro das das gesamte Sheet durchläuft und diejenigen Zellen mit einem Umbruch den Umbruch entfernt.

das ist keine AW auf meine Frage. owT
Rudi

Worksheets(1).ResetAllPageBreaks (owT)
EtoPHG


AW: Worksheets(1).ResetAllPageBreaks (owT)
Dietz

Hallo,
vielleicht hab ich mich zu unverständlich ausgedrückt. Mir geht es um den WrapText.
ich kann zwar mit: 
Worksheets("Summe").Range("H50:H62").WrapText = False
eine bestimmte Range vorgeben und dort mittels VBA den Wrap Text entfernen. Eine automatisierte Version die das ganze Blatt durchsucht und vorhandene Zellen "unwrapped" wäre sinnvoller, da der Bereich sich immer wieder ändern kann.
Wie kann ich das am besten machen?
Gruß
Dietz

Worksheets("Summe").Cells.WrapText = False
Rudi

AW: Worksheets("Summe").Cells.WrapText = False
Dietz

Danke Rudi

VBA Umbrüche
Dietz

Hallo,
ich würde gerne innerhalb meines Sheets alle Umbrüche mittels VBA entfernen lassen.
Hat jemand vielleicht einen passenden Code dazu?
Gruß
Dietz

welche Umbrüche ? owT
Rudi

AW: welche Umbrüche ? owT
Dietz

Ein Makro das das gesamte Sheet durchläuft und diejenigen Zellen mit einem Umbruch den Umbruch entfernt.

das ist keine AW auf meine Frage. owT
Rudi

Worksheets(1).ResetAllPageBreaks (owT)
EtoPHG


AW: Worksheets(1).ResetAllPageBreaks (owT)
Dietz

Hallo,
vielleicht hab ich mich zu unverständlich ausgedrückt. Mir geht es um den WrapText.
ich kann zwar mit: 
Worksheets("Summe").Range("H50:H62").WrapText = False
eine bestimmte Range vorgeben und dort mittels VBA den Wrap Text entfernen. Eine automatisierte Version die das ganze Blatt durchsucht und vorhandene Zellen "unwrapped" wäre sinnvoller, da der Bereich sich immer wieder ändern kann.
Wie kann ich das am besten machen?
Gruß
Dietz

Worksheets("Summe").Cells.WrapText = False
Rudi

AW: Worksheets("Summe").Cells.WrapText = False
Dietz

Danke Rudi

Bewerten Sie hier bitte das Excel-Portal