Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Auswertung einer Datei mit Fehlerhaften SVERWEISen
zurück: Format kopieren ohne die Formatbedingungen weiter: Late Binding??!! Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
sabbergesicht
"try and error" ftw


Verfasst am:
29. Apr 2013, 11:14
Rufname: Benni
Wohnort: hab ich

Auswertung einer Datei mit Fehlerhaften SVERWEISen - Auswertung einer Datei mit Fehlerhaften SVERWEISen

Nach oben
       Version: Office 2007

Hallo liebe Gemeinschaft,

nachdem ich nun lange Zeit problemfrei durch mein Excel VBA Leben gekommen bin stehe ich jetzt vor einer Hürde die mir den letzten Nerv raubt.

Ich habe eine Excel Datei in der etwa 1500 Datensätze zu Fahrzeugen stehen, darin enthalten sind die zu erzielenden Testergebnisse damit ein Fahrzeug als erfolgreich getestet gilt.
Das Sheet wird mittels SVERWEISen gefüllt und ist an dieser Stelle leider die einzige Datenquelle die ich habe.
Nun möchte ich die für uns relevanten Daten ausleiten und kopiere daher alle unserer Fahrzeuge (Filter gemäß Baureihe) und die zugehörigen Daten.

Es kann aber vorkommen, das ein Verweis kein Ergebnis sondern "#NV" in die Zellen (der gesamten Zeile) einträgt. Dadurch bricht mein Kriterium für die Schleife (LEN(...) > 0) und auch die anderen Vergleichskriterien mit einem DEBUG Fehler ab.

Gibt es eine Möglichkeit, solche Zeilen von der Betrachtung auszuschließen da danach weitere wichtige Einträge folgen.

Änderungen an der Quelldatei kann ich leider nicht vornehmen.
Anbei findet ihr meinen Quelltext, ein Beispiel der Quelldaten kann ich euch leider nicht mitgeben.

Code:
Dim wkbTarget As Workbook
    Dim wkbSource As Workbook
    Dim datei As String
   
    datei = DATEIPFAD   
    Set wkbTarget = ThisWorkbook
    Set wkbSource = Workbooks.Open(datei)

    Dim i As Integer
    Dim k As Integer
    Dim eintrag As Integer
   
    k = 3
    eintrag = 2
   
    Dim tempDerivat As String

    Do While Len(wkbTarget.Sheets("Ergebnisdaten").Cells(3, k).Value) > 0
   
        tempDerivat = wkbTarget.Sheets("Ergebnisdaten").Cells(3, k).Value
   
        i = 5

        Do While Len(wkbSource.Sheets("KV01_COP vehicles ").Cells(i, 2).Value) > 0   '#KV01_COP vehicles #
       
            If (wkbSource.Sheets("KV01_COP vehicles ").Cells(i, 5).Value = tempDerivat) And wkbSource.Sheets("KV01_COP vehicles ").Cells(i, 2).Value = "EU" Then
       
                wkbTarget.Sheets("Rohdaten").Cells(eintrag, 1).Value = wkbSource.Sheets("KV01_COP vehicles ").Cells(i, 2).Value
                wkbTarget.Sheets("Rohdaten").Cells(eintrag, 2).Value = wkbSource.Sheets("KV01_COP vehicles ").Cells(i, 5).Value
                wkbTarget.Sheets("Rohdaten").Cells(eintrag, 3).Value = wkbSource.Sheets("KV01_COP vehicles ").Cells(i, 6).Value
                wkbTarget.Sheets("Rohdaten").Cells(eintrag, 4).Value = wkbSource.Sheets("KV01_COP vehicles ").Cells(i, 7).Value
                wkbTarget.Sheets("Rohdaten").Cells(eintrag, 5).Value = wkbSource.Sheets("KV01_COP vehicles ").Cells(i, 8).Value
                wkbTarget.Sheets("Rohdaten").Cells(eintrag, 6).Value = wkbSource.Sheets("KV01_COP vehicles ").Cells(i, 9).Value
                wkbTarget.Sheets("Rohdaten").Cells(eintrag, 7).Value = wkbSource.Sheets("KV01_COP vehicles ").Cells(i, 20).Value
               
                eintrag = eintrag + 1
           
            End If
           
            i = i + 1
       
        Loop
       
        k = k + 1
       
    Loop
   
    wkbTarget.Activate
   
    wkbSource.Close SaveChanges:=False
    Set wkbTarget = Nothing
    Set wkbSource = Nothing



Vielen Dank für Eure Hilfe.

Gruß
Benni

_________________
Wer sein Problem gut formulieren kann, hat es schon zu 80% gelöst.

Eine Rückmeldung tut keinem weh, hilft aber allen!
EtoPHG
Ich sehe dunkle Zeiten aufziehen...


Verfasst am:
29. Apr 2013, 13:09
Rufname: Hansueli

AW: Auswertung einer Datei mit Fehlerhaften SVERWEISen - AW: Auswertung einer Datei mit Fehlerhaften SVERWEISen

Nach oben
       Version: Office 2007

Hallo Benni,

so:
Code:
    Do While Len(wkbTarget.Sheets("Ergebnisdaten").Cells(3, k).Text) > 0
        If Not IsError(wkbTarget.Sheets("Ergebnisdaten").Cells(3, k)) Then
    '...dein Code zum Verarbeiten gültiger Einträge
        End If
    Loop
Gruess Hansueli
_________________
Forenhelfer danken für eine Rückmeldung!
Der Kluge lernt, der Dummkopf erteilt gern Belehrungen. - Anton Tschechow
sabbergesicht
"try and error" ftw


Verfasst am:
29. Apr 2013, 13:39
Rufname: Benni
Wohnort: hab ich


AW: Auswertung einer Datei mit Fehlerhaften SVERWEISen - AW: Auswertung einer Datei mit Fehlerhaften SVERWEISen

Nach oben
       Version: Office 2007

Das funktioniert einwandfrei.
Ich danke dir vielmals.

Gruß
Benni

_________________
Wer sein Problem gut formulieren kann, hat es schon zu 80% gelöst.

Eine Rückmeldung tut keinem weh, hilft aber allen!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Verknüpfung in andere Datei - Kommentar wird nicht angezeigt 4 VBAversucher 968 12. Jan 2007, 19:30
VBAversucher Verknüpfung in andere Datei - Kommentar wird nicht angezeigt
Keine neuen Beiträge Excel Formeln: Dateiname für Verknüpfung in ext. Datei durch Formel berechn 4 H005 1162 06. Okt 2006, 10:59
fridgenep Dateiname für Verknüpfung in ext. Datei durch Formel berechn
Keine neuen Beiträge Excel Formeln: Datei aktualisiert viel zu langsam mit SVerweis und Indirekt 8 Gast 6397 21. Sep 2006, 13:05
AndiHN Datei aktualisiert viel zu langsam mit SVerweis und Indirekt
Keine neuen Beiträge Excel Formeln: Datei als Datenquelle 2 Frankie 765 12. Sep 2006, 10:17
Frankie Datei als Datenquelle
Keine neuen Beiträge Excel Formeln: Spiel ohne Grenzen Auswertung(Rangliste);O03 1 bonifazius 1276 04. Aug 2006, 17:56
Alto Spiel ohne Grenzen Auswertung(Rangliste);O03
Keine neuen Beiträge Excel Formeln: Einfügen von Text (html) einer externen Datei in eine Zelle 0 Gast 1130 17. Jul 2006, 14:43
Gast Einfügen von Text (html) einer externen Datei in eine Zelle
Keine neuen Beiträge Excel Formeln: Auswertung einer Aussentemperaturerfassung 1 Gast 618 16. Jun 2006, 16:47
Detlef 42 Auswertung einer Aussentemperaturerfassung
Keine neuen Beiträge Excel Formeln: Punkte Auswertung (Sieger, Verlierer) 1 Laire 1142 12. Jun 2006, 19:35
Michael B. Punkte Auswertung (Sieger, Verlierer)
Keine neuen Beiträge Excel Formeln: Auswertung nach Typ / Datum 4 Dani_CH 612 13. Apr 2006, 13:27
ae Auswertung nach Typ / Datum
Keine neuen Beiträge Excel Formeln: Ist Datei vorhanden? über Formel 2 Conny31 2778 10. Feb 2006, 12:24
Conny31 Ist Datei vorhanden? über Formel
Keine neuen Beiträge Excel Formeln: Auswertung in neuem Tabellenblatt 3 Sabrina1 766 05. Jan 2006, 04:45
Hübi Auswertung in neuem Tabellenblatt
Keine neuen Beiträge Excel Formeln: Datei öffen mit Makro (anderen Namen und anderen Pfad) 1 MasterTobi 2172 11. Dez 2005, 19:04
etron795 Datei öffen mit Makro (anderen Namen und anderen Pfad)
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum