Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1604to1608
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
1604to1608
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Text trennen

VBA Text trennen
31.01.2018 12:09:39
Simon
Hallo,
Ich habe folgendes VBA Problem:
In meiner Excel Liste gibt es ein kleines Eingabeformular.
In diesem Formular wird per Knopfdruck ein Text nach jedem ; getrennt und untereinander ausgegeben.
dies sieht folgendermaßen aus:
Vorher:
Test1; Test2; Test3
Nachher:
Test1
Test2
Test3
----------------------
Nun zu meinem Problem:
Manchmal kommt es vor das vier Wörter hintereinander stehen
(Test1; Test2; Test3; Test4)
Jedoch soll Test4 nicht ausgegeben werden.
Nun benötige ich 2 kleine Makros. Diese sollen wenn der Button betätigt wird Test4 kurz rauslöschen und anschließend Test4 wieder einfügen.
Ich hoffe ich habe mich halbwegs verständlich ausgedrückt.
Wenn nicht einfach nachfragen :)
Hier noch ein kleines Beispiel wie es mit eurem Makro aussehen soll:
Test1; Test2; Test3; Test4;
*Button wird betätigt*
Call Makro1 wird ausgeführt
Test1; Test2; Test3
Call Makro2 wird ausgeführt
Test1
Test2
Test3
Call Makro3 wird ausgeführt
Test1; Test2; Test3; Test4
Gruß Simon

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Text trennen
31.01.2018 12:32:21
Herbert
Hallo Simon,
sind das immer nur maximal 4 Wörter?
Servus
AW: VBA Text trennen
31.01.2018 12:38:28
yummi
Hallo Simon,
du musst nicht umständlich löschen und hinzufügen
zum Beispiel:
dein Text in Zelle A1, ausgabe in B1 bis B3

Sub test
dim z() as String
dim i as integer
z = split(ActiveSheet.Cells(1,1).value, ";")  'spaltet dein Wert in A1 nach ; auf
For i = 0 To UBound(z)     'durchläuft das so entstandene Array
if i
Gruß
yummi
AW: VBA Text trennen
31.01.2018 12:44:48
Herbert
Hallo Simon,
und so geht es auch untereinander:
Sub test()
Dim z() As String
Dim i As Integer
z = Split(ActiveSheet.Cells(1, 1).Value, "; ") 'spaltet dein Wert in A1 nach ; auf
For i = 0 To UBound(z)     'durchläuft das so entstandene Array
If i
Durch das Blank hinter dem "; " wird das Ganze auch ohne führendes Blank getrennt.
Servus
Anzeige
und ohne Schleife so
31.01.2018 13:04:20
Rudi
Hallo, 
Sub test()
Dim z() As String
z = Split(ActiveSheet.Cells(1, 1).Value, "; ") 'spaltet dein Wert in A1 nach ; auf
Cells(2, 1).Resize(3) = WorksheetFunction.Transpose(z)
End Sub

Gruß
Rudi
AW: und ohne Schleife so
31.01.2018 14:49:30
Simon
Danke für die schnellen Antworten :)
Ich habe nun den VBA Code gefunden der mir in meiner Excel alles kaputt macht und auch TEST4 ausgeben würde. Der Code wurde mir hier im Forum gemacht nur leider bringt mir dieser nun nichts mehr.
Dieser sieht folgendermaßen aus:
Sub Zellinhalte_trennen1()
'** Trennen von Zellinhalten an einem vorgegebenen Trennzeichen
'** Dimensionierung der Variablen
Dim lngZ As Long
Dim strTeilstring()   As String
Dim strTrennzeichen As String
'** Vorgaben definieren
Set wsakt = ThisWorkbook.Sheets("Aushang_erstellen")
lngZ = 41 'Ab dieser Zeile wird der getrennte Text ausgegeben;
strTrennzeichen = ";" 'Trennzeichen festlegen z.B. Komma(,) Semikollon(;) Bindestrich(-) etc.
'** Durchlaufen aller Datenzeilen
For x = 35 To 35 'Diese Zeilen werden überprüft;
'** Teilstring am Delimiter auslesen
strTeilstring = Split(Trim(wsakt.Cells(x, 3).Value), strTrennzeichen)
'** Durchlaufen des gesamten Arrays einer Zelle vom ersten bis zum letzten Wert
For A = LBound(strTeilstring) To UBound(strTeilstring)
'** Array-Elemente nacheinander eintragen
wsakt.Cells(lngZ, 3).Value = Trim(strTeilstring(A))
'** Zeilenzähler erhöhen
lngZ = lngZ + 1 '+ = Text wird nach unten ausgegeben | - = Text wird nach oben ausgegeben;
Next A
Next x
End Sub
Denkt ihr könnte man diesen Code umschreiben das dieser genau das macht was ich oben geschrieben habe?
Anzeige
AW: und ohne Schleife so
01.02.2018 14:23:08
Simon
Benötige keine Hilfe mehr hab das Problem alleine gelöst mit euren kleine VBA-Skripts :)
Danke!

