Problem bei If-Abfrage 2 *reloaded*

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von chimperator.

    Problem bei If-Abfrage 2 *reloaded*

    Hallo boys und girls,


    ich bin mit meinem Excel-Projekt fast fertig, habe nur noch einen Fehler bei einer If-Abfrage, der mich meine gesamte Kraft kostet. Es will einfach nicht funktionieren.

    Also ich habe eine .bld Datei in der ein Wert für 'Personalnummer' und 'Kalenderwoche' steht. Beides sind Zahlen!
    Nun habe ich ein Excelsheet, in dem ich einen Wert für Personalnummer eintragen muss und ein Datum. Die Kalenderwoche des Datums wird ermittelt und in ein ausgeblendetes Sheet in eine Zelle geschrieben.
    Das Programm müsste jetzt Folgendes machen:

    Wenn ich eine Personalnummer und ein Datum eingebe, und die Personalnummer mit der in der .bld Datei übereinstimmt und die Kalenderwoche des eingegebenen Datums mit der Kalenderwoche in der .bld Datei, dann soll er die Zeile aus der .bld Datei auslesen und in eine Tabelle eintragen.

    Es funktioniert wunderbar, wenn ich eine If-Abfrage mache, um NUR die Personalnummer abzufragen, dann schreibt er mir auch alles ordentlich hin.
    Wenn ich in die If-Abfrage noch eingebe, dass er die KW abfragen soll, dann schreibt er gar nichts mehr. Der Code des FUNKTIONIERENDEN Subs sieht so aus:

    Visual Basic-Quellcode

    1. Sub Einlesen()
    2. Call AnwahlDaten_Leeren
    3. PersonalnummerDatenblatt = ThisWorkbook.Sheets("Anwahl").Cells(3, 3).Value
    5. If ThisWorkbook.Sheets("Anwahl").Cells(3, 1) = Leer Then
    6. MsgBox "Datum nicht eingegeben!"
    7. Exit Sub
    9. End If
    11. If ThisWorkbook.Sheets("Anwahl").Cells(3, 3) = Leer Then
    12. MsgBox "Personalnummer nicht eingegeben!"
    13. Exit Sub
    15. End If
    19. 'Datei *.bld einlesen
    20. Application.ScreenUpdating = False
    21. If ThisWorkbook.Sheets("DropDown").Cells(10, 1).Value = "1" Then
    22. Taetigkeitsdatei = "C:\Dokumente und Einstellungen\xxx\Desktop\Taetigkeitsbericht-SL.bld"
    23. End If
    25. If ThisWorkbook.Sheets("DropDown").Cells(10, 1).Value = "2" Then
    26. Taetigkeitsdatei = "C:\Dokumente und Einstellungen\xxx\Desktop\Taetigkeitsbericht-EL.bld"
    27. End If
    29. If ThisWorkbook.Sheets("DropDown").Cells(10, 1).Value = "3" Then
    30. Taetigkeitsdatei = "C:\Dokumente und Einstellungen\xxx\Desktop\Taetigkeitsbericht-WZ.bld"
    31. End If
    34. Kalenderwoche_Anwahl = DINKw(ThisWorkbook.Sheets("Anwahl").Cells(3, 1))
    35. Sheets("DropDown").Cells(2, 5).Value = Kalenderwoche_Anwahl
    36. 'Stop
    37. EintrageZeile = 7
    38. Open Taetigkeitsdatei For Input As 1
    41. Do While Not EOF(1)
    42. Line Input #1, EinleseZeile
    43. If Trim(EinleseZeile) = Empty Then GoTo naechsteZeile
    44. 'Auswertung EinleseZeile
    45. Pos1 = InStr(1, EinleseZeile, ";")
    46. Laenge1 = Pos1 - 1
    47. Pos2 = InStr(Pos1 + 1, EinleseZeile, ";")
    48. Laenge2 = Pos2 - Pos1 - 1
    49. Pos3 = InStr(Pos2 + 1, EinleseZeile, ";")
    50. Laenge3 = Pos3 - Pos2 - 1
    51. Pos4 = InStr(Pos3 + 1, EinleseZeile, ";")
    52. Laenge4 = Pos4 - Pos3 - 1
    53. Pos5 = InStr(Pos4 + 1, EinleseZeile, ";")
    54. Laenge5 = Pos5 - Pos4 - 1
    55. Pos6 = InStr(Pos5 + 1, EinleseZeile, ";")
    56. Laenge6 = Pos6 - Pos5 - 1
    57. Pos7 = InStr(Pos6 + 1, EinleseZeile, ";")
    58. Laenge7 = Pos7 - Pos6 - 1
    59. Pos8 = InStr(Pos7 + 1, EinleseZeile, ";")
    60. Laenge8 = Pos8 - Pos7 - 1
    61. Pos9 = InStr(Pos8 + 1, EinleseZeile, ";")
    62. Laenge9 = Pos9 - Pos8 - 1
    63. Pos10 = InStr(Pos9 + 1, EinleseZeile, ";")
    64. Laenge10 = Pos10 - Pos9 - 1
    65. Pos11 = InStr(Pos10 + 1, EinleseZeile, ";")
    66. Laenge11 = Pos11 - Pos10 - 1
    67. Pos12 = InStr(Pos11 + 1, EinleseZeile, ";")
    68. Laenge12 = Pos12 - Pos11 - 1
    69. Pos13 = InStr(Pos12 + 1, EinleseZeile, ";")
    70. Laenge13 = Pos13 - Pos12 - 1
    71. Pos14 = InStr(Pos13 + 1, EinleseZeile, ";")
    72. Laenge14 = Pos14 - Pos32 - 1
    73. 'Schreibe Werte aus .bld in Variablen
    74. Datum = Mid(EinleseZeile, 1, Laenge1)
    75. Anzahl_Stunden = Mid(EinleseZeile, Pos1 + 1, Laenge2)
    76. Beschreibung = Mid(EinleseZeile, Pos2 + 1, Laenge3)
    77. Kostenstelle = Mid(EinleseZeile, Pos3 + 1, Laenge4)
    78. APLZNr = Mid(EinleseZeile, Pos4 + 1, Laenge5)
    79. InvNr = Mid(EinleseZeile, Pos5 + 1, Laenge6)
    80. ProjNr = Mid(EinleseZeile, Pos6 + 1, Laenge7)
    81. WKZNr = Mid(EinleseZeile, Pos7 + 1, Laenge8)
    82. Kennzahl = Mid(EinleseZeile, Pos8 + 1, Laenge9)
    83. Kennzahl_Beschreibung = Mid(EinleseZeile, Pos9 + 1, Laenge10)
    84. Ident = Mid(EinleseZeile, Pos10 + 1, Laenge11)
    85. Personalnummer = Mid(EinleseZeile, Pos11 + 1, Laenge12)
    86. kw = Mid(EinleseZeile, Pos12 + 1, Laenge13)
    88. 'If kw = ThisWorkbook.Sheets("DropDown").Cells(2, 5).Value Then
    89. 'Personalnummer mit Zelle vergleichen
    90. If Personalnummer = PersonalnummerDatenblatt Then
    91. 'kw = ThisWorkbook.Sheets("DropDown").Cells(2, 5).Value)
    94. 'kw = Kalenderwoche_DropDownBlatt Then
    97. 'Schreibe Variablen in Zellen
    98. ThisWorkbook.Sheets("Anwahl").Cells(EintrageZeile, 1) = Datum
    99. ThisWorkbook.Sheets("Anwahl").Cells(EintrageZeile, 2) = Anzahl_Stunden
    100. ThisWorkbook.Sheets("Anwahl").Cells(EintrageZeile, 3) = Beschreibung
    101. ThisWorkbook.Sheets("Anwahl").Cells(EintrageZeile, 4) = Kostenstelle
    102. ThisWorkbook.Sheets("Anwahl").Cells(EintrageZeile, 5) = APLZNr
    103. ThisWorkbook.Sheets("Anwahl").Cells(EintrageZeile, 6) = InvNr
    104. ThisWorkbook.Sheets("Anwahl").Cells(EintrageZeile, 7) = ProjNr
    105. ThisWorkbook.Sheets("Anwahl").Cells(EintrageZeile, 8) = WKZNr
    106. ThisWorkbook.Sheets("Anwahl").Cells(EintrageZeile, 9) = Kennzahl
    108. Else
    109. EintrageZeile = EintrageZeile - 1
    110. GoTo naechsteZeile
    112. End If
    113. 'Stop
    115. naechsteZeile:
    116. EintrageZeile = EintrageZeile + 1
    117. 'Stop
    118. Weiter:
    119. 'Stop
    120. EingabeZeile = EingabeZeile + 1
    121. Loop
    123. Close #1
    125. Application.ScreenUpdating = True
    126. Abbruch:
    128. End Sub


    Nun das gleiche Sub noch einmal aber mit der erweiterten IF-Abfrage, die NICHT funktioniert:


    Visual Basic-Quellcode

    1. Sub Einlesen()
    2. Call AnwahlDaten_Leeren
    3. PersonalnummerDatenblatt = ThisWorkbook.Sheets("Anwahl").Cells(3, 3).Value
    5. If ThisWorkbook.Sheets("Anwahl").Cells(3, 1) = Leer Then
    6. MsgBox "Datum nicht eingegeben!"
    7. Exit Sub
    9. End If
    11. If ThisWorkbook.Sheets("Anwahl").Cells(3, 3) = Leer Then
    12. MsgBox "Personalnummer nicht eingegeben!"
    13. Exit Sub
    15. End If
    19. 'Datei *.bld einlesen
    20. Application.ScreenUpdating = False
    21. If ThisWorkbook.Sheets("DropDown").Cells(10, 1).Value = "1" Then
    22. Taetigkeitsdatei = "C:\Dokumente und Einstellungen\xxx\Desktop\Taetigkeitsbericht-SL.bld"
    23. End If
    25. If ThisWorkbook.Sheets("DropDown").Cells(10, 1).Value = "2" Then
    26. Taetigkeitsdatei = "C:\Dokumente und Einstellungen\xxx\Desktop\Taetigkeitsbericht-EL.bld"
    27. End If
    29. If ThisWorkbook.Sheets("DropDown").Cells(10, 1).Value = "3" Then
    30. Taetigkeitsdatei = "C:\Dokumente und Einstellungen\xxx\Desktop\Taetigkeitsbericht-WZ.bld"
    31. End If
    35. Kalenderwoche_Anwahl = DINKw(ThisWorkbook.Sheets("Anwahl").Cells(3, 1))
    36. Sheets("DropDown").Cells(2, 5).Value = Kalenderwoche_Anwahl
    37. 'Stop
    38. EintrageZeile = 7
    39. Open Taetigkeitsdatei For Input As 1
    42. Do While Not EOF(1)
    43. Line Input #1, EinleseZeile
    44. If Trim(EinleseZeile) = Empty Then GoTo naechsteZeile
    45. 'Auswertung EinleseZeile
    46. Pos1 = InStr(1, EinleseZeile, ";")
    47. Laenge1 = Pos1 - 1
    48. Pos2 = InStr(Pos1 + 1, EinleseZeile, ";")
    49. Laenge2 = Pos2 - Pos1 - 1
    50. Pos3 = InStr(Pos2 + 1, EinleseZeile, ";")
    51. Laenge3 = Pos3 - Pos2 - 1
    52. Pos4 = InStr(Pos3 + 1, EinleseZeile, ";")
    53. Laenge4 = Pos4 - Pos3 - 1
    54. Pos5 = InStr(Pos4 + 1, EinleseZeile, ";")
    55. Laenge5 = Pos5 - Pos4 - 1
    56. Pos6 = InStr(Pos5 + 1, EinleseZeile, ";")
    57. Laenge6 = Pos6 - Pos5 - 1
    58. Pos7 = InStr(Pos6 + 1, EinleseZeile, ";")
    59. Laenge7 = Pos7 - Pos6 - 1
    60. Pos8 = InStr(Pos7 + 1, EinleseZeile, ";")
    61. Laenge8 = Pos8 - Pos7 - 1
    62. Pos9 = InStr(Pos8 + 1, EinleseZeile, ";")
    63. Laenge9 = Pos9 - Pos8 - 1
    64. Pos10 = InStr(Pos9 + 1, EinleseZeile, ";")
    65. Laenge10 = Pos10 - Pos9 - 1
    66. Pos11 = InStr(Pos10 + 1, EinleseZeile, ";")
    67. Laenge11 = Pos11 - Pos10 - 1
    68. Pos12 = InStr(Pos11 + 1, EinleseZeile, ";")
    69. Laenge12 = Pos12 - Pos11 - 1
    70. Pos13 = InStr(Pos12 + 1, EinleseZeile, ";")
    71. Laenge13 = Pos13 - Pos12 - 1
    72. Pos14 = InStr(Pos13 + 1, EinleseZeile, ";")
    73. Laenge14 = Pos14 - Pos32 - 1
    74. 'Schreibe Werte aus .bld in Variablen
    75. Datum = Mid(EinleseZeile, 1, Laenge1)
    76. Anzahl_Stunden = Mid(EinleseZeile, Pos1 + 1, Laenge2)
    77. Beschreibung = Mid(EinleseZeile, Pos2 + 1, Laenge3)
    78. Kostenstelle = Mid(EinleseZeile, Pos3 + 1, Laenge4)
    79. APLZNr = Mid(EinleseZeile, Pos4 + 1, Laenge5)
    80. InvNr = Mid(EinleseZeile, Pos5 + 1, Laenge6)
    81. ProjNr = Mid(EinleseZeile, Pos6 + 1, Laenge7)
    82. WKZNr = Mid(EinleseZeile, Pos7 + 1, Laenge8)
    83. Kennzahl = Mid(EinleseZeile, Pos8 + 1, Laenge9)
    84. Kennzahl_Beschreibung = Mid(EinleseZeile, Pos9 + 1, Laenge10)
    85. Ident = Mid(EinleseZeile, Pos10 + 1, Laenge11)
    86. Personalnummer = Mid(EinleseZeile, Pos11 + 1, Laenge12)
    87. kw = Mid(EinleseZeile, Pos12 + 1, Laenge13)
    90. 'Personalnummer mit Zelle vergleichen und KW
    91. If Personalnummer = PersonalnummerDatenblatt And kw = ThisWorkbook.Sheets("DropDown").Cells(2, 5).Value) Then
    93. 'Schreibe Variablen in Zellen
    94. ThisWorkbook.Sheets("Anwahl").Cells(EintrageZeile, 1) = Datum
    95. ThisWorkbook.Sheets("Anwahl").Cells(EintrageZeile, 2) = Anzahl_Stunden
    96. ThisWorkbook.Sheets("Anwahl").Cells(EintrageZeile, 3) = Beschreibung
    97. ThisWorkbook.Sheets("Anwahl").Cells(EintrageZeile, 4) = Kostenstelle
    98. ThisWorkbook.Sheets("Anwahl").Cells(EintrageZeile, 5) = APLZNr
    99. ThisWorkbook.Sheets("Anwahl").Cells(EintrageZeile, 6) = InvNr
    100. ThisWorkbook.Sheets("Anwahl").Cells(EintrageZeile, 7) = ProjNr
    101. ThisWorkbook.Sheets("Anwahl").Cells(EintrageZeile, 8) = WKZNr
    102. ThisWorkbook.Sheets("Anwahl").Cells(EintrageZeile, 9) = Kennzahl
    104. Else
    105. EintrageZeile = EintrageZeile - 1
    106. GoTo naechsteZeile
    108. End If
    109. 'Stop
    111. naechsteZeile:
    112. EintrageZeile = EintrageZeile + 1
    113. 'Stop
    114. Weiter:
    115. 'Stop
    116. EingabeZeile = EingabeZeile + 1
    117. Loop
    119. Close #1
    121. Application.ScreenUpdating = True
    122. Abbruch:
    124. End Sub



    Bitte bitte helft mir das Projekt fertigzustellen, habe nur noch bis Freitag Zeit :(

    Gruß

    Es ist nahezu unmöglich dir zu helfen, man müsste schon die bld datei und alles drumherum haben

    du kannst das ganze doch mal schritt für schritt debuggen und dir die werte von kw und ThisWorkbook.Sheets("DropDown").Cells(2, 5).Value) ausgeben lassen
    vll liegts an gross und kleinschreibung ?
    Das ist meine Signatur und sie wird wunderbar sein!

Facebook