Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 20:04:34
Excel in Formen z.b Rechteck, eine Tabelle einfügen?
27.04.2024 19:23:05
Passwortabfrage für verschiedene tabellenblätter
27.04.2024 16:48:06
Formel gibt Falsch aus und ich weiß nicht warum - VBA
27.04.2024 14:45:54
Verknüpfung Tabelleneinträge mit Datumsspalte
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1940to1944
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
1940to1944
1940to1944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

String Zeile für Zeile auslesen

String Zeile für Zeile auslesen
04.08.2023 11:12:27
Urmila
Hallo liebe Community,

ich habe eine Frage zum Thema String auslesen/auswerten.
Ich lese einen Inhalt aus, mit Zeilenumbrüche. Der String ist dann wie folgt aufgebaut:
Text 1 Tag1 Woche2
Text 2 Woche2 Tag2
Text 3 Tag3 Woche3

Nun würde ich den String weiterbearbeiten, aber soll Zeile für Zeile auslesen, und anschließend die einzelne Textbausteine. Ich habe recherchiert und bin auf die Funktion Split aufmerksam geworden. Doch leider weiß ich nicht wie und wo ich es einsetzen soll. Mein bisheriger Code:

Dim aText as String, zStr as String
aText = Activesheet.range("B4").Value
zStr = aText.Split(vbCrLf)???????

Weiter weiß ich leider nicht mehr. Ich hoffe auf Eure Hilfe

LG
Urmila

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
String Zeile für Zeile auslesen
04.08.2023 11:22:38
JoWE
Hallo Urmila,
warum zeigst Du keine Beispielarbeitsmappe die Deine Frage verdeutlicht und das Wunschergebnis zeigt?
Gruß
Jochen
String Zeile für Zeile auslesen
04.08.2023 11:39:57
Urmila
Hallo Jochen,

das würde ich sehr gerne machen, nur ist bei mir am PC der Upload von jeglichen Dateien blockiert :(

LG
Urmila
AW: String Zeile für Zeile auslesen
04.08.2023 12:44:09
JoWE
dann also anders,
wo genau steht der von Dir angegebene Text? Alles in einer einzigen Zelle? Also zum Beispiel in der Zelle A1?
Dann würd' ich das so machen: 
Option Explicit



Sub splitTxt_into_Rows()

 'genau so hat Daniel das gemacht

 'nur die Ausgabe hatte er mittel MessgeBox gelöst

  Dim arrText

  Dim i As Long

  arrText = Split(Range("A1"), Chr(10))

  For i = 0 To UBound(arrText)

      Cells(i + 1, 2) = arrText(i)

  Next

End Sub
Gruß
Jochern
Anzeige
String Zeile für Zeile auslesen
04.08.2023 13:08:07
Urmila
Hallo Jochen,

damit komme ich schon weiter, muss nur noch anpassen, dann ist es so wie ich es haben wollte :)

Danke und schönes Wochenende euch
LG
Urmila
String Zeile für Zeile auslesen
04.08.2023 11:50:28
daniel 
dim arrText

dim i as long



arrText  = Split(Text, Trennzeichen)



for i = 0 to ubound(arrText)

    Msgbox i & " - " & arrText(i)

next

Gruß Daniel
String Zeile für Zeile auslesen
04.08.2023 12:09:35
Urmila
Hallo Daniel,

nochmals vielen lieben Dank für deine Hilfe.
Leider habe ich falsch formuliert.
ich meinte eher, wie ich die Schleife für die Zeilen im String aufbaue?
Das was Du mir geschickt hast, wäre dann der Schritt danach.

Könntest Du mir bitte nochmals helfen?

LG
Urmila
Anzeige
String Zeile für Zeile auslesen
04.08.2023 12:16:50
Rudi Maintaire
Hallo,
wie ich die Schleife für die Zeilen im String aufbaue?
genau das hat er doch gepostet.

Gruß
Rudi
AW: String Zeile für Zeile auslesen
04.08.2023 11:20:08
daniel
Hi
Spilt erzeugt ein eindimensionales Array mit den einzelnen Textteilen.
die aufnehmende Variable deklariert man am besten als Variant.

Dim aText as String, zStr as variant
aText = Activesheet.range("B4").Value
zStr = Split(aText, vbCrLf)


Gruß Daniel
String Zeile für Zeile auslesen
04.08.2023 11:38:53
Urmila
Hallo Daniel,

