VB Variabelen Übergabe in IF schleife wird nicht übernommen

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Marcus Gräfe.

    VB Variabelen Übergabe in IF schleife wird nicht übernommen

    Hallo Mitteinander,

    Leider habe ich ein recht dringliches Problem.

    In meinen Projekt geht es darum verschiedene Daten aus Exelfiles zu ziehen doch leider Fuktioniert es nicht so wie es solte. Der Quellcode scheint mir in Ordnung zu sein da es keine Debuging fehler etc gibt.

    Das Problem an sich ist Ich arbeite mit einer Variabel die immer um 1 Hochgezählt werden soll wenn ein Passende ID aus dem Haupttabellenblatt, in einen Neben Tabellenblatt gefunden.

    Aus diesen Verschiedenen Tabellenblättern soll dann 1 Übersichtliches Tabellenblatt genneriert werden wo alle Wichtigen Daten Beinhalten

    In diesem Falle sollte das folgent aussehen:

    ISSUE ID IRA ID
    ---------------------------------------------------------
    120 |
    | 1
    | 2
    ----------------------------------------------------------
    121 |

    Nun ist das Problem das er in diesem Fall nicht die 2 IRA ID anzeigt. Da er die Variable "AutoIDwer" nicht hoch gezält wird.

    Nun ist die Frage warum nicht -.- vllt habt ihr Ideen.... hier ist noch der Quellcode

    Danke

    Visual Basic-Quellcode

    1. Dim AutoIDwer As Integer 'AutoIDwerwer Fortlaufend
    2. Sub EinfügenderWerte()
    5. Dim SpaceID As Integer 'Stellt fest wieviele IRA`s und Action ID`s es gibt (AutoIDwer+SpaceID)
    6. Dim AnzahlZeilen As Integer 'Stellt fest wieviele IssuesID`s es gibt
    8. Dim Check As Integer
    9. 'Do while zähler
    11. Application.ScreenUpdating = False
    14. Check = 1 'Check auf 0
    15. AnzahlZeilen = 0 'auf 0
    16. AutoIDwer = 2 'damit er anfängt bei Spalte 2
    17. Sheets("Issues").Select 'Wechseln in Worksheet Issues
    18. AnzahlZeilen = Range("A65536").End(xlUp).Row 'Ermitteln wieviel IssuesID`s es gibt
    20. Do
    21. Dim IssueID 'As Integer 'Ist die ID der Issue
    22. Dim Project
    23. Dim Priority
    25. '-------------------------------------------------------------
    26. AnzahlZeilen = AnzahlZeilen - 1
    27. '--------------------------------------------------------------
    32. 'Copy Vorgang IssueID
    33. Sheets("Issues").Select
    34. Check = Check + 1 'Check Hochzählen lassen
    35. Range("A" + CStr(Check)).Select 'Erster Issues ID Copy
    36. Selection.copy
    37. IssueID = Range("A" + CStr(Check)).Value 'Zeilenwert auslessen
    39. 'Einfüg Vorgang IssueID
    40. Sheets("Datasheet").Select
    41. Range("A" + CStr(AutoIDwer)).Select
    42. ActiveSheet.Paste
    44. 'Copy ProjectName
    45. Sheets("Issues").Select
    46. Range("D" + CStr(Check)).Select 'Project Copy
    47. Project = Selection.copy
    49. 'Einfüg Vorgang ProjectName
    50. Sheets("Datasheet").Select
    51. Range("C" + CStr(AutoIDwer)).Select
    52. ActiveSheet.Paste
    54. 'Copy Priority
    55. Sheets("Issues").Select
    56. Range("C" + CStr(Check)).Select 'Priority Copy
    57. Priority = Selection.copy
    59. 'Einfüg Vorgang ProjectName
    60. Sheets("Datasheet").Select
    61. Range("B" + CStr(AutoIDwer)).Select
    62. ActiveSheet.Paste
    65. AutoIDwer = AutoIDwer + 1
    67. Dim m As Integer 'Zwischenspeicher
    68. Sheets("IRAs").Select
    69. m = Range("A65536").End(xlUp).Row 'Anzahl der Zeilen Ermitteln
    70. '----------------------------------------------------------------------------------------------------------
    71. Do
    72. Dim verify 'As Integer 'ID überprüfung
    73. Dim ProcessingStatus 'Speicher Variable zum Copyren des Spalten Inhaltes
    74. Dim IRAResp
    75. Dim IRARespDep
    76. Dim IRAID
    78. verify = 0
    79. verify = Range("A" + CStr(m)).Value
    81. If verify = IssueID Then
    83. 'Copy vorgang IRAID
    84. Sheets("IRAs").Select
    85. Range("M" + CStr(m)).Select 'HIER HAB ICH AUS DEM M ein M-1 GEMACHT
    86. IRAID = Selection.copy
    88. 'Einfüg vorgang IRAID
    89. Sheets("Datasheet").Select
    90. Range("D" + CStr(AutoIDwer)).Select 'normal AutoIDwer
    91. ActiveSheet.Paste
    93. 'Copy vorgang ProcessingStatus
    94. Sheets("IRAs").Select
    95. Range("W" + CStr(m)).Select
    96. ProcessingStatus = Selection.copy
    98. 'Einfüg vorgang ProcessingStatus
    99. Sheets("Datasheet").Select
    100. Range("E" + CStr(AutoIDwer)).Select 'normal AutoIDwer
    101. ActiveSheet.Paste
    103. 'Copy vorgang IRAResp
    104. Sheets("IRAs").Select
    105. Range("S" + CStr(m)).Select
    106. IRAResp = Selection.copy
    108. 'Einfüg vorgang IRAResp
    109. Sheets("Datasheet").Select
    110. Range("F" + CStr(AutoIDwer)).Select 'normal AutoIDwer
    111. ActiveSheet.Paste
    113. 'Copy vorgang IRA-Resp. Dep.
    114. Sheets("IRAs").Select
    115. Range("T" + CStr(m)).Select
    116. IRARespDep = Selection.copy
    118. 'Einfüg vorgang IRA-Resp. Dep.
    119. Sheets("Datasheet").Select
    120. Range("G" + CStr(AutoIDwer)).Select 'normal AutoIDwer
    121. ActiveSheet.Paste
    123. AutoIDwer = AutoIDwer + 1 'FUNKTION NICHT GEGEBEN DA ER DEN WERT NICHT ERKENNT AutoIDwer um 1 erhöhen da 1 IRA Gefunden wurde
    125. End If
    127. m = m - 1 'Nächste Zeile Bitte
    128. Loop While Not m = 1 'bis auf die Zelle1 im IRA`s auswerten
    129. '---------------------------------------------------------------------------------------
    130. Loop While Not AnzahlZeilen = 1 ' WIEDER AUF 1 SETZEN !!!!
    133. End Sub


    *Topic verschoben*

    Dieser Beitrag wurde bereits 8 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Ist es denn richtig, dass AutoIDwer in Zeile 65 bei JEDEM Prozeduraufruf hochgezählt wird (mind. 1x)? Denn das ist der Fall.

    Dir geht es wohl um Zeile 123, die nicht ausgeführt wird. Setz doch mal in Zeile 81 einen Haltepunkt und schaue nach, ob verify wirklich = IssueID ist und wenn nicht, wie der Inhalt lautet.
    Besucht auch mein anderes Forum:
    Das Amateurfilm-Forum

Facebook
Telefonspende