Text getrennt erfassen

Forumthread: 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

split(Text,", ")

ransi
AW: split(Text,", ")

Gregor

split(Text,", ")

09.12.2009 12: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

AW: split(Text,", ")

09.12.2009 13:42:12

Gregor

Ransi
Super, vielen Dank.
Gregor

Forumthread: Text getrennt erfassen

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

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread