hallo,
ich vermute meinen Fehler zu beheben, dürfte ein leichtes sein, aber irgendwie kann ich mir seit fast eineinhalb stunden forensuche nicht helfen. bin vba Neuling.
ich würde gerne einen zelleninhalt als string speichern.
VBA wehrt sich aber standhaft. ich habe schon viel gesucht, u.a. mit .Value, .Text oder Range statt Cells, aber entweder kann ich ich das nicht so implentieren, oder der fehler438 taucht auf. der fehler besagt wohl, dass STRING diese Operation nicht unterstützt. im code hier zeile 7 und 9. wer kann mir da weiterhelfen?
ich habe praktisch eine liste an Wörtern im Sheet2 und jede Zeile im Sheet1 (sehr viele) soll auf alle diese Wörter geprüft werden. Falls eines davon vorhanden, dann löschen.
Dim i As Integer
Dim x As Long
Dim i1 As String
Dim i2 As String
For i = 1 To 164
i1 = ActiveWorkbook.Sheet2.Cells(i, 1).Text
For x = 1 To 50000
i2 = ActiveWorkbook.Sheet1.Cells(x, 3).Text
If StrComp(i1, i2) = 0 Then
Rows(x).Delete
End If
Next x
Next i
|