danke für den Hinweis.
Verrätst Du mir bitte noch, wie ich eine Schleife darin baue?
Also For Schleife?

Lieben Dank und LG
Urmila

111 Forumthreads zu ähnlichen Themen

Einfügen mit jeder 2. Zeile als Leerzeile
Ulrich

Hallo zusammen,
wie kann ich einen Bereich einer Tabellen markieren, kopieren und in einem anderen Tabellenblatt über "Inhalte einfügen" und "verknüpfen" automatisch mit jeder zweiten Zeile als Leerzeile versehen, ohne das die Verknüpfung verrutscht?
Danke im Voraus und Grüße,
Ulr...
26.08.2008 14:15:00
Thread-ID: 1004799
4 Beiträge
Anzeige
Jede 2. Zeile einfärben
Frank

Hallo und Guten Abend Zusammen!
Mit folgendem Code
Sub Zeilen_formatieren() Sheets("DATEN").Activate Range("A14:K65536").Select For Zeile = 1 To Selection.Rows.Count If Zeile Mod 2 > 0 Then Selection.Rows(Zeile).Interior.ColorIndex = 15 End If Next Zeile End Sub
kann ich jede z...
17.01.2009 19:20:00
Thread-ID: 1040966
4 Beiträge
Jede 2. Zeile Hintergrund ändern
Blum

Hallo zusammen
Habe da noch eine Frage.
In Excel kann man doch jede 2. Zeile anders darstellen, so dass das lesen von grossen Dateien einfacher wird.
z.B. 1. Zeile weiss, 2. Zeile hellgrün, 1. Zeile weiss, 3 wieder hellgrün usw.
Hemm weiss jemand noch wie das automatisiert geht?...
25.06.2009 17:40:07
Thread-ID: 1084417
6 Beiträge
Anzeige
Jede zweite Zeile ausblenden
kleinerfinger

Guten Morgen, ich hoffe das Wetter bei euch ist etwas besser als bei mir !
Ich möchte per VBA über einen Button von der Zeile 8 bis zur Zeile 1000 jede zweite Zeile ausblenden und über einen anderen Button wieder einblenden.
Wie lautet der Code dafür?
Danke für eure Bemühungen im Vo...
27.10.2009 08:18:15
Thread-ID: 1112393
3 Beiträge
Makro zum löschen jeder 2. Zeile
philG

Hallo liebe Herber-Gemeinde,
ich habe ein Problem: elend Lange Tabelle, wo ich die 1., 3., 5. Zeile usw. löschen muss.
Kann mir jemand mit einem VB-Befehl aushelfen, der jede 2. Zeile der Tabelle löscht?
Ich wäre suuperhappy! Habt vielen Dank im Voraus! :-)
05.01.2010 10:26:46
Thread-ID: 1127199
4 Beiträge
Makro: jede zweite Zeile andersfarbig
Holger

Hallo,
aus diesem Forum habe ich unten stehendes Makro gefischt.
Funktioniert soweit alles, nur sobald durch AutoFilter die Auswahl verändert wird,
gerät natürlich alles durcheinander. Mit einer bedingten Formatierung möchte ich es ungern
lösen, mir ist eine reine VBA Lösung li...
07.05.2010 16:37:55
Thread-ID: 1156123
4 Beiträge
Innerhalb Markierung jede 2. Zeile löschen
Henning

Hallo zusammen,
ich habe schon gesucht, aber irgendwie keine Lösung gefunden.
Das Problem: Beim Einfügen von Daten aus einem anderen Programm übernehme ich Zeilen, die ich nicht brauche. Da ich die Daten immer wieder an anderen Stellen einfüge, suche ich nach einer Funktion, die mir in...
10.06.2010 16:54:13
Thread-ID: 1161292
3 Beiträge
Leerzeile nach jeder Zeile
Tom

Hallo
ich suche eine Möglichkeit mit der nach jeder 2.Zeile automatisch eine Leerzeile eingefügt wird.
Zeile 1=Inhalt Zeile2=leer Zeile3=Inhalt Zeile4=leer usw.
Danke vorab
TOM
05.09.2010 15:43:41
Thread-ID: 1175831
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
3
4
3
5
4
2
3
3
2
1
8
3
3
6
3
7
3
6
3
1
10
3
4
4
3