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
Ich möchte kostenlos eine Frage an die Mitglieder stellen:
Ähnliche Themen:
- hallo zusammen , ich bitte unbedingt hilfe ich möchte in excel über VBA AUS EINEM DATENBLATT werte in anderen datenblätten bzw. Tabellenblatten automa
- VBA Dateinamen mit best. Wert in eine Listbox eintragen
- Daten klassieren in Excel
- VBA Werte finden uns kopieren ???
- Excel VBA: Berechnung ausschalten?