finden + Inhalte in Spalte löschen
27.04.2005 13:08:40
Gerhard
ich möchte in Zeile 1 nach dem Eintrag "Gesamtergebnis" suchen und den kompletten Inhalt dieser gefundenen Spalte löschen, incl. "Gesamtergebnis".
Ich habe hier schon ein Macro gefunden, welchem ich aber die Spalte vorgeben muss. Wie kann ich die Suche nach der Spalte hier einbauen?
Sub SearchAndDelete()
Dim p As String, c As Byte, r As Integer
p = "Gesamtergebnis"
c = 1
r = Columns(c).Find(what:=p, LookIn:=xlValues, LookAt:=xlWhole).Row
Range(Cells(r, c), Cells(65536, 256)).ClearContents
End Sub
Danke für Eure Hilfe
Gerhard