Office: (Office 2013) VBA: Userform - KW bestimmen - Wert filtern - Werte zählen - Werte eintragen

Hallo zusammen,

ich hoffe ihr könnt mir bei meinem Problem helfen.

Es geht darum, dass Mitarbeiter in der Produktion einen Eintrag in eine Excel Userform tätigen, um Fehler zu erfassen.
Dort sind Dropdown-Listen vorbereitet, eine Datumsauswahl und zuletzt müssen sie selbständig die Artikelnummer eingeben.

Es existieren also 7 Baugruppen, 10 Fehlerarten und 2 Fehlerorte.

Die Excel-Userform:
Fertig. Aber wie kann ich die Kalenderwoche in einer weiteren Spalte automatisch anzeigen lassen? Das Datum steht ja schon in einer vorherigen Spalte.

Die Daten werden also in die entsprechende Sammelliste eingetragen.

Jetzt zur Auswertung:
Ich möchte, dass für eine bestimmte Kalenderwoche (per Eingabe) die Arbeitsmappe "Vorlage" mit der entsprechenden Häufigkeit der Fehler einer bestimmten Baugruppe+Fehlerart+Fehlerort ausgefüllt wird.

Also beispielsweise taucht die Baugruppe 3 mit dem Fehler 3 unten in der Kalenderwoche 23 zweimal auf.

Einzelne Code-Segmente habe ich schon erarbeitet, allerdings fehlt mir der Zusammenhang.


Filtern von Daten

Code:

Sub Filter1()

 Dim Eingabe As String

 Eingabe = InputBox("Geben Sie die KW ein.")

 Sheets("Daten").UsedRange.AutoFilter Field:=6, Criteria1:="=" & Eingabe
 Sheets("Daten").UsedRange.AutoFilter Field:=1, Criteria1:="F3"
 Sheets("Daten").UsedRange.AutoFilter Field:=2, Criteria1:="Fehler3"
 Sheets("Daten").UsedRange.AutoFilter Field:=3, Criteria1:="oben"

Zählen der gefilterten Daten, und Eintrag in das Feld Daten.

Code:

Sub x()
   Dim lngLastRow As Long
   Dim intLastColumn As Integer
   
   With Worksheets("Daten")
      lngLastRow = IIf(Len(.Cells(.Rows.Count, 1)), .Rows.Count, .Cells(.Rows.Count, 1).End(xlUp).Row)
   End With
   Worksheets("Vorlage").Range("D8").Value = lngLastRow - 1
End Sub

Reset des Filters

Code:

Sub Reset_Autofilter()
With Daten
.ShowAllData
End With
End Sub

Erstellen einer neuen Arbeitsmappe

Code:

Sub Create_wks()
    Worksheets("Vorlage").Copy before:=Worksheets("Daten")
    ActiveSheet.Name = "Kalenderwoche " & Worksheets.Count - 2
End Sub

Ich brauche eure Hilfe also bei:
1. Wie trage ich die Kalenderwoche ausgehend vom Datum in Spalte D mittels Makro in Spalte F ein?
2. Was muss ich tun, damit Excel nach der Eingabe der KW ein neues Blatt mit der Vorlage erstellt und im alten Arbeitsblatt die einzelnen Kombinationsmöglichkeiten durchläuft (Beispiel: F1&Fehler1&oben, F1&Fehler1&unten,...) und die Anzahl auf dieses neue Blatt einträgt?

Freue mich auf eure Unterstützung!

Viele Grüße

Jan


Den Anhang Excel_Problem.xlsm betrachten



PS: Diese Frage habe ich auch hier gestellt.
http://www.office-fragen.de/index.php?topic=39458.0

 

Hola,

verlinkst du bitte deine Beiträge in den verschiedenen Foren untereinander?
Danke.

Gruß,
steve1da