String zerlegen

Computer: Software & Programmierung Visual Basic
#1

Hallo Forum,

ich habe folgendes Problem:
Ich habe in einer Tabelle in meinen Zellen Texte. Ich Benötige aber nicht den Kompletten String, sondern nur einen bestimmten Teil. Anfangen tut dieser mit { und enden mit }.
Ich brauche alles was in diesen Klammern steht.

Mein Quellcode sieht z.zt. so aus

Sub stringzerlegen()

Dim textgesamt As String
Dim zerlegenstart As String
Dim zerlegenende As String
Dim texterg As String

zerlegenstart = "{"
zerlegenende = "}"
dateiname = "Besuchsbericht.xls"
Pfad = "c:\"

 'PlanDatei öffnen

 Workbooks.Open Filename:= \_
 Pfad & dateiname
 Windows(dateiname).Activate

laenge = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To laenge Step 1

Sheets("Tabelle1").Select

textgesamt = Range("B" & i).Value

Range("C" & i).Value = bericht

Next
End Sub

wie kann ich den String zerlegen?

Vielen Dank!

#2

Hallo,

ein Beispiel mit VB, so kann ich leichter testen … :smile:
Wenn Du gesehen hast was passiert, kannst Du den Teil den Du brauchst leicht in eine Zeile zusammenfügen.

Gruß Rainer

Option Explicit

Private Sub Command1\_Click()
 Dim txt As String, txtNeu As String
 Dim pos1 As Integer, pos2 As Integer

 txt = "dieser Text {Testtext} soll zerlegt werden"
 pos1 = InStr(1, txt, "{")
 pos2 = InStr(pos1, txt, "}")
 txtNeu = Mid(txt, pos1 + 1, pos2 - pos1 - 1)
End Sub
#3

Danke!