19 Forumthreads zu ähnlichen Themen

Text trennen nach 40 Zeichen, aber nicht Wort
Peter

Hallo Forum,
suche eine Formellösung um einen String von 80 Zeichen auf 2x 40 Zeichen zu trennen, aber nicht mitten in einem Wort. Kann mir da bitte jemand helfen. Danke.
Grüße Peter
27.01.2011 15:41:04
Thread-ID: 1197667
4 Beiträge
Anzeige
Nach- und Vorname trennen in Textbox
Thorsten_Z

Moin liebes Forum,
ich bräuchte nochmal Unterstützung für eine Codezeile.
In einer UF steht in Textbox1 der Nach- und Vorname (Mustermann, Felix).
Jetzt hätte ich gerne in Textbox2 NUR den Nachnamen (Mustermann)
Der Name in TextBox1 ist immer "Nachname Komma Leerzeichen Vorname"...
15.12.2013 17:47:48
Thread-ID: 1342625
3 Beiträge
vba anpassen daten von excel nach word mit textmar
excel

Hallo Forum
ich möchte ein bestehndes VBA anpassen. habe leider keine grosse VBA Ahnung.
ich möchte aus Excel eine ganze zeile A3:M3 nach Word mittels Textmarke abfüllen eine Textmarke habe ich , jetzt wie muss mann das VBA anpassen das es die ander Textmarken erkennt und mitnimmt? ich...
27.01.2014 13:03:28
Thread-ID: 1346849
3 Beiträge
Anzeige
Im Text nach Wort aus Liste suchen
ebody

Hallo,
ich habe 2 Tabellenblätter "Text" und "Suche".
Im Tabellenblatt "Text" steht in Spalte A pro Zelle jeweils ein kurzer Text.
Im Tabellenblatt "Suche" steht in Spalte A pro Zelle jeweils ein Wort.
Im Tabellenblatt "Text" möchte ich in Spalte B mit einer Formel prüfen, ob im...
21.10.2015 14:50:04
Thread-ID: 1453554
8 Beiträge
VBA - Splitten von Daten in mehrere Tabellen
Daten

Hallo allerseits,
folgende Ausgangssituation: ich habe ein Tabellenblatt mit vielen Buchungssätzen (ca. 5.000), einer pro Zeile. In Zeile A stehen die Spaltenüberschriften. In Spalte F stehen die Kostenträger der einzelnen Buchungen, 7-9 verschiedene gibt es für alle Buchungen, die auch nac...
02.12.2015 16:19:23
Thread-ID: 1462018
4 Beiträge
VBA per Tab-Taste von TextBox zu CommandButton
TextBox

Hallo liebe Excel Gemeinde,
ich habe eine TextBox1 in der ich Suchbegriffe eingebe.
Nun möchte ich, wenn ein Suchbegriff eingegeben wurde, dass ich
mit der Tab-Taste den CommandButton1 aktiviere,
und dann mit Enter den starten kann.
Kennt da jemand eine Lösung ?
Gruß
17.02.2019 10:25:04
Thread-ID: 1676110
9 Beiträge
neu in VBA - wie man das Markup-Sprache-text parst
alkhair

wie kann man dieses Text parsen



text_1="string1"


text_2="string2"



es ist nur ein text und kein xml oder html.
wie kann man das in ein Baumstruktur und dann in Excel Packen
Danke :)
20.02.2019 13:06:55
Thread-ID: 1676703
2 Beiträge
Textfelder gegenseitig berechnen lassen - VBA
Jonas

Hallo zusammen,
ich erstelle gerade ein Rechnungformular und habe dafür eine Userform entwickelt in der ich alle relevanten Daten eingeben kann.
Dabei habe ich allerdings ein Problem:
Ich habe jeweils ein Textfeld für den Netto- und den Bruttobetrag und ein Combi-Feld für die Umsat...
27.08.2019 10:16:55
Thread-ID: 1709655
2 Beiträge
Anzeige

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
7
2
2
7
7
3
8
1
1
1
5
6
8
3
15
7
2
7