|
Hallo,
ich stehe zur Zeit vor einem Problem und finde aber auch keine Lösung.
Ich bin im Catering tätig und habe mir nun ein Sheet Namens Wochenübesicht erstellt.
In dieser Wochenübersicht stehen pro Tag der Name der Veranstaltung + die Personenzahl (welche mir als ID dient).
Nun vergleicht er in den Spalten die Werte der einzelnen Zellen und gibt mir dann bei einer Übereinstimmung "Zander" aus.
Dieses Ergebnis wird in einem anderen Sheet namens Chafingplan (A9) dargestellt.
Nun möchte ich einmal das er mir beim Vergleichen auch alle anderen übereinstimmungen in die selbe Zelle als Fließtext schreibt (darf auch gern durch ein Komma o.ä. getrennt sein).
Heißt für das folgende Beispiel, dass bei Schulze in A9 "Zander, Steinbeißer, Seeteufel" (o.ä.) stehen soll.
Zur visuellen Darstellung gerne noch ein paar Bilder von den Sheets :)
Dies ist mein Chafingplan:
http://home.arcor.de/bloodies/1.jpg
Das die Wochenübersicht:
http://home.arcor.de/bloodies/2.jpg
Und das ist mein bisheriger Code:
Sub chafing()
Dim wü As Worksheet
Dim cp As Worksheet
Dim spalte As Integer
Dim idt As Integer
Set wü = Worksheets("Wochenübersicht")
Set cp = Worksheets("Chafingplan")
For idt = 6 To 14
For spalte = 16 To 20
For i = 4 To 10
If wü.Cells(spalte, i).Value2 = wü.Cells(idt, 4).Value2 Then
cp.Cells(9, 1) = wü.Cells(spalte, 3)
End If
Next i
Next spalte
Next idt
End Sub
Viel Spaß beim reinfummel und ich hoffe mir kann jemand helfen.
Gruß
Flo
|