Schlagwort: kaputt

Ich habe den Fehler nicht einkreisen können. Aber er ist da:

In einem Excelformular werden Daten eingegeben. Dort werden Datenüberprüfungen verwendet, die Daten aus einem anderen Tabellenblatt holen. Die Liste verwendet einen Bezug auf das Blatt =tbl_Basisdaten!…

Ich kopiere über eine Schaltfläche ein Tabellenblatt „Interview BIA“ von einer anderen Datei in die aktuelle Datei.

Dadurch wird der Bezug auf die alte Datei hergestellt =[Alte Datei.xlsm]tbl_Basisdaten!…

Das ist mir leider nicht aufgefallen, weil die Dateien auf meiner Festplatte liegen und es deshalb zu keiner Fehlermeldung kommt.

Das muss raus! Okay – wir ändern das:

Ich generiere die Datenüberprüfungen aufgrund der Basisdaten auf dem Interviewformular. Ich verwende keinen Bezug, schreibe per Programmierung „Auftragsabwicklung;Arbeitsvorbereitung und Einkauf;Produktrealisierung Individual;Produktrealisierung maschinelle Fertigung;Wartung / Instandhaltung;Lager / Logistik;EDV-Systembetreuung:

    For i = 2 To intZeilen
        strZellinhalt = ThisWorkbook.Worksheets(Blatt).Range(strSpalte & i).Value
        strListeDatenüberprüfung = strListeDatenüberprüfung & "," & strZellinhalt
    Next
    If strListeDatenüberprüfung Like "*,*" Then
        strListeDatenüberprüfung = VBA.Mid(strListeDatenüberprüfung, 2)
    End If
    If strListeDatenüberprüfung <> "" Then
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=strListeDatenüberprüfung   ' -- geändert, weil Interviewblatt nun importiert wird
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End If

Das Ergebnis:

Klappt:

Ich speichere die Datei, schließe sie und öffne sie:

„Wir haben ein Problem bei einigen Inhalten erkannt. Sollen wir so viel wie möglich wiederherstellen? Wenn Sie der Quelle dieser Arbeitsmappe vertrauen, klicken Sie auf ‚Ja‘.“ Die Datei ist kaputt! Ich finde den Fehler nicht!

Böses, böses Excel!