Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Text getrennt erfassen | Herbers Excel-Forum


Betrifft: Text getrennt erfassen von: Gregor
Geschrieben am: 09.12.2009 11:13:43

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

  

Betrifft: split(Text,", ") von: ransi
Geschrieben am: 09.12.2009 11:30:16

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


  

Betrifft: AW: split(Text,", ") von: Gregor
Geschrieben am: 09.12.2009 12:42:12

Ransi

Super, vielen Dank.

Gregor


Beiträge aus den Excel-Beispielen zum Thema "Text getrennt erfassen"