Thema Datum  Von Nutzer Rating
Antwort
12.12.2016 12:43:42 Hobbit_78
NotSolved
12.12.2016 13:16:58 Mackie
NotSolved
12.12.2016 13:18:27 Mackie
NotSolved
12.12.2016 13:37:45 Gast87798
NotSolved
12.12.2016 13:41:16 Mackie
NotSolved
12.12.2016 13:44:39 Gast15324
NotSolved
Rot Auflistung in einer Zelle
 12.12.2016 14:38:48 GraFri
NotSolved

Ansicht des Beitrags:
Von:
GraFri		 Datum:
12.12.2016 14:38:48		 Views:
635		 Rating:
     
Antwort:
  Ja
Thema:
Auflistung in einer Zelle

Hallo

 

Noch eine Möglichkeit:

 

Sub Zellbereich_zusammenfügen()
Dim n As Integer
Dim TMP As String
Dim Trennzeichen As String
Dim xDaten() As Variant


' Tabellennamen eventuell angleichen
xDaten = Worksheets("Tabelle1").Range("A1:A100").Value

' Trennzeichen - kann geändert werden
Trennzeichen = " | "

' Zusammensetzen
For n = 1 To 100
    TMP = TMP & xDaten(n, 1) & Trennzeichen
Next n

' letztes Trennzeichen entfernen
TMP = Left$(TMP, Len(TMP) - Len(Trennzeichen))

' in Zelle A2 eintragen
Sheets("Tabelle1").Cells(1, 2).Value = TMP


End Sub

 

mfg, GraFri

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.12.2016 12:43:42 Hobbit_78
NotSolved
12.12.2016 13:16:58 Mackie
NotSolved
12.12.2016 13:18:27 Mackie
NotSolved
12.12.2016 13:37:45 Gast87798
NotSolved
12.12.2016 13:41:16 Mackie
NotSolved
12.12.2016 13:44:39 Gast15324
NotSolved
Rot Auflistung in einer Zelle
 12.12.2016 14:38:48 GraFri
NotSolved