Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Excel VBA Werte suchen und Fehlerbehandlung





Frage

Hallo, ich habe folgendes Problemchen: In Tabelle "TblArtikel.xls" (nennen wir diese A) stehen im Spalte D Werte. Diese Werte befinden sich auch in Tabelle "import_compass_xls_in_mde.xls" im Blatt "alleArtikel". (nennen wir diese B) Nun soll in A alle Werte in D der Reihe nach aufgenommen werden. Der gleiche Wert in B gesucht werden. Aus der Zeile, wo der gleiche Wert gefundne wird, sollen die Werte aus H und I in A in die Spalte I und J kopiert werden. Mein Makro funktionierte ganz gut, bis ein Wert aus A in B nicht gefunden wurde. Dann soll diese Zeile aus A in B eingefügt werden. Die Fehlerbehandlung funktioniert nicht ;-( Mein Makro (bitte habt Nachsicht - bin blutiger VBA Anfänger): Sub Suchen_Stückliste() Windows("TblArtikel.xls").Activate lZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row For z = 2 To lZeile Barcode = Cells(z, 3).Text Windows("import_compass_xls_in_mde.xls").Activate ActiveWindow.ScrollRow = 1 Suchwert = Cells.Find(What:=Barcode, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _ MatchCase:=False).Activate ´If Not Suchwert Is Wahr Then ´gefunden? WertZeile = ActiveCell.Row Cells(WertZeile, 8).Select Selection.Copy Windows("TblArtikel.xls").Activate Cells(z, 9).Select ActiveSheet.Paste Windows("import_compass_xls_in_mde.xls").Activate ´End If Next z Gruß, FRANK

Antwort von