Fehlercode(400) beim Verstecken von Spalten mit einer Modulfunktion

  • Excel

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von manuelritter.

    Fehlercode(400) beim Verstecken von Spalten mit einer Modulfunktion

    Hallo zusammen :)

    Habe da ein sehr verzwicktes Problem, für das es bestimmt eine Lösung gibt.

    Ich habe zwei ausgelagerte Funktionen in meinem Modul 1:

    Visual Basic-Quellcode

    1. Public Function schuetze(ByVal Protect As Boolean)
    2. Dim password As String
    3. password = ""
    5. If Protect = False Then
    6. Sheets("Bewerbungen").Unprotect (password)
    7. Sheets("Input Neu").Unprotect (password)
    8. Sheets("Archiv").Unprotect (password)
    9. Sheets("Parameter").Unprotect (password)
    11. Else
    12. Sheets("Input Neu").Protect (password)
    13. Sheets("Bewerbungen").Protect (password)
    14. Sheets("Parameter").Protect (password)
    15. Sheets("Archiv").Protect (password)
    17. End If
    18. End Function
    19. Public Function sichtbar(ByVal Hidden As Boolean)
    20. Sheets("Bewerbungen").Range("P:T,X:AC,AJ:BP,BY:CF").EntireColumn.Hidden = Hidden
    21. End Function


    Diese sind wie wahrscheinlich schon bemerkt, dafür zuständig, Sheets zu schützen/freizugeben bzw. Spalten zu verstecken/sichtbar zu machen.

    Nun habe ich zwei weitere Funktionen, die diese benutzen.

    Visual Basic-Quellcode

    1. Sub Output_Click()
    2. Dim Hidden As Boolean
    3. Dim Protect As Boolean
    4. Dim strOldFile As String
    5. Dim strNewFile As String
    6. Dim book As String
    7. Dim zeile As String
    8. Dim GD() As String
    9. Dim GDZ() As String
    10. Dim AD() As String
    11. Dim KD() As String
    12. Dim TD() As String
    13. Dim AKD() As String
    14. Dim BSD() As String
    15. 'Parameter initialisieren
    17. Application.ScreenUpdating = False
    18. 'Flackern unterbinden
    20. zeile = ActiveCell.Row
    21. 'Ausgewählte Zeile hinterlegen
    23. Protect = False
    24. schuetze (Protect)
    25. Hidden = False
    26. sichtbar (Hidden)
    27. 'Entfernen des Blattschutzes und Sichtbarmachung aller Felder
    29. vorlage = "V:\Holding\Personal\Bewerbermanagement\Anwendungen\Vorlagen\BWM_Output_Vorlage.xlsx"
    30. verzeichnis = "V:\Holding\Personal\Bewerbermanagement\Anwendungen\Bewerbungen\"
    31. 'Orginalvorlage & Orginalverzeichnis
    33. GD = leseGD(zeile)
    34. GDZ = leseGDZ(zeile)
    35. AD = leseAD(zeile)
    36. KD = leseKD(zeile)
    37. TD = leseTD(zeile)
    38. AKD = leseAKD(zeile)
    39. BSD = leseBSD(zeile)
    40. 'lesemethoden
    42. StrPath = verzeichnis & GD(0) & "_" & GD(2) & "_" & GD(3) & "\"
    43. 'Erstellung der Verzeichniskennung
    45. If Not fctVerzeichnisExists(StrPath) Then
    46. MkDir StrPath
    47. ordner = "" & GD(0) & "_" & GD(2) & "_" & GD(3) & "\"
    48. Else
    49. ordner = "" & GD(0) & "_" & GD(2) & "_" & GD(3) & "\"
    50. End If
    51. 'Überprüft ob der Pfad existiert, wenn nicht wird er erstellt. Erstellt den Ordnerstring.
    53. book = "BW_" & GD(0) & "_" & GD(9) & "_" & GD(2) & "_" & GD(3) & ".xlsx"
    54. 'Workbook wird hinterlegt.
    56. strNewFile = verzeichnis & ordner & book
    57. 'Vollständiger Verzeichnispfad wird hinterlegt.
    58. FileCopy vorlage, strNewFile
    59. 'Kopiert die Vorlage und fügt sie in das neue Verzeichnis ein.
    61. Workbooks.Open Filename:=strNewFile
    62. 'Öffnet das neue Workbook
    64. password = ""
    65. Workbooks(book).Sheets("Ansicht").Unprotect (password)
    67. schreibeGD GD, book
    68. schreibeGDZ GDZ, book
    69. schreibeAD AD, book
    70. schreibeKD KD, book
    71. schreibeTD TD, book
    72. schreibeAKD AKD, book
    73. schreibeBSD BSD, book
    74. 'schreibemethoden inklusive workbookübergabe.
    76. With Workbooks("BWM_ASAP.xlsm").Sheets("Bewerbungen")
    77. .Hyperlinks.Add Anchor:=.Range("A" & zeile), _
    78. Address:=verzeichnis & ordner, _
    79. TextToDisplay:=GD(0)
    80. End With
    81. 'Erstellt den Hyperlink auf den Ordner
    83. With Workbooks("BWM_ASAP.xlsm").Sheets("Bewerbungen")
    84. .Hyperlinks.Add Anchor:=.Range("C" & zeile), _
    85. Address:=strNewFile, _
    86. TextToDisplay:=GD(2)
    87. End With
    88. 'Erstellt den Hyperlink auf die Datei
    90. With Workbooks(book).Sheets("Ansicht")
    91. .Hyperlinks.Add Anchor:=.Range("B3"), _
    92. Address:=verzeichnis & ordner
    93. End With
    95. Workbooks(book).Sheets("Ansicht").Protect (password)
    96. Workbooks(book).Save
    97. 'Workbooks(book).Sheets("Ansicht").PrintOut
    98. Workbooks(book).Close
    99. 'Speichert und schliesst das Workbook
    101. MsgBox "Datei erfolgreich exportiert!"
    103. Application.Wait (Now + TimeValue("0:00:01"))
    105. Hidden = True
    106. sichtbar (Hidden)
    107. Application.Wait (Now + TimeValue("0:00:01"))
    108. Protect = True
    109. schuetze (Protect)
    110. 'Verstecken von Feldern und Schützen der Sheets
    112. Application.ScreenUpdating = True
    113. 'Ansicht wird aktuallisiert
    114. End Sub


    und

    Visual Basic-Quellcode

    1. Sub Export_Click()
    2. Dim zeilenzahl As Integer
    3. Dim strOldFile As String
    4. Dim strNewFile As String
    5. Dim book As String
    6. Dim Hidden As Boolean
    7. Dim Protect As Boolean
    8. Dim Wert As String
    9. 'Parameter initialisieren
    11. zeilenzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    12. Application.ScreenUpdating = False
    13. 'Flackern unterbinden
    15. Protect = False
    16. schuetze (Protect)
    17. Hidden = False
    18. sichtbar (Hidden)
    19. 'Entfernen des Blattschutzes und Sichtbarmachung aller Felder
    21. vorlage = "V:\Holding\Personal\Bewerbermanagement\Anwendungen\Vorlagen\BWM_Export_Vorlage.xlsm"
    22. verzeichnis = "V:\Holding\Personal\Bewerbermanagement\Anwendungen\Exporte\"
    23. 'Orginalvorlage & Orginalverzeichnis
    25. Wert = InputBox("Bitte Niederlassungskürzel eingeben(Bsp. HN=Heilbronn):", "Niederlassung")
    27. StrPath = verzeichnis & Wert & "\"
    28. 'Erstellung der Verzeichniskennung
    30. If Not fctVerzeichnisExists(StrPath) Then
    31. MkDir StrPath
    32. ordner = "" & Wert & "\"
    33. Else
    34. ordner = "" & Wert & "\"
    35. End If
    36. 'Überprüft ob der Pfad existiert, wenn nicht wird er erstellt. Erstellt den Ordnerstring
    38. book = "BWExport_" & Wert & "_" & Date & ".xlsm"
    39. 'Workbook wird hinterlegt
    41. strNewFile = verzeichnis & ordner & book
    42. 'Vollständiger Verzeichnispfad wird hinterlegt
    43. FileCopy vorlage, strNewFile
    44. 'Kopiert die Vorlage und fügt sie in das neue Verzeichnis ein
    46. Workbooks.Open Filename:=strNewFile
    47. 'Öffnet das neue Workbook
    49. password = ""
    50. Workbooks(book).Sheets("Export").Unprotect (password)
    52. ExportSchreibePartA book, zeilenzahl
    53. ExportSchreibePartB book, zeilenzahl
    54. ExportSchreibePartC book, zeilenzahl
    56. Workbooks(book).Save
    57. Workbooks(book).Close
    58. 'Speichert und schliesst das Workbook
    60. MsgBox "Datei: " & book & " erfolgreich erstellt!"
    62. Hidden = True
    63. sichtbar (Hidden)
    64. Protect = True
    65. schuetze (Protect)
    66. 'Verstecken von Feldern und Schützen der Sheets
    68. Application.ScreenUpdating = True
    69. 'Ansicht wird aktuallisiert
    70. End Sub


    Nun kommt der Fehler:
    Die Export_Click funktioniert tadellos, sie macht was sie soll und führt die 2 Funktionen richtig aus.

    Die Output_Click allerdings bringt einen Fehlercode 400 sobald er die erste Funktion erreicht.

    Wenn ich nun in den Debugmodus gehe und diese 4 Zeilen markiere:

    Hidden = True
    sichtbar (Hidden)
    Protect = True
    schuetze (Protect)

    Dann führt er sie wie vorgesehen aus, ohne fehlercode.

    Was steckt dahinter?

    Info:
    ich habe es schon mit

    Application.Wait (Now + TimeValue("0:00:01"))

    versucht mit den werten 1 Sec, 5 Sec, 10 Sec, um einfach auf Nummer sicher zu gehen, ob der Fehler bei der zu schnellen Abarbeitung liegt.

    Hoffentlich weiss irgendjemand Rat, denn ich weiss keinen mehr =/

    Bei der einen Funktion ist ein Application.Wait dazwischen, bei der anderen nicht.
    Beim Einzelschritt debugging fungiert der Mensch als "Wait". Nach dem Schützen/Sperren muss man vermutlich "warten", bis Excel die gewünschte Aktion beendet hat. Also entweder einen fixen "Wait-Wert" bestimmen, oder herausfinden, wie Excel einem "Bescheid" sagt, wenn eine Aktion beendet wurde.

    Da gebe ich dir teilweise Recht, ich weiss natürlich nicht wie sich das verhält, weil gerade vor ein paar minuten habe ich es mit einer auszeit von 30 sekunden getestet und es funktioniert wieder nicht ....

    Irgendeine Idee, wie ich das Problem in den Griff bekommen kann?

    Sowas ähnliches hatte ich auch mal, beim Debuggen hat es geklappt und beim Code selber nicht. Sechs Stunden später hatte ich war nicht das Problem erkannt, aber eine Lösung: Ich hatte eine Fehlerroutine gebaut mit und das ist der Witz Case Err.Number = 0 mit Resume. Und dann sprang er beim Debuggen in die Fehlerbehandlung - mit 0 (!). Jedenfalls lief es danach.



    Visual Basic-Quellcode

    1. Select Case Err.Number
    2. case 0
    3. Resume
    4. case else
    5. msgbox err.description
    6. end select




    Witzigerweise kommt normalerweise bei 0 "Resume ohne Fehler" als Fehler. In diesem Fall hatte es bei mir geklappt.

    lol, damit hat es nichts zu tun, bei resume next wird die "Fehler"anweisung ja übersprungen. Bei Resume eben noch mal versucht auszuführen. Aber hab mir mal deinen Code genauer angesehen. Du gehst bei deinem Makro davon aus, dass die Hilfsobjekte wie z.B. ActiveSheet korrekt sind. Sicherer ist, das tatsächliche Sheet zu setzen in deiner Schutzroutine. Vermutlich frisst er es beim Debuggen und sofort nach dem Speichern vom anderen Sheet ist gerade kein ActiveSheet verfügbar.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „DoSchwob“ ()

Facebook
Telefonspende