Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bereich verketten

Bereich verketten
22.11.2007 10:58:00
Ludicla
Hey Profis,
vom Forum hab ich folgenden Code abgekupfert:

Function BereichVerketten(Rng As Range, Optional strSpace As String) As String
'Verketten über Bereich
Select Case Application.Version
Case Is >= 10  'XL2000 und höher
Dim arrTMP
arrTMP = Rng
BereichVerketten = Join(WorksheetFunction.Transpose(arrTMP), strSpace)
Case Else
Dim C As Range
For Each C In Rng
BereichVerketten = BereichVerketten & C & strSpace
Next
BereichVerketten = Left(BereichVerketten, Len(BereichVerketten) - Len(strSpace))
End Select
End Function


Damit kann ich Bereiche verketten, allerdings nur senkrechte bereiche und nicht waagrechte.
Wie muss ich den Code ändern, damit ich auch waagrechte Bereiche verketten kann oder
u.U. beides ?
Vielen Dank für Eure Hilfe.
Gruss Ludicla.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich verketten
22.11.2007 11:02:36
Rudi
Hallo,
der Code ist Mist.
Der Else-Teil ist das einzig Wahre. Leere Zellen werden ignoriert:

Function BereichVerketten(Rng As Range, Optional strSpace As String) As String
'Verketten über Bereich
Dim C As Range
For Each C In Rng
If C  "" Then BereichVerketten = BereichVerketten & C & strSpace
Next
BereichVerketten = Left(BereichVerketten, Len(BereichVerketten) - Len(strSpace))
End Function


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Bereich verketten
22.11.2007 11:10:00
Ludicla
Hallo Rudi
ich danke Dir.
Gruss Ludicla.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige