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ß DanielDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen