Tabellendaten "zusammentragen"

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Bambi, (oder real?)
Du schreibst:
Blatt1-spalte 1: datum
Blatt1-spalte 2: ArtikelNr
Blatt1-spalte 3: SerienNr
Blatt1-spalte 4: Kosten
Blatt2-spalte x:
Blatt2-spalte x:
Blatt3 = Ergebnisblatt.
Sicher haben alle drei Blätter Spaltenüberschriften, die korrespondieren.
Es wäre hilfreich diese, mit Blatt/Spalte aufzuführen- speziell mit Hinsicht auf das neue Blatt 3.
(z.B. in einer Beispieldatei).
Zusätzlich ....
1. Wie werden Seriennummern zusammengefasst?
Gibt es die gleiche SerienNr in mehreren Zeilen, ODER sind ein Teil der SerienNr. der "Paketbegriff"?
(z.B. fasse auf Basis der ersten beiden Stellen einer SerienNr zusammen?)
2. Blatt 2 gibt Anfangs- und Enddatum vor.
Wo findet Mann in Blatt-1 das Datum, um zu wissen, dass diese Zeile zeitlich dazugehört, oder weggelassen werden muss? (Ohne Referenz zu Blatt 1 ist keine Datumsabgrenzung möglich!)
3. aufgelaufene Kosten pro Gerät
Um die aufgelaufenen Kosten pro Zeitraum pro Gerät festhalten zu können brauche Mann 2 Information.
a) Wie kann Mann ein Gerät - in Form von Seriennummern "greifen"?
(Gruppierung von SerienNrn ergibt ein Gerät?)
b) Wo findet Mann die zeitliche Abgrenzung in Relation zum Gerät/SerienNr?
(Es muss die Information existieren mit SerienNr1 / von datum
SerienNR1 / bis datum
Ansonsten lasse ich mal den anderen XLS-Spezialisten den Vortritt, meine Zeit ist derzeit sehr begrenzt.
Gruss,
Firmus

Sub Bambi() Dim Wks1 As Worksheet, Wks2 As Worksheet Dim Bereich() Dim LngLetzteZeile As Long, LngZeile As Long, LngCounter As Long Dim Col1 As New Collection Set Wks1 = Sheets(1) Set Wks2 = Sheets(3) With Wks1 LngLetzteZeile = .Cells(.Rows.Count, 1).End(xlUp).Row End With '***** Seriennummern in Array einlesen ***** ReDim Bereich(2 To LngLetzteZeile) For LngZeile = 2 To LngLetzteZeile Bereich(LngZeile) = Wks1.Cells(LngZeile, 2) Next '***** Doppelte Seriennummern entfernen ***** On Error Resume Next For LngCounter = 1 To UBound(Bereich) Col1.Add Bereich(LngCounter), CStr(Bereich(LngCounter)) Next On Error GoTo 0 '***** Tabelle 3 mit den Sriennummern befüllen ***** '***** Anschliessend die Arrayformel in die ***** '***** Nachbarspalte eintragen ***** '***** Danach die Formeln durch Werte ersetzen ***** For LngCounter = 1 To Col1.Count Wks2.Cells(LngCounter + 1, 1) = Col1(LngCounter) Wks2.Cells(LngCounter + 1, 2).FormulaArray = "=SUM(IF((Tabelle1!R2C[-1]:R100C[-1]>=Tabelle2! _ R3C)*(Tabelle1!R2C[-1]:R100C[-1]

Hi Daniel
Deine Vermutung "...Nicks scheinen hier nicht sehr beliebt zu sein ;-)..." ist nicht richtig.
Wenn du dir mal die Liste der Fragen durchliest, stellst du fest, dass jeweils neben den Fragen oft die Nicks stehen, z Bsp Guppiy, rieckmann, mumpel, Nepumuk usw.
Wenn du nun aber einige dieser Fragen öffnest + sie dir im Detail anschaust, wirst du feststellen, dass so ziemlich alle Fragenden/Anworter ihre Beiträge mit ihrem Realnamen beenden.
(bitte nun nicht eine Diskussion beginnen, woher ich denn wissen will, obs der echte Realname ist ;-) )
Was ich aber insgesamt sagen möchte, ist, dass wir, die Antwortenden, halt keine Maschinen, sondern wie du Menschen sind.
Und wenn dann Beiträge erscheinen, wo der Ersteller nicht wenigstens seinen Realnamen (den echten ;-) ) anzeigt, oder wenn auch nur zu Beginn jeden Beitrags ein Hallo fehlt, oder so, dann mögen wir das halt nicht, und weisen immer wieder darauf hin.
Du als Fragenden erhältst zumindest in diesem Forum hier super kompetente und sehr oft sehr schnelle Antwortenden.
Auf jeden Fall aber nutzt jeder Fragender unser Wissen + unsere (Frei)zeit.
Als Dank ist doch dein Realname doch eher nur ein kleiner Preis, oder? :-)
Hoffe, du "verlässt" dieses Forum nicht gleich wieder.
Denn, glaube mir, zumindest ich kenne kein besseres Ecxel-Forum.
Ich habe zu 99% mit Hilfe dieses Forums Excel (kennen)gelernt.
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

26
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellendaten "zusammentragen"

26 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

26
Beiträge zum Forumthread

Beiträge zu diesem Forumthread