Thema Datum  Von Nutzer Rating
Antwort
01.08.2025 09:05:45 Bepprich
NotSolved
01.08.2025 10:38:52 Gast74897
NotSolved
01.08.2025 12:26:48 Gast90587
NotSolved
01.08.2025 17:53:53 ralf_b
NotSolved
04.08.2025 07:35:58 Beepprich
NotSolved
04.08.2025 07:42:08 Bepprich
NotSolved
Rot Auslesen String und Ausgabe im neunen Tabellenblatt
 04.08.2025 18:12:11 ralf_b
NotSolved
02.08.2025 08:01:41 RPP63
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
04.08.2025 18:12:11		 Views:
9		 Rating:
     
Antwort:
  Ja
Thema:
Auslesen String und Ausgabe im neunen Tabellenblatt
versuchs mal damit 

Sub SplitCommaSeparatedString()

    Dim myString As String
    Dim myArray() As String
    Dim i As Integer
    Dim j As Integer
    Dim zeile As Long, spalte As Long
 
    zeile = 2 'Beispiel: mit Zeile 2 beginnend

    spalte = 2 'Beispiel: Spalte 11

    For j = 2 To 19
        'Den Wert der Zelle auslesen
        myString = Cells(j, spalte).Value
        
        If myString <> "" Then
            'Leerzeichen rauslöschen
             myString = Replace(myString, " ", "")
     
            'Den String mit Komma als Trennzeichen aufteilen
            myArray = Split(myString, ",")
     
            ReDim Preserve myArray(UBound(myArray) - 1)
     
            With Worksheets("Tabelle2")
                .Cells(zeile, 4).Resize(UBound(myArray) + 1, 1).Value = Application.Transpose(myArray)
                zeile = .Cells(Rows.Count, 4).End(xlUp).Row + 1
            End With
        End If
    Next j

 
End Sub

 

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
01.08.2025 09:05:45 Bepprich
NotSolved
01.08.2025 10:38:52 Gast74897
NotSolved
01.08.2025 12:26:48 Gast90587
NotSolved
01.08.2025 17:53:53 ralf_b
NotSolved
04.08.2025 07:35:58 Beepprich
NotSolved
04.08.2025 07:42:08 Bepprich
NotSolved
Rot Auslesen String und Ausgabe im neunen Tabellenblatt
 04.08.2025 18:12:11 ralf_b
NotSolved
02.08.2025 08:01:41 RPP63
NotSolved