Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Artikelnummer vergleich

Artikelnummer vergleich
Steve
Hallo!
Ich habe eine Liste mit acht Spalten, in Spalte A ist immer der Artikelnummer (7 stellig getrennt durch ein Punkt, z.B. 123.4567) die restlichen 7 Spalten gehören der Artikelnummer an. Diese Liste ist bereits sortiert, und der Reihenfolge darf KEINESFALLS geändert werden. Ich füge in Spalte K bis R eine Update diese Liste hinzu. **Hier ist allerdings die Reihenfolge der Artikelnummer nicht das gleiche, d.h. zum Beispiel, der Nummer in Spalte A450 könnte in Spalte K8999 sein!!** Nun soll die Artikelnummer in Spalte K mit der Artikelnummer in Spalte A verglichen werden, wenn diese übereinstimmt dann sollen die Einträge in die Spalten L bis R in die Spalten B bis H überschrieben werden. Bedingt durch diese Update brauche ich bitte auch ein Fehlerprotokoll von das was übrig bleibt. Das heißt es könnte sein das Artikelnummer in Spalte A nicht in Spalte K vorhanden sind, umgekehrt genauso, Artikelnummer in Spalte K müssen nicht in Spalte A vorhanden sein! Wäre es deswegen möglich in Tabelle 2 darüber ein Protokollmeldung auszugeben? Zum Beispiel: Artikelnummer 578.5396 (Spalte A) ist nicht in Spalte K aufgelistet, andersrum genauso, Artikelnummer 222.0410 (Spalte K) ist nicht in Spalte A aufgelistet. Hier noch ein paar Hinweise: Die Liste in Spalte A bis H hat Überschriften in Spalte C das heißt in Spalte A wäre keine Artikelnummer vorhanden. Auch Leerzeilen kommen vor, diese dürfen bitte nicht verändert werden!
Das war`s schon!! Wäre super wenn mir jemand helfen konnte?!
Gruß
Steve

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Artikelnummer vergleich
Beni
Hallo Steve,
versuche es mit diesem Code.
Gruss Beni

Sub Artikelnummer_vergleich()
Dim aZeile, kZeile As Long
For aZeile = 1 To Cells(65536, 1).End(xlUp).Row
Wert = Cells(aZeile, 1)
With Columns(11)
Set C = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
End With
If C Is Nothing Then
With Worksheets("Tabelle2")
r = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(r, 1) = "Artikelnummer " & Wert & " aus Spalte A ist nicht in Spalte K aufgelistet"
End With
End If
Next aZeile
For kZeile = 1 To Cells(65536, 11).End(xlUp).Row
Wert = Cells(kZeile, 11)
With Columns(1)
Set C = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
End With
If C Is Nothing Then
With Worksheets("Tabelle2")
r = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(r, 1) = "Artikelnummer " & Wert & " aus Spalte K ist nicht in Spalte A aufgelistet"
End With
End If
Next kZeile
End Sub

Anzeige
AW: Artikelnummer vergleich
Steve
Hallo Beni,
das hat leider nicht geklappt! Ich sende dir hier eine Datei zum anschauen, da ist es dann leichter zu verstehen was ich brauche!
vielen, vielen Dank vorab,
https://www.herber.de/bbs/user/5252.xls
Gruß
Steve
AW: Artikelnummer vergleich
Beni
Hallo Steve.
jetzt sollte es funktionieren.
Gruss Beni

Sub Artikelnummer_vergleich()
Dim aZeile, kZeile As Long
For aZeile = 4 To Cells(65536, 1).End(xlUp).Row
Wert = Cells(aZeile, 1)
With Columns(11)
Set c = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
End With
If c Is Nothing Then
With Worksheets("Tabelle2")
r = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(r, 1) = "Artikelnummer " & Wert & " aus Spalte A ist nicht in Spalte K aufgelistet"
End With
Else
Range(c(1, 2), c(1, 8)).Copy Destination:=Cells(aZeile, 2)
End If
Next aZeile
For kZeile = 4 To Cells(65536, 11).End(xlUp).Row
Wert = Cells(kZeile, 11)
With Columns(1)
Set c = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
End With
If c Is Nothing Then
With Worksheets("Tabelle2")
r = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(r, 1) = "Artikelnummer " & Wert & " aus Spalte K ist nicht in Spalte A aufgelistet"
End With
End If
Next kZeile
End Sub

Anzeige
AW: Artikelnummer vergleich
Steve
Hallo Beni!
zu 98% klappt alles wirklich suuuper!! Nur in Spalte C werden leider die Überschriften durch den MAKRO entfernt, die müssen bitte bleiben!
Wäre nochmals sehr Dankbar für deine Hilfe,
Gruß
Steve
AW: Artikelnummer vergleich
Beni
Hallo Steve,
jetzt sollte es funktionieren, der Grund war, bei den Ueberschriften ist die SpalteA leer, also wird nach leer gesucht und "" übertragen.
Gruss Beni

Sub Artikelnummer_vergleich()
Dim aZeile, kZeile As Long
For aZeile = 4 To Cells(65536, 1).End(xlUp).Row
Wert = Cells(aZeile, 1)
With Columns(11)
Set c = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
End With
If c Is Nothing Then
With Worksheets("Tabelle2")
r = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(r, 1) = "Artikelnummer " & Wert & " aus Spalte A ist nicht in Spalte K aufgelistet"
End With
Else
If Wert <> "" Then Range(c(1, 2), c(1, 8)).Copy Destination:=Cells(aZeile, 2)
End If
Next aZeile
For kZeile = 4 To Cells(65536, 11).End(xlUp).Row
Wert = Cells(kZeile, 11)
With Columns(1)
Set c = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
End With
If c Is Nothing Then
With Worksheets("Tabelle2")
r = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(r, 1) = "Artikelnummer " & Wert & " aus Spalte K ist nicht in Spalte A aufgelistet"
End With
End If
Next kZeile
End Sub

Anzeige
AW: Artikelnummer vergleich
16.04.2004 13:59:52
Steve
Hallo Beni!
FANTASTICO! Es funktioniert alles Einwandfrei!
Vielen Dank, finde ich echt super von dir.
Gruß
Steve

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige