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
*Topic verschoben*
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
- Dim AutoIDwer As Integer 'AutoIDwerwer Fortlaufend
- Sub EinfügenderWerte()
- Dim SpaceID As Integer 'Stellt fest wieviele IRA`s und Action ID`s es gibt (AutoIDwer+SpaceID)
- Dim AnzahlZeilen As Integer 'Stellt fest wieviele IssuesID`s es gibt
- Dim Check As Integer
- 'Do while zähler
- Application.ScreenUpdating = False
- Check = 1 'Check auf 0
- AnzahlZeilen = 0 'auf 0
- AutoIDwer = 2 'damit er anfängt bei Spalte 2
- Sheets("Issues").Select 'Wechseln in Worksheet Issues
- AnzahlZeilen = Range("A65536").End(xlUp).Row 'Ermitteln wieviel IssuesID`s es gibt
- Do
- Dim IssueID 'As Integer 'Ist die ID der Issue
- Dim Project
- Dim Priority
- '-------------------------------------------------------------
- AnzahlZeilen = AnzahlZeilen - 1
- '--------------------------------------------------------------
- 'Copy Vorgang IssueID
- Sheets("Issues").Select
- Check = Check + 1 'Check Hochzählen lassen
- Range("A" + CStr(Check)).Select 'Erster Issues ID Copy
- Selection.copy
- IssueID = Range("A" + CStr(Check)).Value 'Zeilenwert auslessen
- 'Einfüg Vorgang IssueID
- Sheets("Datasheet").Select
- Range("A" + CStr(AutoIDwer)).Select
- ActiveSheet.Paste
- 'Copy ProjectName
- Sheets("Issues").Select
- Range("D" + CStr(Check)).Select 'Project Copy
- Project = Selection.copy
- 'Einfüg Vorgang ProjectName
- Sheets("Datasheet").Select
- Range("C" + CStr(AutoIDwer)).Select
- ActiveSheet.Paste
- 'Copy Priority
- Sheets("Issues").Select
- Range("C" + CStr(Check)).Select 'Priority Copy
- Priority = Selection.copy
- 'Einfüg Vorgang ProjectName
- Sheets("Datasheet").Select
- Range("B" + CStr(AutoIDwer)).Select
- ActiveSheet.Paste
- AutoIDwer = AutoIDwer + 1
- Dim m As Integer 'Zwischenspeicher
- Sheets("IRAs").Select
- m = Range("A65536").End(xlUp).Row 'Anzahl der Zeilen Ermitteln
- '----------------------------------------------------------------------------------------------------------
- Do
- Dim verify 'As Integer 'ID überprüfung
- Dim ProcessingStatus 'Speicher Variable zum Copyren des Spalten Inhaltes
- Dim IRAResp
- Dim IRARespDep
- Dim IRAID
- verify = 0
- verify = Range("A" + CStr(m)).Value
- If verify = IssueID Then
- 'Copy vorgang IRAID
- Sheets("IRAs").Select
- Range("M" + CStr(m)).Select 'HIER HAB ICH AUS DEM M ein M-1 GEMACHT
- IRAID = Selection.copy
- 'Einfüg vorgang IRAID
- Sheets("Datasheet").Select
- Range("D" + CStr(AutoIDwer)).Select 'normal AutoIDwer
- ActiveSheet.Paste
- 'Copy vorgang ProcessingStatus
- Sheets("IRAs").Select
- Range("W" + CStr(m)).Select
- ProcessingStatus = Selection.copy
- 'Einfüg vorgang ProcessingStatus
- Sheets("Datasheet").Select
- Range("E" + CStr(AutoIDwer)).Select 'normal AutoIDwer
- ActiveSheet.Paste
- 'Copy vorgang IRAResp
- Sheets("IRAs").Select
- Range("S" + CStr(m)).Select
- IRAResp = Selection.copy
- 'Einfüg vorgang IRAResp
- Sheets("Datasheet").Select
- Range("F" + CStr(AutoIDwer)).Select 'normal AutoIDwer
- ActiveSheet.Paste
- 'Copy vorgang IRA-Resp. Dep.
- Sheets("IRAs").Select
- Range("T" + CStr(m)).Select
- IRARespDep = Selection.copy
- 'Einfüg vorgang IRA-Resp. Dep.
- Sheets("Datasheet").Select
- Range("G" + CStr(AutoIDwer)).Select 'normal AutoIDwer
- ActiveSheet.Paste
- AutoIDwer = AutoIDwer + 1 'FUNKTION NICHT GEGEBEN DA ER DEN WERT NICHT ERKENNT AutoIDwer um 1 erhöhen da 1 IRA Gefunden wurde
- End If
- m = m - 1 'Nächste Zeile Bitte
- Loop While Not m = 1 'bis auf die Zelle1 im IRA`s auswerten
- '---------------------------------------------------------------------------------------
- Loop While Not AnzahlZeilen = 1 ' WIEDER AUF 1 SETZEN !!!!
- End Sub
*Topic verschoben*
Dieser Beitrag wurde bereits 8 mal editiert, zuletzt von „Marcus Gräfe“ ()