Bitte Hilfe zu Laufzeitfehler 438:
24.01.2019 12:35:42
Kai
Ich wende mich hier mal wieder an die Pro's unter euch. Hab ein Problem mit meinem
neuen Makro, der Code wurde aber zu 80% aus meinem letzten Makro copiert.
Hier mal der selbe ausschnitt aus dem Makro das Funktioniert:
If Workbooks("Liste.xlsm").Worksheets("Liste").Cells(Zeile, 9).Value = "" Then
Workbooks("Protokoll.xlsm").Worksheets("Tabelle1").CheckBox6.Value = False
Else
Workbooks("Protokoll.xlsm").Worksheets("Tabelle1").CheckBox6.Value = True
End If
und nun der Code der immer den Laufzeitfehler bringt:
If Workbooks("Liste Türen MüMü.xlsm").Worksheets("Liste").Cells(Zeile, 11).Value = "" Then 'Deckenmelder
Workbooks("Brandschutz Formular ohne FSA.xlsm").Worksheets("Drehflügel").CheckBox6.Value = False
Else
Workbooks("Brandschutz Formular ohne FSA.xlsm").Worksheets("Drehflügel").CheckBox6.Value = True
Workbooks("Liste Türen MüMü.xlsm").Worksheets("Liste").Cells(Zeile, 11).Copy
Workbooks("Brandschutz Formular ohne FSA.xlsm").Worksheets("Drehflügel").Cells(13, 30).PasteSpecial xlPasteValues
End If
Ich habe auch schon ein bisschen zu dem fehler im Forum gefunden aber die Info mit
den Addins hat nicht geholfen. Ich habe auch mal versucht beide Dateien zu öffnen,
die Funktionierende und die neue. Die Alte Funktioniert. Ich habe beide Makros am
gleichen PC und mit der gleichen Excel version geschrieben. Der Fehler heißt genau:
Laufzeitfehler 438:
Objekt unterstüzt die Eigenschaft oder Methode nicht.
Ich hoffe einer hat ne Idee.
MFG