Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 14:45:54
Verknüpfung Tabelleneinträge mit Datumsspalte
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1944to1948
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1944to1948
1944to1948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

String mehrfach Zerlegen und in neue Zeile einfügen

String mehrfach Zerlegen und in neue Zeile einfügen
25.08.2023 21:25:56
Maria Sophie
Guten Abend,
ich würde gerne einen sehr langen String, der in einer Zelle steht mehrfach teilen und die zerlegten Teile jeweils in eine neue Zeile schreiben lassen.
Mein Ausgangsstring sieht wie folgt aus:

Peter | Age:18 | Image: 123456.png Herbert | Age:60 | Image: 579168.png Maria | Age:24 | Image: 571298.png Johann | Age:33 | Image: 846957.png

Der String ist tatsächlich noch wesentlich länger, aber immer im gleichen Muster aufgebaut. Ich würde jetzt gerne den String aufteilen, sodass sich in der Exceltabelle das folgende ergibt:

Peter | Age:18 | Image: 123456.png
Herbert | Age:60 | Image: 579168.png
Maria | Age:24 | Image: 571298.png
Johann | Age:33 | Image: 846957.png

Es soll somit immer nach "png" ein Zeilensprung sein.
Kann mir jemand helfen?

Danke im Voraus! :)

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: String mehrfach Zerlegen und in neue Zeile einfügen
25.08.2023 21:41:50
GerdL
Guten Abend Marie Sophie! 
Sub Unit()

    

    Dim x As Variant, a As Long

    

    x = Split(Range("A1"), ".png")

    For a = LBound(x) To UBound(x) - 1

        Cells(a + 2, 1) = x(a) & ".png"

    Next

 

 End Sub

Gruß Gerd
AW: String mehrfach Zerlegen und in neue Zeile einfügen
25.08.2023 21:46:12
Maria Sophie
Hi Gerd,

das funktioniert perfekt!

Vielen vielen Dank!
String mehrfach Zerlegen und in neue Zeile einfügen
26.08.2023 08:32:43
RPP63
Moin onur!
Ich hatte ja im doppelten Thread auch eine Lösung gegeben (diesen Thread zu spät gesehen).
Nur eine Anmerkung:
MTRANS() tut nicht Not, denn TEXTTEILEN kennt auch einen row_delimiter
Statt Deinen 
=MTRANS(TEXTTEILEN(WECHSELN(A1;"png ";"png*");"*"))

ginge dann kürzer 
=TEXTTEILEN(WECHSELN(A1;"png ";"png*");;"*")
Anzeige
weitere Verkürzung
26.08.2023 08:35:03
RPP63 
=TEXTTEILEN(A1;;".png ";1;;"")&".png"
und (für mich) final
26.08.2023 08:36:09
RPP63 
=TEXTTEILEN(A1;;".png ")&".png"
und (für mich) final
26.08.2023 10:27:18
Maria Sophie
Dankeschön!

316 Forumthreads zu ähnlichen Themen

Formeln in andere Spalte an gleiche Stelle kopiere
Eva

Hallo,
ich habe eine lange Tabelle mit hinterlegten Formeln in verschiedenen Zeilen. Nun möchte ich eine weitere Spalte einfügen. In der Spalte sind Werte. Ich möchte diese Werte, wie in der ersten Spalte auch mit den Formeln addieren, multiplizieren, usw..
Damit ich aber in der neuen S...
15.12.2008 15:03:00
Thread-ID: 1033050
9 Beiträge
Anzeige
Hilfe bei Makro: Formel in Spalte einfügen
Ruben

Guten Morgen,
ich möchte mit Hilfe eines Makros Formeln in Spalten E und J (beide beginnend ab Zeile 2 und bis zum Ende der Tabelle) einfügen.
Hier das Makro, wie es gerade aussieht und mitr natürlich einen Fehler meldet :-)
Sub Formeln() Range("E2:E" & Rows.Count).Select Acti...
02.04.2009 10:25:11
Thread-ID: 1066226
4 Beiträge
Formel-Problem / Indirekt? Hilfsspalte?
Oliver

Hallo zusammen
Ich möchte voraus erwähnen, das ich das Problem vorhin mit Makro versucht habe zu lösen, da ich dort aber nicht das nötige Wissen verfüge, habe ich es mit Formeln versucht. Hier der Thread von der Makro-Lösung: https://www.herber.de/forum/messages/1073063.html
Ich bin j...
06.05.2009 07:26:36
Thread-ID: 1073223
3 Beiträge
Anzeige
Formel f. letzten Wert einer Spalte
00erna

Hallo Ihr,
habe eine Liste in der es immer wieder neue Einträge in der Spalte nach unten gibt - so zu sagen: immer neue Kontostände. Möchte unten in der quasi Summenzeile aber nicht die Summe sondern immer den akutellen Wert gezogen bekommen... der ist ja jedesmal eine Zeile tiefer.
Wie...
22.07.2009 11:24:02
Thread-ID: 1090472
5 Beiträge
Zellbezug nach dem Löschen beibehalten
Larissa

Hallo,
jetzt habe ich noch eine Frage zu einer Excelformel:
In einer Spalte hat jede 4te Zelle einen Bezug zu der 4 Zellen über der eigenen.
In Zelle B8 steht also: =B4.
In Zelle B12 steht: =B8
usw.
Wenn ich Zeilen in der Tabelle lösche, soll der Zellbezug immer zu der 4...
05.09.2009 11:28:39
Thread-ID: 1100762
4 Beiträge
pro tabelleneintrag automatisch eine neue Zeile
papa

Hallo liebe Excelianer,
ich möchte über ein Userform diverse Informationen abfragen und diese dann in einer Tabelle ablegen.
Es soll eine Datenbank entstehen, sprich bei jedem neuen Userformeintrag soll in der Tabelle eine neue Zeile verwendet werden.
Bisher hab ich dieses Vorhaben...
06.10.2009 00:10:16
Thread-ID: 1107402
3 Beiträge
Wert einer Zelle->Spaltenangabe in einer Formel
Jens

Hallo liebe Mädels und Jungs,
ich möchte gerne eine Zelle von einer anderen abziehen, wobei sich die 2. Zelle um soviel Positionen vor der 1. Zelle befindet, wie eine Variable angibt.
Sicherlich kann man da recht schnell ein Makro schreiben, aber ich möchte gerne ohne Makro das ganze lö...
19.11.2009 14:54:13
Thread-ID: 1118636
11 Beiträge
Einfügen von Bildern in Kommentar geht nicht mehr
Bildern

Hallo zusammen,
ich habe ein Problem mit folgenden Codezeilen:
For spalte = 4 To 13
'*********
If Cells(zeile, spalte).Hyperlinks.Count 1 Then 'Abfrage, ob Hyperlink vorhanden
GoTo weiter2
Else
Dim mycom As Object
On Error Resume Next
Pfad = ActiveWorkbook.P...
30.11.2009 15:34:28
Thread-ID: 1121036
2 Beiträge
Anzeige

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
3
3
2
6
4
3
2
10
1
2
3
1
5
6
1
4
2
1
1
6
3
2
5
7