Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hallo zusammen,

ich versuche aktuell mit einem Instr verschiedene Zeichenkombinationen in einer Zelle festzustellen. Leider scheiter ich bei einem Typenkonflikt. Trotz recherchieren, bin ich bisher auf keine Lösung gekommen. Das zusammengefasste Codebeispiel:

Dim TableRow_OverviewFalseAndRight As Integer
Dim ArrayFormatError() As String ' Betroffenes Array
Dim FormatErrorWord As String
Dim FormatCorrectWord As String
Dim ErrorMarker As Boolean

TableRow_OverviewFalseAndRight = 2
'...
ErrorMarker = False

'...

TextFormatError = Cells(RawDataRowInt, 1)
   
    If InStr(1, ArrayFormatError, TextFormatError) > 0 Then
       
        Sheets("DataFormatResults").Select
       
        FormatErrorWord = Cells(TableRow_OverviewFalseAndRight, 1) 'z.B. "Ger'_chte"
        FormatCorrectWord = Cells(TableRow_OverviewFalseAndRight, 2) 'z.B. "Gerüchte"
       
        Do Until InStr(1, TextFormatError, FormatErrorWord) = 0 Or Cells(TableRow_OverviewFalseAndRight, 1) = "" 'Irgendwann sind keine Wörter mehr in der Liste enthalten
       
            TableRow_OverviewFalseAndRight = TableRow_OverviewFalseAndRight + 1
            FormatErrorWord = Cells(TableRow_OverviewFalseAndRight, 1)
       
        Loop
       
        If InStr(1, TextFormatError, FormatErrorWord) > 0 Then
           
            FormatCorrectWord = Cells(TableRow_OverviewFalseAndRight, 2)
           
            Sheets("Rawdata").Select
           
            Cells.Replace What:=FormatErrorWord, Replacement:=FormatCorrectWord, LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False
       
        End If

'...


Wenn das Array als Variant deklariert wird, besteht auch der Typenkonflikt. Ich würde mich über Tipps eurerseits freuen.

Vielen Dank!

Viele Grüße
w3lcome