Beni BITTE helfen ...
05.06.2004 11:26:24
Steve
Hallo Beni,
du hast mir vor vier Wochen ein Makro geschrieben (siehe bitte weiter unten!) nur an eine Stelle klappt es leider nicht und zwar die Überschriften in Spalte C (d.h. in Spalte A ist keine Artikelnummer vorhanden) werden leider aus der Liste gestrichen!! Könntest du bitte so lieb sein und das berichtigen, so dass die Überschriften bleiben?
Hier nochmals alle Daten zur Auffrischung, bin dir extrem Dankbar!!!
Gruß,
Steve
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
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