Ich habe ein ungewöhnliches Problem. In meinem Datenbankblatt werden nach der Ausführung des unten aufgeführten Codes alle Zellen schreibgeschützt. Zumindest bekomme ich die Meldung wenn ich darin arbeite. Der Blattschutz ist jedoch weder an, noch ist der Formateigenschaften der Zellen ausgewählt. Der Code wird bei Ausführung mit der Laufzeitfehler 13 "Typen unverträglich" beendet. Ich schätze, das liegt am selben Problem. Hat jemand eine Idee, wo der Fehler liegt?
Dim suchid1 As String, SuchAddresse As String
Dim Bereich As Range, DatenBereich As Range
Dim Sicherheit1 As Range
Dim keineDaten As Boolean
suchid1 = Sheets("1").Range("A2") 'Suchwert
Set Sicherheit1 = Sheets("DB K1").Cells.Find(suchid1)
For Each Bereich In Sheets("DB K1").Range("A1:HF" & [=COUNTA('DB K1'!A:A)])
'Prüfe ob Wert in (DB K1!)
If Sicherheit1 Is Nothing Then
SuchAddresse = _
Range(Cells(Range("A50000").End(xlUp).Offset(1, 0).Row, 1).Address _
& ":" & Cells(Range("A50000").End(xlUp).Offset(1, 0).Row, 214). _
Address).Address
keineDaten = True
GoTo eingabe
End If
If Bereich = suchid1 Then
SuchAddresse = Range(Cells(Bereich.Row, 1).Address & ":" & Cells(Bereich.Row, 214). _
Address).Address
eingabe:
For Each DatenBereich In Sheets("1").Range(SuchAddresse)
Sheets("DB K1").Range(DatenBereich.Address) = _
Sheets("1").Cells(2, DatenBereich.Column) 'Bereich mit 1!A2:HF2 Überschreiben
Next DatenBereich
End If
If keineDaten = True Then Exit For
Next Bereich
Gruß Frank