wenn Text nicht gefunden, weiter - wie ?
27.10.2012 11:50:20
Wolfgang
der folgende auszugsweise Blattcode liest den Text aus einer Textbox und kopiert mir die gesuchten Begriffe in zugewiesene Zellen. Das läuft auch soweit. Problem fiel mir nun jetzt auf, dass möglicherweise die Textbox doch nicht den Text der angesprochenen Zelle (im Beispiel E25) enthält. Wie kann ich den Code verändern, dass er dann weiterläuft und zur nächsten Abfrage springt (im Beispiel nun zu c)? - Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Sub Test()
Dim a As Long
Dim b As Long
Dim c As String
Dim d As Long
Dim e As String
Dim linkvar As String
Dim titelvar As String
Dim linkvar2 As String
Dim linkvar3 As String
Dim E24, F24, E25, F25, E26, F26
E24 = Range("E24")
F24 = Range("F24")
E25 = Range("E25")
F25 = Range("F25")
E26 = Range("E26")
F26 = Range("F26")
'a)
a = Len(txteingelesen)
b = InStr(txteingelesen, E24)
b = b + 26
c = Mid(txteingelesen, b, a - b)
d = InStr(c, F24)
d = d - 1
e = Left(c, d)
'von hier aus kann "txteingelesen" die Daten von "c" übergeben bekommen
txteingelesen.Text = c
'und das suchergebnis "e" an eine variable übergeben
linkvar = e
'b)
a = Len(txteingelesen)
b = InStr(txteingelesen, E25) 'wenn Text aus Zelle E25 in txteingelesen (Textbox) nicht _
gefunden wird, weiter zu E26 bzw. c)
b = b + 37
c = Mid(txteingelesen, b, a - b)
d = InStr(c, F25)
d = d - 11
e = Left(c, d)
txteingelesen.Text = c
titelvar = e
'c)
a = Len(txteingelesen)
b = InStr(txteingelesen, E26)
b = b + 38
c = Mid(txteingelesen, b, a - b)
d = InStr(c, F26)
d = d - 1
e = Left(c, d)
txteingelesen.Text = c
linkvar2 = e
End Sub