Zelle formatieren - und Zellen verketten

[Egon12]

Hallo,

das Problem kann man mit einer UDF erschlagen.

in ein allgemeines Modul:

Code:

Option Explicit

Function FORMATVERKETTEN(ByVal Zellbereich As Range)
    Dim firstSP, lastSP, i&
    firstSP = Zellbereich.Column
    lastSP = Zellbereich.Columns.Count
    For i = firstSP To firstSP + lastSP - 1
        FORMATVERKETTEN = FORMATVERKETTEN & Cells(Zellbereich.Row, i).Text & " "
    Next i
End Function

und in Ausgabezelle: =FORMATVERKETTEN(B13:D13)

Falls mehrere Zeilen ausgewertet werden sollen muss diese UDF entsprechend erweitert werden, was aber dein Beispiel so nicht zeigt.

Gruß Uwe

[Ubi5]

Hallo Sigi, danke für deine Bemühung - ich habe gesehen es funktioniert - werde es in meiner Datei einsetzen und testen - melde mich später nochmals.

Recht herzlichen Dank!

Lg Ubi5

---

Hallo Egon, habe deine Info übersehen - auch nochmals Danke - melde mich später nochmals!

Lg Ubi5

[snb]

UDF

Code:

Function F_snb(sn)
  For Each it In sn
    F_snb = Trim(c00 & " " & it.Text)
  Next
End Function

im Arbeitsblatt:  =F_snb(B13:E13)

[Ubi5]

Recht herzlichen Dank an Sigi, Uwe und snb!

Funktionieren alle einwandfrei - habe die Variante von Sigi eingebaut!

Danke!

Lg Ubi5

[snb]

Amendment:

Code:

Function F_snb(sn)
  For Each it In sn
    F_snb = Trim(F_snb & " " & it.Text)
  Next
End Function

[Ubi5]

Info an Sigi, Uwe und snb!

Wie schon mitgeteilt funktionieren alle drei Code perfekt.

Habe aber folgendes Problem:

In der Pivottabelle werden aus drei Tabellenblätter die Datensätze importiert. In dieser Tabelle verkette ich diverse Zellen - sieh unten.

Wenn ich die Daten dieser Pivottabelle lösche und wieder importiere funktioniert bei allen drei Code die Verkettung nicht mehr.

Beispiel Code von snb:

=TEXT([@Datum];"TT.MM.JJJ")&" - "&"Beleg"&" "&"Nr."&" "&F_snb([@Beleg])&" "&" - "&[@Text2]&" "&"["&[@Text3]&"]"

Woran kann das liegen?

Lg Ubi5

---

Fehlerausgabe - #Wert!

Lg Ubi5

[snb]

=TEXT([@Datum];"TT.MM.JJJJ")&" - Beleg Nr. "&F_snb([@Beleg])&" - "&[@Text2]&" ["&[@Text3]&"]"

[Ubi5]

Hallo snb,

funktioniert leider nicht - gleicher Fehler wie vorher.

Gruß Ubi5

---

funktioniert nur einmal - nach Eingabe der Formel!

[snb]

Ohne Datei keine Ahnung

[Egon12]

Hallo,

naja, es braucht einen Range

beispielhaft so:

F_snb(Tabelle1[Beleg])

F_snb(Listobjektname[Spaltennamen])


In deiner Beispieltabelle ein Listobjekt angelegt klappt es mit der UDF von mir dann so:
=FORMATVERKETTEN(Tbl_Test[[Datum]:[Text]])


Gruß Uwe