Office: (Office 2019) Tagesleistung Auswertung VBA und PQ

Liebe Forum Mitglieder,

ich habe wieder ein neues Projekt gestartet. Zum Einsatz kommt ein Teil VBA für die Datenerfassung und für die Gesamtauswertung ist PQ zum Einsatz gekommen. Aber nun bin ich mit meinem Latein am Ende und würde dringend Hilfe von den Spezialsten benötigen.

- Folgende Sachen stecke ich noch fest:

- Den Eintrag in die Arbeitszeiten mit Enter übernehmen
- Und das die PQ-Auswertung mehrere gleiche Produkte an einem Tag
zusammen rechnet auf den Tagesdurchschnitt.
Im Anhang findet ihr meine Versuche, um das Projekt umzusetzen.

Würde mich freuen, wenn mich jemand unterstützen würde.

LG vom Wolf

:)

 

Hallo,

für dich mag das klar sein ... für uns nicht.

Von wo genau und wohin überhaupt, willst du etwas mit der Enter-Taste übernehmen ?

Sabina

 

Hallo Wolf,

ich habe dir übrigens zu der anderen Frage schon 2-Mal geantwortet. Scheint aber bei dir nicht anzukommen.

 

Hallo Sabrina,

es sollen die Werte Tabelle Stoppuhr, Produkt, Start,Ende in die Tabelle (Zeiterfassung)übertragen werden.

Es kann pro Tag öfter ein Eintrag erfolgen! z.B. 5:00 - 8:00 Muster1 3g dann 8:00 - 12:00 Muster2 5g und noch 13:00 - 16:00 Muster3 9g

Ich denke es wäre wohl besser, wenn es mit einem Button lösen würde, da die Mitarbeiter oft die Entertaste drücken vergessen!

Hoffe jetzt ist mehr Klarheit?

LG Wolf

 

Hallo WS-53,

was meinst du damit, dass du mir schon zweimal geschrieben hast und ich würde es immer noch nicht verstehen?

Du hast mir geschrieben, dass mir im Forum besser geholfen werden kann und
auch andere User was lernen können.

Und jetzt verstehe ich leider nicht, was ich falsch gemacht habe!

LG Wolf

 

Hallo Wolf,

Da scheint es ja doch bei dir angekommen zu sein. Dann musst du aber noch einmal genau lesen was isch geschrieben habe. Und das gewünschte hatte ich dir auch mitgeteilt!

 

Ich denke einmal du wolltest mir sagen, dass ich nur Fragen stellen solle.

LG Wolf


@ Die Frage wäre, wie schaffe ich zwei Bedingungen zu definieren?

Das PQ die Arbeitszeit in Abhängigkeit vom Produkt berechnet.

 

hallo miteinander,

habe jetzt einen Teilweise funktionierenden Code für das übertragen von Tabelle1 in Tabelle4 gemacht.

Nun, müsste der Teil mit der Prüfung, ob die Charge schon vorhanden, dann soll nichts kopiert werden noch funktionieren.

Könnte nicht bitte jemand einmal drüber schauen?


LG Wolf

 

Hallo miteinander,

eine Findmethode habe ich jetzt auch noch gefunden, aber ob ich die für meine Aufgabe verwenden kann, da bin ich leider überfragt.

Kann man diesen Code für mein Vorhaben verwenden?

Danke und Gruß
Wolf

PHP:

         Private Sub CommandButton3_Click()
Dim Eingang As Worksheet, ZP As Worksheet
Dim y As Long, rngGefunden As Range, bolGefunden As Boolean
Dim Letzte As Long, strErste As String

Set Eingang = Worksheets("Rechnungseingang")
Set ZP = Worksheets("Zahlungsplanung")
Letzte = ZP.UsedRange.SpecialCells(xlCellTypeLastCell).Row

