Kombinatorik aus 4 Datenblättern

[Crassuss]

Hallo leider bin ich zu schlecht und unwissend um folgendes Makro bzw VB Script für Excel zu schreiben und würde mich freuen wenn mir jemand hilft bzw mir das schreibt.

Vorgaben: 1 Excel Tabelle mit 5 Blättern

1) Ausgabe mit 3 Spalten: Dienstleistung | Hersteller | Bezeichnung
2) Hersteller (liste mit allen Herstellern z.b. Nokia)
3) Bezeichnung (mit Hersteller zb Nokia E7)
4) Dienstleistungen (Reparaturen , Entsperren)
5) Reparaturarten (zb. Touch , Flex etc.)


Ich hätte gerne ein Script das mir eine Kombination aller Dinge gibt zb ich habe

2 Hersteller (nokia , sony ericsson)
4 Bezeichungen (nokia e7, nokia n8, sony x10 , sony x8)
2 Reparaturarten (touch , display)
die 2 Dienstleistungsarten

wenn die Dienstleistung eine Reparatur ist soll noch die Art
in die Bezeichnungsangabe integriert werden,
dann soll das 1 Blatt mit der Ausgabe so aussehen:

Dienstleistung | Hersteller | Bezeichnung
Entsperren | Nokia | Nokia E7
Entsperren | Nokia | Nokia N8
Entsperren | Sony Ericsson| Sony Ericsson x10
Entsperren | Sony Ericsson| Sony Ericsson x8
Reparatur | Nokia | Nokia E7 touch
Reparatur | Nokia | Nokia N8 touch
Reparatur | Sony Ericsson| Sony Ericsson x10 touch
Reparatur | Sony Ericsson| Sony Ericsson x8 touch
Reparatur | Nokia | Nokia E7 display
Reparatur | Nokia | Nokia N8 display
Reparatur | Sony Ericsson| Sony Ericsson x10 display
Reparatur | Sony Ericsson| Sony Ericsson x8 display


ich habe natürlich weit mehr modelle und reparaturarten.
Der Grund der ganzen Aktion ist ein neues WaWi-System
und ich möchte nicht alles händisch eintragen und kann
an den Hersteller nur ein CSV oder Excel-Sheet zum import
schicken.

Falls es wen hilft mir zu helfen (und vielleicht mal eine Tabelle
mit seeeeeehr vielen Modellen zu haben) hier der download-link:

http://www.fileuploadx.de/683143


Mit besten Grüßen !

[Rudi4]

Hallo, besteht noch Interesse?

dann hier mein Entwurf für den 1.Teil "Ensperren"-Liste:
'in ein allgemeines Modul:

Option Explicit
Option Compare Text
Sub Crassuss1()
Dim aHer, aHerTeil, aBez, aBStrings() As String
Dim bLZ&, hLZ&, rLZ&, i&, ii&, iE&
'Bezeichnungen in String-array
With Worksheets("Bezeichnungen")
bLZ = .Cells(.Rows.Count, 1).End(xlUp).Row
aBez = .Range("a1:c" & bLZ).Value
ReDim aBStrings(1 To UBound(aBez))
For i = 1 To UBound(aBez)
aBStrings(i) = aBez(i, 1)
Next
End With
'Liste Entsperren
With Worksheets("Hersteller")
hLZ = .Cells(.Rows.Count, 1).End(xlUp).Row
aHer = Application.Transpose(.Range("a1:a" & hLZ).Value)
End With
For i = 1 To UBound(aHer)
aHerTeil = Filter(aBStrings, aHer(i))
For ii = 0 To UBound(aHerTeil)
If Left(aHerTeil(ii), 1) = Left(aHer(i), 1) Then
iE = iE + 1
aBez(iE, 1) = "Entsperren"
aBez(iE, 2) = aHer(i)
aBez(iE, 3) = aHerTeil(ii)
End If
Next
Next
Sheets("Kombination").Cells(2, 1).Resize(UBound(aBez, 1), UBound(aBez, 2)).Value = aBez
'Kombinationen Reparatur

End Sub

Beachte:
1. zu korrigieren: Qtec oder Qtek
2. in der Liste Hersteller fehlen: Motorola und O2


Der 2.Teil, die Kombinationen mit den Reparaturarten kommt auch noch bei Rückmeldung.
Wie soll das Makro "handeln" bei o.g. Fehlern?


Ist dir aufgefallen?:
In der Liste Bezeichnungen gibt es ein paar Doppelte(für das Makro ohne Bedeutung)

[Crassuss]

hey danke, ich hatte es dann so eilig das ich mir mit einem halben tag copy pasten geholfen hab... leider wendet sich mein chef immer sehr kurzfristig mit solchen sachen an mich, wollte es zuerst mit sql lösen da ich da relativ viel erfahrung hab aber mein kopf war in den letzten 2 wochen zu beschäftigt damit mich um das neue geschäft zu kümmern das ich nicht mehr darüber nachdenken wollte... trotzdem danke für deine mühe ! falls wer die fertige Datenbank (ca 24.000 einträge) braucht bitte bei mir melden, oder nur die handyliste ( ca 1500) falls jemand ein portal plant oder so...

mfg