AW: Zelle A-AG löschen wenn Name vorne gelöscht wird
30.05.2019 11:40:00
Werner
Hallo Jan,
und wenn es unbedingt mit VBA sein muß dann z.B. so:
Sub TDW()
Dim varRet As Variant, ws As Worksheet, raFund As Range
With Sheets("Stamm")
If .Range("K5") "" Then
varRet = Application.Match(.Range("K5"), .ListObjects("Tab_Stamm").DataBodyRange. _
Columns(2), 0)
If IsNumeric(varRet) Then
.ListObjects("Tab_Stamm").DataBodyRange.Rows(varRet).Delete
End If
For Each ws In ThisWorkbook.Worksheets
If ws.Name "Stamm" And ws.Name "Tabelle3" Then
With ws
Set raFund = .Columns(2).Find(what:=Worksheets("Stamm").Range("K5").Value, _
_
LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
.Rows(raFund.Row).Delete
End If
End With
End If
Next ws
.Range("K5") = ""
End If
End With
Set raFund = Nothing
End Sub
Gruß Werner