Finde den Fehler nicht
26.08.2017 23:38:46
Jonas
ich habe einen Fehler in dem Makro
der Fehler erscheint bei "c.Select"
dort erscheint : Laufzeitfehler 1004
Die Select Methode des Range-Objektes konnte nicht ausgeführt werden.
Was mache ich nur falsch :(
LG Jonas
Sub Lager_löschen()
Dim i As Long, Nummer As String
Dim wkbLager As Workbook, wksLager As Worksheet
Set wkbLager = Workbooks("Lager.xls")
Set wksLager = Workbooks("Lager.xls").Worksheets("Lager")
Nummer = Range("Nummer")
With wkbLager
.Save
End With
With wksLager.Range("X2:AF64")
Set c = .Find(Nummer, LookIn:=xlValues)
If Not c Is Nothing Then
c.Select
.ClearContents
.Save
End If
End With
End Sub