Anzeige

Anzeige

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Vorheriger Thread

Vorheriger Thread

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Nächster Thread

Vorwärts blättern

Anzeige

Inhaltsverzeichnis

VBA String aus Listbox aufteilen

Forumthread: VBA String aus Listbox aufteilen
2 Beiträge zu diesem Forumthread
Anzeige
Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Forumthread: VBA String aus Listbox aufteilen

VBA String aus Listbox aufteilen

10.01.2022 15:05:46

Lukas

Hallo Forumsteilnehmer,
stehe bei meinem Problem auf dem Schlauch.
Habe in einer Listbox einen String, den ich in eine Zelle übergebe. Gerne würde ich den String bei einem definierten Zeichen trennen und den ersten Teil in Zelle 1 und den zweiten Teil in Zelle 2 übergeben.
Kann mir hier jemand eine Hilfestellung bieten?
Jetzt:


Tabelle2.Range("B11") = Me.LBAdressliste.List(LBAdressliste.ListIndex, 1)

Nachher:


Tabelle2.Range("B11") = Me.LBAdressliste.List(LBAdressliste.ListIndex, 1) BIS ZU bestimmtem Trennzeichen (z.B. ";")
Tabelle2.Range("B12") = Me.LBAdressliste.List(LBAdressliste.ListIndex, 1) AB bestimmtem Trennzeichen (z.B. ";")

Falls kein Trennzeichen vorhanden ist, wird der ganze String in eine Zelle übergeben, wenn eines vorhanden ist, wird aufgeteilt.
Schöne Grüsse
Lukas

Anzeige

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA String aus Listbox aufteilen

10.01.2022 15:10:58

ralf_b
AW: VBA String aus Listbox aufteilen

10.01.2022 15:46:36

Lukas

Anzeige

AW: VBA String aus Listbox aufteilen

10.01.2022 15:10:58

ralf_b

wenn das Trennzeichen nicht mit in die Zellen uß danngeht es mit Split("Text;Text2",";")
z.b. dim tmp
tmp = Split("Text;Text2",";")
zelle1= tmp(0)
zelle2 = tmp(1)

AW: VBA String aus Listbox aufteilen

10.01.2022 15:46:36

Lukas

Einfach und schnell, die Firma dankt! :-)

Anzeige

Forumthreads zu verwandten Themen

Funktion zum Umbrechen von Wörtern

Hallo,
ich bastele gerade an einem Excel-basierten "Meldungseditor" für Automatisierungssysteme, die ich beruflich programmiere.
Der Benutzer soll seine Meldung als Fließtext eingeben können, im Quellcode des Zielsystems muss dieser Text auf max. fünf strings mit max. 55 Zeichen aufgete...

11.03.2018 16:07:48

Thread-ID: 1613573

Webabfrage - Import zu groß

