leider hat bisher keiner auf meine Frage vom 01.03. geantwortet. Es ist manchmal auch nicht einfach die Probleme als Laie zu formulieren. Ich versuche es nun in Teilschritten.
Mit dem Code in einer Userform
Rows("6:6").Find(TB1.Text).Select
finde ich die Spaltenüberschrift aufgrund eines Textboxeneintrages. In dieser Spalte möchte ich nun die Zelle in den Zeilen 9 bis 12 finden, die nur die Zahl aus dem Textfeld, indem auch noch eine Bezeichnung vorhanden ist
(CoBo1.AddItem Sheets("Basisdaten").Cells(6, i)& " " & Sheets("Basisdaten").Cells(7, i)),
der in der Userform geöffneten Combobox1 finden. Diese Zahl, und die Daten in der Zelle direkt darunter, sollen dann gelöscht werden.
Viele Grüße
Karl-Heinz