Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1120to1124
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
1120to1124
1120to1124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text getrennt erfassen

Text getrennt erfassen
Gregor
Hallo
Ich habe in einer Zelle folgender möglicher Eintrag:
S7, S15, S16, S26
Wie kann ich aus diesem Eintrag innerhalt eines VBA zuerst die S7 dann die S15 usw. eruieren, damit ich die entsprechenden Shapes mit gleichen Namen selectieren und ändern kann?
In einer Zelle sind 1 bis 5 Einträge, mit Komma getrennt.
Danke und Gruss
Gregor

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
split(Text,", ")
09.12.2009 11:30:16
ransi
HAllo Gregor
Schau dir split() an.
DAmit geht das sehr gut:
Option Explicit



Public Sub machs()
Dim strText As String
Dim vntStr As Variant
Dim I As Integer
strText = "S7, S15, S16, S26"
vntStr = Split(strText, ", ")
For I = LBound(vntStr) To UBound(vntStr)
    MsgBox vntStr(I)
Next
End Sub



ransi
Anzeige
AW: split(Text,", ")
09.12.2009 12:42:12
Gregor
Ransi
Super, vielen Dank.
Gregor

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige