Office: Kreuztabelle mit bedienung auf anderen Blatt werte übernehmen

Hallo zusammen,

ich würde es gerne von euch wissen bzw. das einer mir Zeigt wie ich das realisieren kann.
Ich habe seit einiger Zeit selber einiges ausprobiert was allerdings zur keiner Ergebnis geführt hat.

Aufgabe:
Es sind immer jeweils 11 Zeilen in Arbeitsblatt ("Quelle") für eine Gruppe deklariert (Essen1). Und Insagesammt sind 4 Gruppen (Essen1, Essen2, Essen3, Essen4) die zur eine Zeile auf ein anderes Blatt in reihe aufgestellt werden sollen.

Bedingung 1:
Suche Spalte A mit Text "Essen 1" dann suche in Spalte B mit Text "Code" und nehme den Wert von Spalte F

Bedingung 2:
Suche Spalte A mit Text "Essen 1" dann suche in Spalte B mit Text "Essen ID" und nehme den Wert von Spalte F

Bedingung 3:
Wenn Bedingung 1+2 vom Spalte F erfüllt werden dann schreibe den Wert von Spalte F (Kosten) in Tabelle ("Ziel") in Spalte G (Essen 1) und suche in Tabelle Liste mit Bedingung 1+2 und übernehme die C+D auf Tabelle ("Ziel") in der gleiche Zeile.

Im Anhang ist das Beispiel.

Für jede Hilfe bin ich dankbar

Gruß
Faca

:)

 

Hallo,

könnte man mit diesem Code weiter kommen?
Kann mir jemand bitte hier Helfen?

Sub a_1()
'Code für ein allgemeines Modul
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim lngZ As Long
Dim lngZZ As Long
Dim intS As Integer

Set wksQ = Worksheets("Quelle") 'Quellblatt
Set wksZ = Worksheets("Ziel") 'Zielblatt
Set wksV = Worksheets("Liste") 'Vergleichsliste

lngZZ = 2

With wksQ
For lngZ = 2 To .Range("A65536").End(xlUp).Row

'schreibe von Quelle F4 zur Ziel E2
wksZ.Cells(2, 5).Value = .Cells(4, 6).Value
'schreibe von Quelle F4 zur Ziel F2
wksZ.Cells(2, 6).Value = .Cells(9, 6).Value
'schreibe von Quelle F4 zur Ziel F3
wksZ.Cells(2, 7).Value = .Cells(3, 6).Value
'schreibe von Quelle F4 zur Ziel F3
wksZ.Cells(2, 3).Value = .Cells(2, 4).Value


lngZZ = lngZZ + 1
Next


End With

lngZ = Application.Match(Worksheets("Quelle").Range("F8"), Worksheets("Quelle").Columns("F"), 0)
If wksQ.Cells(9, 6).Value = wksV.Cells(2, 2).Value Then
wksV.Cells(2, 5).Copy
wksZ.Range("B2").PasteSpecial Paste:=xlPasteValues
wksV.Range("D2").Copy
wksZ.Range("D2").PasteSpecial Paste:=xlPasteValues

End If

End Sub

 

Hallo,
ich hatte mich gestern schon gefragt ob die Beschreibung jemand versteht. nachdem es noch keine Antwort gibt bin ich wohl nicht der einzige der hier Probleme hat.
Also das
"Und Insagesammt sind 4 Gruppen (Essen1, Essen2, Essen3, Essen4) die zur eine Zeile auf ein anderes Blatt in reihe aufgestellt werden sollen. " verstehe ich nicht, aber fangen wir vorne an.
"Bedingung 1:
Suche Spalte A mit Text "Essen 1" dann suche in Spalte B mit Text "Code" und nehme den Wert von Spalte F".
Warum Du das Bedingung nennst klären wir später. Ich schaue also in Spalte A nach "Essen 1". Das sind zunächst die Zeilen 2 - 12. In diesen Zeilen suche ich in Spalte B nach "Code", das finde ich in Zeile 4. Jetzt gehe ich in Zeile 4 in Spalte F und finde dort 9421.
Analog für Bedingung 2. ergibt VE1F23.
Dann verstehe ich nix mehr:
- warum sollten die "Bedingungen" nicht erfüllt sein? Bedeutet nicht erfüllt das entweder "Code" und/oder "Essen1" nicht gefunden werden?
- "Bedingung 3" bitte genauer erklären.
- soll jede der 11er Gruppen bis zum Ende er Datei durchsucht werden?

Bitte den Kode in die Datei einfügen und mit "Option Explicit" kompilieren, dann die neue Datei laden.
Gruss, Wilhelm

 

Servus Wilhelm,

ich habe mich Wahrscheinlich zu Kompliziert ausgedruckt.
Aber tatsächlich bekomme ich eine lange Liste die so aussieht:

- Jedes Essen hat genau 11 Zeilen.
- Diese 11 Zeilen ergeben dann wiederum ein Kosten für das Essen.
- Wenn alle 4 Essensgruppe (4x11 Zeilen) abgefragt werden dann soll das in neue Tabelle als einzigeszeile mit Art des Essen darstellen.
- Diese Liste hat Tausende Zeilen in dieser form

Essen1
Essen2
Essen3
Essen4
Essen1
Essen2
Essen3
Essen4
Essen1
Essen2
Essen3
Essen4
Essen1
Essen2
Essen3
Essen4
Essen1
Essen2
Essen3
Essen4
........

Ich danke dir schon mal. Ich hoffe ich konnte diesmal besser meinen wunsch darstellen.

Gruß
Faca

 

Hallo,
wenn Du meine Fragen nicht beantwortest bin ich raus.
Vielleicht kann jemand anders helfen.
Gruss, Wilhelm

 

Hallo Wilhelm,

tut mir leid das ich nicht Direkt auf Ihre gegenfragen geantwortet habe. Ich dachte ich habe mich im Antwort 4 detaillierter ausgedruckt.

Aber hier nochmal Antwort auf deine gegenfragen!

- warum sollten die "Bedingungen" nicht erfüllt sein? Bedeutet nicht erfüllt das entweder "Code" und/oder "Essen1" nicht gefunden werden?
Falls das "Code" oder "Essen ID" im Essen 1 nicht gefunden wird dann soll Essen 2+Essen 3+Essen 4 übersprungen werden und weiter suchen bei zeile 45

- "Bedingung 3" bitte genauer erklären.
wenn bei Essen 1 in Spalte F "code" und "Essen ID" werte gefunden werden dann die "Kosten" von Spalte F auf Tabelle "Ziel" Spalte Essen 1 kopieren

- soll jede der 11er Gruppen bis zum Ende er Datei durchsucht werden?
4 x 11er Gruppen bilden das Essen Art aus und vergeben einen Kundennummer. So soll die ganze Quelle abgearbeitet werden. ca. 10000 zeilen wären es

Können Sie mir hier Eventuell weiter Helfen?

 

Hallo,
ich habe schon etwas vorbereitet, brauche aber noch etwas Zeit.
Ich melde mich am Nachmittag wieder.
Gruss, Wilhelm

 

Hallo,
ich denke in der Tabelle stimmt etwas nicht.
Du nimmst von Essen 1 den Code und die Essen ID. Damit wird in der Liste gesucht. Die gefundenen Werte für Tischnummer, Art und Kunde werden auf die Seite Ziel kopiert.
Nun sind aber Code und Essen ID nicht bei allen 4 Essen gleich, siehe Essen 3.
Essen 1 Essen 2 Essen 3 Essen 4
Code 9421 9421 9421 9421
Essen ID VE1F23 VE1F23 VE1G23 VE1F23
Wenn man also mit Code und Essen ID von Essen 3 sucht dann findet man andere Werte für Tischnummer, Art und Kunde. Das kann doch nicht stimmen?
Gruss, Wilhelm

 

Halo H.Wihelm,

darf ich ihnen Privat Nachricht schreiben?

 

- es gibt mehrere Code's für einen Essen's ID.
- In der Tabelle "Quelle" sind die Code und Essen ID bei Essen 1 bzw. bei alle Essen immer gleich.
- Tischnummer ist nicht von der Bedeutung.
- Ich will die den Preis für jedes Essen bei entschlüsseln.
Code+Essen ID = Art
Art = Kosten für Essen1,Essen2,Essen3,Essen4

Ich hoffe ich kann ihnen das so schildern das sie mir Helfen können

PS! Ich habe die Tabelle erweitert.

 

Hallo,

ich könnte die Quelle von anderen Datenbank so geordnet bekommen.

Würde das besser sein?

 

Hallo,
ich habe mit der 1. Version weiter gearbeitet. Schau mal ob es so passt.
Gruss, Wilhelm

 

Hallo H.Wilhelm,

das ist genau das was ich wollte.

Haben Sie vielen Lieben Dank für Ihre Mühe

Gruß
Faca