ID Auslesen und Wert zurückgeben

[Käpt'n Blaubär]

Hallo,

Also mit dem SVERWEIS funktioniert dies leider definitv nicht, da Excel so viele Funktionen in einem nicht möglich sind. 
Das hießt es muss wahrscheinlich echt in einem Macro erfüllt werden.

ich würde die vier Blätter in einem neuen Blatt zusammenfügen und dann mit diesem Blatt weiterarbeiten.

[Gast 123]

Hallo,

ich bin schneller fertig geworden als erwartet.  Beispieldatei mit neuem Makro zurück.  Ich benutze dabei Spalte H+I als Hilfsspalten für Fehlermeldung.  Mein Programm erkennt ob die gleiche ID Nummer in mehreren Lagern vorkommt und meldet einen Fehler zurück wenn die Artikelnamen unstimmig sind. Einen Namen habe ich zum Testen geaendert!  

Nach dem ersten Suchlauf erfolgt ein zweiter Suchlauf nach Part ID-Nummern. Findet er eine Teil Nummer wird sie mit dem Artikelnamen in Rot aufgelistet. Das muss man dann selbst erkennen ob ein Schreibfehler vorliegen könnte??

Ich hoffe das die neue Makro Version das Problem zufriedenstellend löst. Würde mich freuen. 

mfg  Gast 123

[IchBinIch]

Hi,

so sollte es auch gehen.

Sub ItemIDÜberMehrereBlätterSuchen()

Dim Treffer As Range

Dim Blatt As Worksheet

Dim z As Long



For Each Blatt In ThisWorkbook.Worksheets

    If Blatt.Name Like "Artikel*" Then

        For z = 3 To Tabelle1.Cells(Rows.Count, 3).End(xlUp).Row

            Set Treffer = Blatt.Columns(2).Find(what:=Tabelle1.Cells(z, 3).Value, lookat:=xlWhole)

            If Not Treffer Is Nothing Then

                Tabelle1.Cells(z, 4).Value = Treffer.Offset(0, 2).Value

                Tabelle1.Cells(z, 7).Value = Treffer.Offset(0, 3).Value

            End If

        Next z

    End If

    Set Treffer = Nothing

Next Blatt



End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Gruß
Ich

[BoskoBiati]

Hallo,

bei vier Tabellen ist eine Formel noch relativ einfach zu erstellen:

Code:

=wennfehler(SVERWEIS(A2;Tabelle3!A:B;2;0);wennfehler(SVERWEIS(A2;Tabelle4!A:B;2;0);wennfehler(SVERWEIS(A2;Tabelle5!A:B;2;0);wennfehler(SVERWEIS(A2;Tabelle6!A:B;2;0);"nicht da"))))

Tabellennamen anpassen!

[snb]

'Structuring precedes coding' : so die Integration von alle Lagerdaten wäre die beste Lösung, sowie schon erwähnt.
Für ein strukturell suboptimale Situation könnte diese UDF verwendet werden.

Ein UDF mit Dictionary:

Code:

Public d_00 As Object

Function F_snb(c00, y)
   If d_00 Is Nothing Then
        Set d_00 = CreateObject("scripting.dictionary")
        For Each sh In Sheets
          If Left(sh.Name, 1) = "A" Then
            sn = sh.UsedRange
            For j = 1 To UBound(sn)
               d_00("A_" & sn(j, 2)) = Application.Index(sn, j)
            Next
          End If
        Next
  End If
  
   F_snb = d_00("A_" & c00)(y)
End Function

[MedusaLeiche]

Ich danke euch!!!
Es funktioniert perfekt!! Ihr seit Klasse!! :23: :23:

Liebe Grüße
FLo