VBA Löschen von Wörtern nach String

Ich versuche, alle Wörter nach dem ersten Vorkommen einer offenen Klammer in allen Zellen beginnend mit Zelle D14 zu löschen. Ich komme immer wieder mit einem Objekt Required Fehler und nicht sicher, wo das Problem liegt.VBA Löschen von Wörtern nach String

Dim startRow As Integer 
Dim pos_of_parenth As Integer 
Dim resultString as String 

startRow = 15 

With Windows(NewTemplateName) 
    .Activate 
    .ActiveSheet.Range("D" & startRow).Select 
    Do While .ActiveSheet.Range("D" & startRow).Value <> "" 
     resultString = "" 
     pos_of_parenth = InStr(1, ActiveSheet.Range("D" & startRow).Text, "(", CompareMethod.Text) 
     resultString = Left(.ActiveSheet.Range("D" & startRow).Value, pos_of_parenth) 
     startRow = startRow + 1 
    Loop 
End With

Quelle

2016-10-11 Adit2789

ändern CompareMethod.Text-VbCompareMethod.vbTextCompare

Quelle

2016-10-11 19:26:21

Verwandte des „CompareMethod.Text“ befreien: Geben Sie immer 'Option Explicit'. 'CompareMethod.Text' wäre als nicht deklarierter Bezeichner aufgetaucht, was OPs erster Hinweis sein sollte. –

Option Explizit ist eine gute Angewohnheit! –

landete ich es auch einfach durch Fixierung auf immer ganz

Quelle

2016-10-11 19:36:52 Adit2789

VBA Löschen von Wörtern nach String

Antwort

Verwandte Themen