Hallo Schauan,
ich suche doch meine Daten in in der Tabelle mit hilfe von Makro und bekomme die Daten in eine ListBox angezeigt, dann gebe ich die Daten per CommandButton in eine neue Exceltabelle aus, bei der Ausgabe erschein jetzt bereits das Ausgabedatum aber wenn es an einen Tag mehrer Anforderungen gibt dann ist es sehr unübersichtlich, deswegen will ich das parallel zum Datum auch eine Fortlaufede nummer erschein bezogen aber auf das datum:
BSP:
Bsp. Am 19.11.2018 werden 3 Unterschiedlichen Material Anforderungen gestellt
Anforderung 1 --> 5 Materialien
Anforderung 2 --> 10 Materialien
Anforderung 3 --> 15 Materialien
Dann kommt in Zelle 54 bei alle Materialien 16.11.2018 und z.b Zelle 55
bei 5 Materialien 1
bei 10 Materialien 2
bei 15 Materialien 3
also einfach fortlaufende Nummer, wenn jetzt am 20.11.2018 neue Anforderungen kommen, dann kommt als Datum 20.11.2018 aber die Fortlaufende Nummer beginnt von vorne
Bsp. Am 20.11.2018 werden 3 Unterschiedlichen Material Anforderungen gestellt
Anforderung 1 --> 5 Materialien
Anforderung 2 --> 10 Materialien
Anforderung 3 --> 15 Materialien
Dann kommt in Zelle 54 bei alle Materialien 20.11.2018 und z.b Zelle 55
bei 5 Materialien 1
bei 10 Materialien 2
bei 15 Materialien 3
Ich hoffe es ist verständlich
hier noch der Code für CommandButton
Code:
Dim iCounter, xCounter As Long
Set wkb1 = ThisWorkbook
Set wkb2 = Workbooks.Add(1)
Set wks2 = wkb2.Sheets(1)
wkb1.Activate
For iCounter = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iCounter) And xOpt = 1 Or xOpt = 2 Then
Set XBlatt = Sheets(ListBox1.List(iCounter, 0))
XZeile = Range(ListBox1.List(iCounter, 1)).Row
XBlatt.Cells(XZeile, 54).Value = Date
xCounter = xCounter + 1
XBlatt.Range("G" & XZeile & ",H" & XZeile & ",K" & XZeile & ",R" & XZeile & ",S" & XZeile & ",T" & XZeile & ",AJ" & XZeile & ",AK" & XZeile & ",AL" & XZeile & ",AU" & XZeile & ",AV" & XZeile & "").Copy wks2.Cells(xCounter, 1)
End If
Next iCounter
wks2.Activate