Ich habe mal ne Frage zu nachstehendem Code:
Warum funktioniert der nicht?
Es wird mir immer ein Anwendungs- und objektdefinierter Fehler ausgegeben für die Zeile: Set zelle = Sheets("Schadenliste").Range...
Sub testSchadenliste()
Dim suchbegriff As String, zelle
Dim z As Long
suchbegriff = ""
Set zelle = Sheets("Schadenliste").Range(Cells(3, 1), Cells(65536, 1)).Cells.Find(suchbegriff)
If Not zelle Is Nothing Then
z = zelle.Row
End If
Sheets("Schadenliste").Cells(z, 1) = "1"
Sheets("Schadenliste").Cells(z, 2) = "Test"
End Sub
Kann mir da jemand weiterhelfen?
Danke und Gruß,
Stefan