Office: Mehrere Zellen verbinden

Klaus01 · 22. Januar 2015

Hallo zusammen,

ich bräuchte mal wieder Eure Hilfe.

Aufgabe
Im Tabellenblatt Kunden-Lieferanten sind die Adressen von Kunden und Lieferanten hinterlegt. Nun möchte ich diese, so wie im Tabellenblatt Adressen (C2) zu sehen ist, zusammenfassen.

Wie muss hierzu ein Makro aussehen? Kann mir hier jemand helfen?

Besten Dank schon mal im Voraus.

Gruß Klaus

:)

OfficeUser · 24. Januar 2015

Hallo Klaus,

warum VBA?

Adressen
A B C
8 110000 Diverser Diverser
reserviert zur Kennzeichnung
Musterstr. 2
123455 Musterhausen
DE
verwendete Formeln
Zelle Formel Bereich N/A
A8:B8 ='Kunden-Lieferanten'!A2
C8 ='Kunden-Lieferanten'!D2&ZEICHEN(10)&'Kunden-Lieferanten'!H2&ZEICHEN(10)&'Kunden -Lieferanten'!I2 &" " &'Kunden-Lieferanten'!J2&ZEICHEN(10)&'Kunden-Lieferanten'!F2&" " & 'Kunden-Lieferanten'!G2&ZEICHEN(10)&'Kunden-Lieferanten'!E2
Zellen formatieren, Ausrichtung
Zelle Bereich Horizontal Vertikal Einzug Ausrichtung Zeilenumbruch An Zellgröße anpassen Textrichtung verteilt ausrichten
A8:C8 Oben Ja
Excel-Inn.de

Hajo-Excel.de
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 18.21 einschl. 64 Bit

Beverly · 24. Januar 2015

Hi Klaus,

Code:

Sub Umstrukturieren()
Dim lngZeile As Long
Dim lngZiel As Long
Dim strEintrag As String
lngZiel = 2
With Worksheets("Adressen")
For lngZeile = 2 To 7
.Cells(lngZiel, 1) = Cells(lngZeile, 1)
.Cells(lngZiel, 2) = Cells(lngZeile, 2)
strEintrag = Cells(lngZeile, 4) & vbLf & Cells(lngZeile, 8) & vbLf & _
Cells(lngZeile, 9) & " " & Cells(lngZeile, 10) & vbLf & Cells(lngZeile, 6) & _
" " & Cells(lngZeile, 7) & vbLf & Cells(lngZeile, 5)
strEintrag = Application.Substitute(strEintrag, Chr(10) & Chr(10), Chr(10))
.Cells(lngZiel, 3) = strEintrag
lngZiel = lngZiel + 5
Next lngZeile
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Auszuführen ist der Code, wenn Tabelle "Kunden-Lieferanten" aktiv ist.

Klaus01 · 24. Januar 2015

Hallo Karin, hallo Hajo,

vielen, vielen Dank für Eure schnellen Antworten. Ihr habt mir sehr geholfen.

Nochmals vielen Dank.

Gruss Klaus

Office: Mehrere Zellen verbinden

Mehrere Zellen verbinden

Mehrere Zellen verbinden

Mehrere Zellen verbinden

Mehrere Zellen verbinden - Similar Threads - Zellen verbinden

Daten Einlesen aus mehre Zellen in Verbindung einer Verbundene Zelle

zeilenweise Zellen per VBA verbinden

Bestimmte Zeichen aus zwei zellen verbinden

Zellen automatisch verbinden

Zellen verbinden bei bestimmtem Wert aus Dropdown-Liste

Zellen verbinden und zentrieren standard - ÄNDERN

Zellen verbinden und Text kopieren

	A	B	C
8	110000	Diverser	Diverser reserviert zur Kennzeichnung Musterstr. 2 123455 Musterhausen DE

verwendete Formeln
Zelle	Formel	Bereich	N/A
A8:B8	='Kunden-Lieferanten'!A2
C8	='Kunden-Lieferanten'!D2&ZEICHEN(10)&'Kunden-Lieferanten'!H2&ZEICHEN(10)&'Kunden -Lieferanten'!I2 &" " &'Kunden-Lieferanten'!J2&ZEICHEN(10)&'Kunden-Lieferanten'!F2&" " & 'Kunden-Lieferanten'!G2&ZEICHEN(10)&'Kunden-Lieferanten'!E2

Zellen formatieren, Ausrichtung
Zelle	Bereich	Horizontal	Vertikal	Einzug	Ausrichtung	Zeilenumbruch	An Zellgröße anpassen	Textrichtung	verteilt ausrichten
A8:C8			Oben			Ja