ich habe das folgende Problem:
Es kann Vorkommen, dass einer der 160 Suchbegriffe nicht vorhanden ist. Ich wollte dass ganze über eine If-Anweisung machen:
If not x is nothing then
...
End if
Next a
aber dann sagt er immer ich hätte kein Next oder das Objekt nicht definiert
über Goto ans Ende zu next zu kommen funktioniert irgendwie auch nicht...
Sub Materialnummer(sPattern)
a = 1
For a = 1 To 160
Workbooks("Update-Database.xls").Activate
Sheets(1).Select
b = Workbooks("Update-Database.xls").Sheets(1).Range("A" & a).Value
Workbooks(spattern).Activate
x = Columns(1).Find(What:=b, LookIn:=xlValues).Row
y = Columns(1).Find(What:="* " & b, LookIn:=xlValues).Row
Range("A" & x + 1, "A" & y - 2).Select
Selection.Replace What:="1", Replacement:=b
Next a
End Sub
Bin verzweifelt. Versteht Ihr was ich möchte?
Vielleicht könnte mir jemand weiter helfen, hab nämlich nicht so viel Erfahrung damit...
Gruß
Daniel