Ich möchte gern mit einer Schaltfläche das Tabellenblatt "005 Materialliste" öffnen und anschließend
in der Spalte B die Zelle selektieren, in der das Wort "Pos. 5" steht.
Was mache ich hier falsch?
Sub Eing_Ausstattung_Material_cmd_Pos5()
Dim z, zzz
For z = 1 To 10000
zzz = Replace(Sheets("005 Materialliste").Cells(z, 2), " ", "")
Sheets("005 Materialliste").Select
If zzz = "Pos. 5" Then
Sheets("005 Materialliste").Select
Cells(z, 2).Select
End If
Next z
End Sub