ich möchte in der Zeile 24 nach dem Zellinhalt "Daten" suchen und diese Spalte löschen?
Wie mache ich das bitte per VBA?
Viele Grüße,
Sergej
Public Sub Spalte_löschen()
Dim rngFund As Range
With Sheets("Tabelle1") 'Tabelle anpassen
Set rngFund = .Rows(24).Find(what:="Daten", LookIn:=xlValues, lookat:=xlWhole)
If Not rngFund Is Nothing Then
rngFund.EntireColumn.Delete
Else
MsgBox "Suchbegriff in Zeile 24 nicht gefunden."
End If
End With
End Sub
Gruß WernerPublic Sub Spalte_löschen()
Dim rngFund As Range
With Sheets("Tabelle1")
Set rngFund = .Rows(24).Find(what:="Daten", LookIn:=xlValues, lookat:=xlWhole)
If Not rngFund Is Nothing Then
MsgBox "gefunden in Spalte " _
& Replace(rngFund.Address(0, 0), "24", "")
rngFund.EntireColumn.Delete
Else
MsgBox "Suchbegriff in Zeile 24 nicht gefunden."
End If
End With
End Sub
Gruß WernerWith Rows(24)
.Replace "Daten", true
.SpecialCells(xlcelltypeconstants, 4).EntireColumn.Delete
End with
Gruß Daniel