Spalte löschen
22.10.2013 09:26:44
Albert
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
Wär euch um Hilfe dankbar.
Gruß
A.
Anzeige