kleiner code funktioniert nicht
10.10.2018 09:07:04
Anna
ich habe einen Code hier, der erweitert wurde. Ursprünglich wurde die Range B9 gefunden und die Zeile aus der anderen Tabelle gelöscht. Nun wollte ich dies mit 10 Zellen machen aber funktioniert nicht.
Sub Fotoliste_10Prozess_erledigt()
Dim gefunden As Range
Set gefunden = Worksheets("Datenbank").Columns(2).Find _
(what:=Worksheets("Fotoliste Checker").Range("B9:B19"), LookIn:=xlValues, lookat: _
=xlWhole)
If Not gefunden Is Nothing Then gefunden.EntireRow.Delete
Worksheets("Lagerfotos").Range("B9:B19").ClearContents
Dim Text1 As String
Dim Text2 As String
Text1 = "Die Artikelnummer "
Text2 = "wird aus der Datenbank entfernt"
MsgBox Text1 & vbLf & Text2, , "Meldung"
End Sub