Hallo,
meine Webabfrage über VBA bezieht sich auf einen einzigen, aber sehr langen Text-String (.txt) mit ca. 5000 email-Adressen, die durch Semikolon getrennt sind (Code s.u.). Der Import in Excel erfolgt in eine einzige Zelle, die danach nicht mehr zu bearbeiten ist (Hinweise: "Zelle zu kl...

22.09.2004 17:33:40

Thread-ID: 489197

Funktion über Schleife

Hallo zusammen,
in einer Tabelle muss ich den Text zerlegen. Dazu füge ich 2 Spalten (D und E) ein und ab Zeile 2 führe ich die unten beschriebene Funktion aus. Mit "1" in Spalte D wird das erste Wort gefunden und mit "2" in Spalte E das zweite Wort.
Per Hand kann ich das in den Zellen alles...

29.03.2021 20:01:31

Thread-ID: 1823189

String zerlegen

Hallo Excel-Profis,
ich habe ein kleines Problem beim zerlegen eines Strings.
Bin gerade daran mir eine kleine (Private)Verwaltung zu programmieren.
Ich habe ein einem Excel Sheet Zellen mit variablem Inhalt, der aber in der Art immer gleich ist.
Also im Prinzip ist die Zelle je...

30.12.2015 22:05:50

Thread-ID: 1466487

String zerlegen

Hallo,
wie kann ich in Excel aus Strings wie z.B. diesem hier:
CN=Benutzer,OU=Firma,DC=com;CN=Anderer Benutzer,OU=Firma,DC=com;...
die einzelnen Benutzernamen bekommen und in eine Reihe von Zellen eintragen? Die Quelldaten liegen in einem Worksheet, und in einem anderen Sheet soll i...

06.07.2006 16:07:15

Thread-ID: 779696

Anzeige

Fehler 91: Objektvarialble nicht festgelegt

Hallo Wissende,
obiger Fehler kommt im nachfolgenden Code in "Sub UpdateSummaryInfo" in der Zeile:
If TextBox1.Text oDocProp.Author Then
obwohl ich anfangs des Codes im Modul einer UF dieses stehen habe:
Option Explicit
Private oFilePropReader As DSOleFile.PropertyReader

16.06.2008 20:24:00

Thread-ID: 986264

Userform Listbox Tabellen auswählen

Einen wunderschönen Guten Morgen,
ich habe quasi 2 Fragen.
1. Wenn der User entschieden ob er die Deutsche oder Englische Sprache möchte, erscheint als nächstes die u.a. MsgBox. Warum muss ich bei "JA" zweimal drücken? Was muss ich hier noch berücksichtigen?
Private Sub CommandBut...

30.04.2018 13:00:15

Thread-ID: 1622128

code braucht zu lange (wie optimieren)

Hallo guten morgen VBA experten,
habe wieder einmal ein anliegen wo es um codeoptrimierung geht:(
Mein Code braucht ca: 5-10 sekunden für die ausführung.
Würde mich sehr freuen wenn mir jemand helfen könnte meinen code etwas zu optimieren.
Ich weiß mein code ist ziemlich lange A...

28.02.2008 09:12:45

Thread-ID: 956006

Listbox in Sheet mit Array befüllen

Hey Community,

ich ärgere mich seit einiger Zeit mit folgendem Problem herum:

Ich möchte über ein Modul eine Listbox in einem Worksheet mit einem Array befüllen.
Jeglicher Versuch, die Listbox als OLEObject anzusprechen und per .list = array füllen zu wollen scheitert, da die O...

18.10.2024 18:44:26

Thread-ID: 1994200

Suchformular stürzt ab :(

Hi :)
https://www.herber.de/bbs/user/152811.xlsm
alles kappt super - aber wenn die Spalte H der ID 2 länger ist dann kommt es zur folgendem Fehler:
Der Text ist zu lange in der Spalte H - (sind ca 4500 Zeichen)
Ist es zu viel beim Einlesen in die Listbox in der Userform1
Wie ka...

03.05.2022 10:39:18

Thread-ID: 1881974

Weitere verwandte Threads

3 Filter in Listbox einbauen

ListBox mehrere Spalten gefiltert

ListBox bedingt füllen , bedingt ausgeben

Listbox einlesen mit TextBox durchsuchen

Modifizieren eines bestehenden VB-Codes

Userform mit andrer Mappe laden

Hyperlink zu über Listbox öffnen

VBA-Code beschleunigen

listbox

Array in ListBox filtern

ListBox füllen

VBA - List Box Zeilen einfügen

2 VBA Codes mergen

Zeile nach Status in anderes Blatt verschieben

Zahlen in Textzelle zählenwenn

vba csv.Datei Datum und Zahlen ohne ""

CSV-Datei import, importiert nur 2 Files, wieso?

Check Box Abfrage Mehrfachauswahl

DropDown-Mehrfachauswahl in mehreren Spalten

Länge eines gesuchten Teil eines Strings bestimmen

VBA - String aufteilen - Zahlen erkenn

VBA-Werte aus Spalte in ComboBox

Checkbox in Zelle per VBA

VBA Infobox

VBA Code: wenn B1 <> blank, dann I in A1 schreiben

Steuerelement Listbox1 in tabelle wird in VBA n

Wenn dann mit VBA und Makro starten

Listbox mit verschiedenen Einträgen mit VBA ausles

per VBA eine ListBox füllen

Messagebox verschwindet nicht automatisch

VBA InputBox

TextBox mit Index füllen via VBA

VBA Inputbox Type Parameter Problem

Wenn "Ja" dann zähle +1

Wenn Jahreszahl übereinstimmt,dann, sonst...

Wenn in D3 = X, Dann Text aus C3 -VBA

wenn CheckBox Ja, dann in Zwischenablage

VBA Datum in INPUTBOX in Tabelle suchen

wenn(isfehler=wahr;dann;sonst in vba

VBA WennDann + Variable

VBA Formel wenn Uhrzeit dann

Wenn dann als VBA

wie war das... VBA wenn dann ?

Messagebox mit Zellinhalt

Wenn-dann in VBA

Message Box nur einmalig anzeigen

wenn dann formel mit vba

VBA Wenn dann

VBA Wenn Zelle Leer dann

wenn dann Formel mit vba

VBA2010 wenn dateiname dann makro

VBA: Wenn Zellfarbe Dann Zellinhalt übertragen

VBA Wenn sich ein Zellwert ändert, dann

Messagebox mit VBA erstellen

Daten aus Messagebox einlesen

wenn, dann in VBA

VBA Wenn nicht in Zeile steht, dann Zeile einfügen

Suche, finde und dann aber nur wenn... VBA

VBA wenn ausgelöst dann Zeichen in richtiger Zeile

VBA via Inputbox suchen und Zelle ändern

VBA Wenn dann Zelle 5x kopieren in nächste Leere

VBA Zelle in Textbox übertragen

Datum per VBA in drei ComoBoxen aufteilen

VBA Wenn/Dann Formatierung

VBA Wenn Datum in Zelle, dann summieren...

Alle Listbox-Einträge per VBA auswählen

VBA Auswahl Combobox in Listbox

Messagebox bei AddIn Aktivierung unterdrücken

VBA - Prüfe ob Datei existiert, wenn ja dann copy

VBA gefilterte Daten mit textbox in listbox anzeig

VBA: Wenn dann funktion

VBA - Messagebox - Eingabeformular

VBA: Zelleninhalt zurück in TextBox

Webseiten-Inhalte per VBA in TextBox darstellen

Pivot-Tabelle mit MessageBox VBA

MessageBox in TextBox

inhalt der Messagebox in die Datei kopieren

vba Abfrage wenn leer dann

Wenn Und Dann VBA

VBA Textbox in Abh. von Listbox

per VBA InputBox in Zelle schreiben und drucken

Message Box Ja/Nein

VBA Textbox in Abh. von Listbox

wenn Ja dann Datum heute

VBA - Wenn dann

VBA Abfrage in Spalte wenn-dann

Wenn Zelle leer dann weiter in nächster Zelle! VBA

Link per VBA in Lotus Notes message einfügen

VBA-2 mark. Zellinhalte in jeweilige Textbox

VBA wenn;dann; sonnst Wert vom Vortag

Suchen /Ersetzen VBA /InputBox

Mit Vba bei bestimmtem Text eine Msg Box zeigen

VBA Input Box

UF-Listbox bedingt mittels VBA füllen

wenn dann vba

VBA Listbox füllen, Userform in Textbox einlesen

VBA wenn Wert eingetragen dann Message + Abbruch

VBA: Function in Userform Textbox

VBA: Zeilen löschen wenn dann

per VBA wenn dann

2 MessageBoxes in Code

VBA wenn Feiertag dann Wert in Zelle 0:00

MessageBox an Wenn-Bedingung knüpfen

VBA Wenn Status aktiv dann Name und Datum

VBA wenn dann multiplizieren

VBA - wenn-dann

Wenn Dann VBA

VBA: Inhalt einer Combobox dynamisch ändern

VBA Wörter Suchen und in Textbox ausgeben

VBA WENN Datenüberprüfung sich ändert DANN

Wenn in Spalte das steht dann kopiere VBA

VBA: Click in Listbox PDF Datei öffnen

VBA Aktion nur bei Selektierten Zeilen in Listbox

VBA wenn / dann

Wenn,dann, sonst VBA

VBA: wenn aktuelles Blatt. dann, ... sonst

Wenn Dann VBA

VBA für Wenn Dann

VBA wenn dann..

VBA: Daten aus Datenbank zurück in ListBox

VBA Do Until Look mit Inbox verlassen

VBA - Input Textbox bestimmter Wert

Wenn 13 in Zelle dann (vba)

Wenn.. Dann Sverweis VBA Hilfe

VBA Inhalte aus MsgBox in Tabelle kopieren

VBA Wenn Dann Abfrage f. mehrere selektiere Zeilen

VBA: Wenn Uhrzeit + 2 Minuten dann...

checkbox in tabelle via vba erzeugen - namen !

fillistbox in vba?

Wenn-Funktion (Wenn ja, dann Bild)

Schleife für Textbox in VBA

WENN DANN mit VBA

Messagebox noch kleiner Fehler

VBA, "Drag and Drop" in Textbox.Locked = True

Wenn dann Formel in VBA

Textboxen(1 to x) in Userform hinzufügen via VBA

DriveListBox in VBA Excel

messagebox einblenden

Beim Drucken soll MessageBox erscheinen!

WENN-DANN-SONST per VBA

VBA: Inputbox mit max. 5 stellige Nummer

DropDown Box in VBA

Wenn Dann in VBA

Wenn Dann mit VBA

VBA - Schriftgröße in Combobox ???

Inputbox-Messagebox !!!

Hilfe! Inputbox-Messagebox

Message-box beim öffnen einer xls-Datei

Info-Box ausgeben (Message-Box ohne Buttons)

Textbox in VBA-Excel

Datei öffnen duch Eingabebox In VBA

Wert in Messagebox, leider dringend :-(

Messagebox mit selbstdefinierten Buttons?

vba: wenn mehrzeilig dann zeilenhöhe optimieren

VBA inputbox

VBA aus inputbox in zelle??

Verschiedenen Textboxen über ein Button (VBA)

Message-Box überspringen

Message-Box direkt aus Excel (ohne VBA)

VBA-Wenn Wert erfüllt, dann ausblenden außer..

Wenn Dann per VBA

Wenn Dann ohne VBA

Combo-Box in VBA, wie geht das??

Wenn dann Formel als VBA-Code

VBA wenn leer dann ganze Zeile löschen

gibt es eine ChecklitBox in Excel VBA?

Filter für ComboBox in VBA

Entfernen vermeiden (wenn-dann)-> VBA ?

Wenn/Dann-Funktion mit VBA

Einmalige Messagebox, wenn Bedinung

Wenn Uhrzeit in B2 erreicht, dann .. Ohne VBA

VBA: Wenn Bedingung erfüllt dann ausschneiden

WennDann in VBA

VBA soppelte einträge Combobox

ComboBox in Tabellenblatt per VBA

TextBox in VBA "hochzählen"

wenn, dann per vba?

MsgBox kommt 2x in VBA

CheckBox in VBA ansprechen

VBA wenn ... dann... Verzweigung

Messagebox zu Uhrzeit wenn Bedingung

Messagebox nach 5 min, wenn Datei noch offen.

VBA Code in Message Box

Messagebox Ja Nein

VBA:Cosinus TextBox

ComboBox Eintrag in VBA ansprechen

Wenn-Dann in VBA (wenn Y9 >0, dann ...)

Wenn / nicht, dann Zelle löschen VBA

Wenn nicht / dann verschieben - VBA

Wenn neues Jahr dann Makro einmalig ausführen

Wenn B2 leer, dann B7 -VBA-

Message-Box nach Eingabe von F1

Wenn..., dann... - VBA

Wenn L11 das Ergebnis Januar, dann in $F$113 Ergeb

Wenn, dann (zählen) -ohne VBA-

Suchen ob Text in Zelle wenn ja dann ...

VBA inputBox

Listbox in VBA Auwahl ??

VBA-Wenn A1 aktiviert, dann Zeilen einblenden

Checkboxes in Zellen integrieren per VBA

VBA "Wenn, dann sonst"

Box in VBA

wenn leer, dann -VBA-

Wenn - dann, ohne VBA

Wenn - Dann -ohne VBA-

Wenn und Wenn - dann -VBA

wenn zelle A = jan ,dann zelle B = 1

Excel VBA wenn Wort richtig dann dieses Makro

VBA Wenn in Bereich nichts steht dann

VBA, ComboBox nur wenn bestimmter Eintrag in Listbox ausgewä

VBA: Wenn Button "Cancel" dann...

VBA Inhalt aus Textbox in Zelle schreibe

VBA, Wenn dann

VBA Code Hilfe, wenn Wert in Zelle, dann

wenn/dann mit VBA-Steuerelement

VBA falsche Datumsanzeige in ListBox

VBA Inbox Abbrechen

Message Box mit individuellem Text

VBA Wenn Zelle voll dann/leer dann

String aulesen - VBA Wenn Dann Sonst

VBA - wenn Sonntag, dann...

Messageboxen nur bei Einzelaufruf

Speichern VBA über InputBox

Wenn B2=B1 dann C2=C1 (VBA)

VBA wenn Zellen leer, dann...

Zwei Spalten Loop mit 3x Wenn dann VBA

VBA, Wenn Dann Prüfung

Ergebnis aus Inputbox in VBA Formel

Outlook VBA - Mailanzeige in MsgBox

VBA Excel in Word mit Checkboxen

VBA: Suchergebnis in Listbox

VBA wenn bestimmter Text dann Wert schre

Wenn Spalte A leer, dann... (VBA)

Wenn Dann Sonst als VBA

VBA Eindeutige Werte in Combobox

Wenn Zelle = ja, dann blende folgendes Tabellenblatt ein

VBA Userform Button Speichern und neuen Wert in Textbox

Daten einer ComboBox in VBA einer Variablen zuweisen

Textbox 1 bis Textbox 320 bedingte Formatierung mit VBA

Datedif wenn kein kein Jahr dann nicht anzeigen

PQ - Wenn der Jahrgang fehlt, dann...

VBA Makro wenn in B en Text steht dann in P X eintragen

Vba wenn Zelle durchgestrichen dann ans Ende der Tabelle

Function Rückgabewert - Ungültiger Prozeduraufruf

Problem bei relativer Zelladressierung

Anzeige

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

Anzeige

Anzeige

Live-Forum - Die aktuellen Beiträge

Datum

Titel

14.05.2026 13:31:09

Zeichen ausblenden

14.05.2026 09:50:42

Makro für MacOs

13.05.2026 19:14:18

Gleichheitszeichen

13.05.2026 14:24:56

VBA Projekt Passwort automatisch eingeben

13.05.2026 08:49:41

Reale Berechnung ohne Nachkommawerte

Keine passende Antwort im Forumarchiv gefunden?

Stelle deine Frage im Live-Forum