For y = 2 To Eingang.Range("A65536").End(xlUp).Row
bolGefunden = False
Set rngGefunden = ZP.Range("B:B").Find(Eingang.Cells(y, 3).Value, , _
xlValues, xlWhole, xlByRows, xlNext)
If Not rngGefunden Is Nothing Then
strErste = rngGefunden.Address
Do
If ZP.Cells(rngGefunden.Row, 3) = Eingang.Cells(y, 7) Then And .....
bolGefunden = True
Exit Do
End If
Set rngGefunden = ZP.Range("B:B").FindNext(rngGefunden)
Loop While rngGefunden.Address <> strErste
End If
If bolGefunden = False Then
ZP.Cells(Letzte + 1, 2) = Eingang.Cells(y, 3)
ZP.Cells(Letzte + 1, 3) = Eingang.Cells(y, 7)
Letzte = Letzte + 1
End If
Next y
End Sub


 

Niemand eine Idee?

 

Hallo miteinander,

jetzt habe ich viel probiert, aber ich bekomme einen Laufzeitfehler:

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

PHP:

         Option Explicit

Private Sub CommandButton1_Click()
Dim EintragCheck1 As Variant
Dim EintragCheck2 As Variant
Dim I As Integer
Dim Zeile As Long
Dim datDateTime As Date
EintragCheck1 = Sheets("1").Cells(4, 7).Value

Application.ScreenUpdating = False
Dim leereZeile

Dim wksOrig As Worksheet
Dim wksStore As Worksheet
Dim lngLastRow As Long



Set wksOrig = Worksheets("1")
Set wksStore = Worksheets("2")

With wksStore

lngLastRow = IIf(.Cells(Rows.Count, 1) = "", .Cells(Rows.Count, 1).End(xlUp).Row + 1, Rows.Count)
.Cells(lngLastRow, 1) = Format(Date, "dddd")
.Cells(lngLastRow, 2) = Format(Date, "YYMMDD")
.Cells(lngLastRow, 3) = Format(Time, "hh:mm")
.Cells(lngLastRow, 6) = wksOrig.Range("D5")
.Cells(lngLastRow, 7) = wksOrig.Range("D6")
.Cells(lngLastRow, 8) = wksOrig.Range("D7")
.Cells(lngLastRow, 9) = wksOrig.Range("D8")
.Cells(lngLastRow, 4) = Format(Cells(11, 4), "h:mm")
.Cells(lngLastRow, 5) = Format(Cells(12, 4), "h:mm")

End With


'Set wksStore = Nothing
'Set wksOrig = Nothing


Sheets("2").Activate
leereZeile = Sheets("2").Cells(Rows.Count, 1).End(xlUp).Row + 1
For I = 1 To Sheets("2").Cells(Rows.Count, 1).End(xlUp).Row
EintragCheck2 = Sheets("2").Cells(I, 1).Value
If EintragCheck1 = EintragCheck2 Then
MsgBox "Eintrag schon vorhanden"
Exit Sub
Else
End If
Next
Sheets("2").Range("A5:A" & leereZeile).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

End Sub


 

Hi,

Sheets("1")....

Sind die Sheets bzw Worksheets wirklich mit Nummern benannt oder meint Dein Code Sheets(1) ?

 

Hallo Mase,

ich habe dir der Einfachheit mein Beispiel angehängt.


Danke das du einmal drüber schaust!

 

Schau mal rein, ob es so sein soll.

Hinweis:
Viele Dinge brauchst Du nicht; habe ich auskommentiert.
Die Prüfung, ob Charge bereits vorhanden, solltest Du, nach meinem Empfinden, natürlich vor dem Eintragen durchlaufen haben, ansonsten müsstest den 'Datensatz' ja wieder löschen ... oder Ich hab es falsch verstanden...

 

Hallo Mase,

danke einmal für deine Anpassungen. Ich habe natürlich gleich probiert und habe festgestellt, die Msgbox schreibt, dass der Eintrag schon vorhanden ist, aber wenn ich mit Ok bestätige, dann wird der Eintrag trotzdem übertragen.

Eigentlich wie du richtig schreibst, sollte überprüft werden, ob die Charge schon bestellt, dann sollte die Meldung kommen, schon vorhanden und dann sollte nichts übertragen werden in die Tabelle(2).

Vielleicht kannst du dir das nochmal anschauen?