VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zeilenumbruch in Formel erzwingen

Gruppe

Format

Bereich

Zeichenfolge

Thema

Zeilenumbruch in Formel erzwingen

Problem

Wie kann ich einen Zeilenumbruch in einer Formel erzwingen? Ich möchte Adressdaten, die sich in den Spalten "Anrede", "Vorname", "Name", "Straße", "PLZ" und "Ort" (Spalten A-F) befinden, so verknüpfen, daß ein ordnungsgemäßes Adressfeld entsteht.

Lösung

Formel in Blatt Tabelle1: =A1&ZEICHEN(10)&B1&" "&C1&ZEICHEN(10)&D1&ZEICHEN(10)&ZEICHEN(10)&E1&" "&F1




StandardModule: Modul1

Sub SetPageBreaks()
   Dim iRow As Integer
   iRow = 2
   Do Until IsEmpty(Cells(iRow, 1))
      If Cells(iRow, 1).Value <> Cells(iRow - 1, 1).Value Then
         Cells(iRow, 1).PageBreak = xlPageBreakManual
      End If
      iRow = iRow + 1
   Loop
   ActiveSheet.PrintPreview
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Format und Zeichenfolge