Suchfeld mit Textfenster in eine Dynamische Tabelle erstellen

[Frogger1986]

Schau dir mal Zählewenns() an.. einfach dahinter und dann einlesen in die Listbox oder Textbox ect.. wtfe..

[Pirat2015]

ich Kriegs nicht hin, kann jemand code eintragen.

Vielen Dank

[schauan]

Hallo Pirat,

was bekommst Du nicht hin? Ich hab jetzt schon etwas den Faden verloren … Der Hinweis von Frogger war ja eine Funktion, eventuell sollst Du die im Tabellenblatt direkt verwenden und nicht im code?

[Pirat2015]

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

[schauan]

Hallo Pirat,

dann meinte Frogger bestimmt etwas in der Art:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C
1	12. Jan	Materia1	1
2	12. Jan	Materia2	2
3	13. Jan	Materia3	1
4	14. Jan	Materia4	1
5	14. Jan	Materia5	2
6	14. Jan	Materia6	3
7	15. Jan	Materia7	1

Zelle	Formel
C1	=ZÄHLENWENN($A$1:A1;A1)
C2	=ZÄHLENWENN($A$1:A2;A2)
C3	=ZÄHLENWENN($A$1:A3;A3)
C4	=ZÄHLENWENN($A$1:A4;A4)
C5	=ZÄHLENWENN($A$1:A5;A5)
C6	=ZÄHLENWENN($A$1:A6;A6)
C7	=ZÄHLENWENN($A$1:A7;A7)

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Du könntest die Spalte C auch per Code mit der Formel füllen und anschließend mit Kopieren und Werte einfügen die Formeln entfernen, auch im Makro.

[Pirat2015]

das Problem ist es kann sein, das am jetzt am 19.11.2018 ---> bei eine Anfrage 5 Materialien angefordert werden, jede material ist ja in der separaten Zeile.
Mit der Formel in Degenblatt bekomme ich halt bei jeder Position laufende Nummer

[
Bild bitte so als Datei hochladen: Klick mich!
]

Aber wenn ich alle Materialien auf einmal anfordere soll bei allen 5 eine 1 erscheinen

[schauan]

Hallöchen,

dann musst Du aber irgendwo eine andere Spalte haben, anhand der man verschiedene Anforderungen auseinander halten kann, z.B. eine Bestellnummer o.ä.?

[Pirat2015]

die Anforderung wird aus der listbox erstellt --> in der Listbox kann ich entweder benötigtes Material markieren oder alles was angezeigt wird ausgeben, mehr Gemeinsamkeiten gibt es nicht.
Ich dachte, daß bei der Ausgabe der Daten, gleich mit den Datum, die Aufgaben gezählt werden könne, sprich wie of am tag x das CommandButton benutzt wurde und diese ergebinis in Collums x anzeigen lassen.

Kann man für sowas code erstellen?

[schauan]

Hallöchen,

dann könntest Du vor der Eintragung / der Schleife schauen, was in der Nummernspalte das Maximum ist, zählst 1 dazu und trägst das Ergebnis dann innerhalb der Schleife in die Zellen ein.

Das maximum z.B. der Spalte c würdest Du so rausbekommen:

WorksheetFunction.Max(xBlatt.Range("c:c"))

[Pirat2015]

das verstehe ich nicht ganz, sorry