wert suchen und spalte löschen
19.02.2025 13:54:09
Chris
ich möchte einen Wert (String) aus einem Quell-Sheet in einem Zielsheet suchen. Wenn im Zielsheet der Wert gefunden wird, soll die entsprechende Spalte im Zielsheet gelöscht werden.
Ich erhalte bei unten stehendem Makro die Meldung "Anwedungs-/Objektdivinierter Feher", rgnZelle = Nothing
Setze ich bspw. bei SB = "Test" - also einen festen String ein - geht es.
Was muss man ändern?
Gruß
Chris
Sub search()
Dim SB As Variant
Dim rngZelle As Range
Dim lngcol As Long
Dim z As Long
Set qws = Worksheets("Quelle")
Set zws = Worksheets("Ziel")
SB = qws.Cells(ActiveCell.Row, 2).Value
lngcol = zws.Cells(1, Columns.Count).End(xlToLeft).Column
Set rngZelle = zws.Range(Cells(1, 1), Cells(1, lngcol)).Find(What:=SB, _
LookIn:=xlValues, Lookat:=xlWhole, SearchDirection:=xlNext)
z = rngZelle.Column
If Not rngZelle Is Nothing Then
zws.Columns(z).Delete
End if
end sub
Anzeige