ich versuch grad ein Makro zu schreiben, welches mir über die Suchfunktion einen Wert in einer Zeile sucht und anschließend die Spalte löscht, in der der Wert steht.
Der Suchbegriff ist also die Überschrift, das Makro greift sich den Suchbegriff und löscht die ganze Spalte.
Sub SuchenLoeschen()
Cells.Find(What:="4." & TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
_
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Columns(1, ActiveCell.Column).EntireColumn.Delete
End Sub
Leider funktioniert das so nicht wirklich.Wär euch um Hilfe dankbar.
Gruß
A.