Thema Datum  Von Nutzer Rating
Antwort
12.11.2018 17:32:40 Frank
NotSolved
12.11.2018 18:18:37 Gast45712
NotSolved
Rot Verkettung mehrerer Werte
12.11.2018 18:32:06 Flotter Feger
*****
NotSolved
13.11.2018 08:12:48 Frank
Solved

Ansicht des Beitrags:
Von:
Flotter Feger
Datum:
12.11.2018 18:32:06
Views:
525
Rating: Antwort:
  Ja
Thema:
Verkettung mehrerer Werte

Hallo,

AU2 muss mit Zeilenumbruch und in der passenden Breite formatiert sein.

Den Code in ein allgemeines Modul:

Public Function AUFTEILEN(ByVal rngA As Range, ByVal rngB As Range, ByVal Splitter As String)
Dim sString As String
Dim aString As String
Dim bString As Variant
Dim i As Long

aString = rngA.Value
bString = Split(rngB, Splitter)

For i = LBound(bString) To UBound(bString)
    sString = sString & "þSKZþAKZþUEBERþN þaaþ" & bString(i) & " þabþ" & aString & " þadþ4" & IIf(i <> UBound(bString), Chr$(10), "")
Next i

AUFTEILEN = sString
End Function

Formel in AU2: =AUFTEILEN(A2;AT2;"|")

Sabina


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.11.2018 17:32:40 Frank
NotSolved
12.11.2018 18:18:37 Gast45712
NotSolved
Rot Verkettung mehrerer Werte
12.11.2018 18:32:06 Flotter Feger
*****
NotSolved
13.11.2018 08:12:48 Frank
Solved