Excel VBA: Bestimmte Zeichenfolge in Zelle finden

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

kennt jemand eine Excel-VBA Funktion, die eine Zeichenfolge innerhalb einer Zelle anhand eines Patterns (Muster) erkennt?.

Konkret suche ich eine Funktion, die überprüft, ob eine Zeichenfolge im Format V00000.000 in einer Zelle, in welcher x-beliebige andere Zeichenfolgen stehen können, enthalten ist und diese Zeichenfolge dann extrahiert bzw. in eine neue Zelle kopiert.

z.B.

Inhalt Zelle A1:

abc12pV12356.001426av

Das Programm soll m.E. prüfen, ob und wo im o.a. String

  1. ein „V“ vorhanden ist
  2. ob 5 Stellen hinter dem V ein Punkt vorhanden ist
  3. ob die Zeichen zwischen V und Punkt Zeichen von 0-9 sind
  4. ob die 3 Zeichen nach dem Punkt Zeichen von 0-9 sind.

Als Ergebnis soll V12356.001 aus Zelle A1 in Zelle B2 kopiert werden.

Kennt Ihr die einzelnen Funktionen für o.a. Checks oder brauch ich dass gar nicht und es gibt eine einfacherer Möglichkeit das Problem zu lösen.

Hoffe ich habe mich verständlich ausgedrückt…

Vielen Dank für Eure Antworten.

Gruss

Salvo

#2

Hallo Salvo,

ich habe mal folgendes Programm für dich umgeschrieben:

Public Sub search_character()

Dim j As Integer
Dim i As Integer
Dim content As String
Dim Character1 As Variant
Dim Character2 As Variant

j = 2
Character1 = „V“
Character2 = „.“

Do While Cells(j, 1).Value „“
content = Cells(j, 8).Value
For i = 1 To Len(content)
If (InStr(Character1, Mid(content, i, 1)) = 1) Then
If (InStr(Character2, Mid(content, i+5, 1)) = 1) Then
'und so weiter
End If
End If
Next i
j = j + 1
Loop
End Sub

Kannst du ja eventuell ein bißchen anpassen, dann müßte es für deine Funktion das richtige sein.