Hallo,
@ Hajo,
habe den Code mit der Tabelle ergänzt, gleiche Fehlermeldung.
Wie sieht der Code mit "With" aus?
@ nighty,
habe dein Makro etwas verändert, das jetzt so funktioniert.
Die If Abfrage nach dem Fund ist nicht nötig, weil der Begriff immer vorhanden ist.
fBegriff =
ListBox4.Value
Set aZelle = Sheets("Allgemein").Range("D4:D" & Sheets("Allgemein").Range("D" & Rows.Count).End(xlUp).Row).Find(fBegriff, lookat:=xlWhole)
If MsgBox("Wollen Sie die wirklich die Kolbenstangen einlagern oder die Stückzahl ändern.", _
vbYesNo + vbExclamation, "Achtuung") = vbYes Then
aZelle.Offset(0, 5) = TextBox2.Value 'Änderung eintratgen
aZelle.Offset(0, 2) = ComboBox5.Value
End If
Danke an alle für eure Hilfe.
Gruß
fedjo