VBA, Datum UF mit Tabelle vergleichen und Daten schreiben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub TextBox1_Change() Dim iZeile& ' Das ist deine Zeilennummer in der das Datum der Textbox in Spalte 5 steht With Tabelle1 For i = 4 To 413 If CDate(TextBox1) = .Cells(i, 5) Then iZeile = i Next i End Sub

@Uwe

Vielen Dank, die sieht schon richtig gut aus. Ich habe noch die Combobox1 für die Spalte G mit eingefügt, damit auch die tatsächliche Schicht abgerechnet wird.

Private Sub CommandButton1_Click()

    With Tabelle1

        .Cells(iZeile, 7) = ComboBox1

        .Cells(iZeile, 11) = ComboBox2

        .Cells(iZeile, 13) = ComboBox3

    End With

End Sub

Dann die Fragen...

Kann in die ComboBox2 und ComboBox3 die zur ComboBox1 angegebene Schicht die Zeiten aus der Tabelle "Schichten" übernommen werden, welche dann händisch korrigiert werden können? Bei der Bahn gibt es keine Dienste mit 00:00, 00:05, 00:10 usw. ;-)

Nach dem Eintrag der Daten müsste wahrscheinlich nochmal die

Call UserForm_Initialize

eingefügt werden oder ein anderes, damit dann automatisch die "neue" Schicht in der Übersicht zu sehen ist?

Und die letzte Frage..... Wenn die "neue" Schicht (z.B. 8912) noch nicht vorhanden ist in der Tabelle "Schichten", soll eine MsgBox öffnen mit dem Inhalt:"Du musst die Schicht erst neu anlegen!" mit der Verlinkung zu einer anderen UF und dann UF "FPLO" beenden.

Ich weiß, dass hört sich viel an, aber ich bin jetzt schon so weit, da möchte ich den Rest, den schwierigsten Teil (für mich zumindest) auch noch hinbekommen.

DANKESCHÖN

Gruß Ole

@Jan

Ich kenne mich noch nicht ganz so gut aus hier, daher bitte ich dies zu entschuldigen. Da habe ich aber ganz schön was entfacht zwischen Dir und Charly, sorry.
Leider kann ich nicht in diesem Thread antworten, daher tue ich es gerade eben hier. Ich hoffe es stört nicht.

Also die genannte Datei 163034 ist tatsächlich noch nicht das, was das letzte Ergebnis sein soll. Ein Beispiel: Ich, Olaf, nehme das Programm und bekomme den z.B. 8 Wochen Dienstplan. Dann steht dieser Dienstplan NUR FÜR MICH, (am Beispiel beginnend mit Woche 5 aus deiner 163034) also
1.1.2024 = 7005
2.1.2024 = 7001
3.1.2024 = 7002
4.1.1.2024 = 7003
5.1.2024 = Ruhe
6.1.2024 = 7601
7.1.2024 = 7702
8.1.2024 = 7006
9.1.2024 = Ruhe usw.

Wie Ihr das meint mit dem Startdatum, weiß ich gerade nicht. Ich habe das Programm immer für genau 1 Jahr beginnend zum 1.1.20XX. Da das Jahr 2024 zufällig mit einem Montag beginnt, ist es hier nicht aufgefallen, wenn ich sage, dass ich in der Woche 5 bin. Beginnt der 1.1. mitten in der Woche müsste man tatsächlich noch die Möglichkeit haben, Woche und Tag zu benennen. Deine Erste Tabelle 162901 ist die, welche ich zu meiner Bearbeitung eingebracht habe. Dazu müsste jetzt dann noch der Tag angegeben werden.

Zum aktuellen Problem:

Jetzt habe ich zu deiner neuen Datei folgende Fragen: Register "2024"
A) Sehe ich das richtig das nur die Spalten O & P per Hand mit X ausgefüllt werden?? Oder werden noch mehr Spalten per Hand ausgefüllt, wenn ja welche?
O, P und Q sollen ebenfalls aus entsprechenden jeweils anderer UF mit Kontrollkästchen o.ä. markiert und dann übernommen werden, da bei Urlaub, Krank und Wochenfeiertage die Stundenabrechnung anders berechnet wird. In V, W und X kommen dann auch noch 3 weitere Daten dazu, welche aus einer UF ausgelesen und dem Datum zugeordnet in derselben Zeile geschrieben werden

B) Die Spalte F soll aus Spalte Z befüllt werden richtig?
Die Spalte G = Spalte F. Die Spalte Z ist versehentlich dort reingerutscht, bitte ignorieren. Die Spalte wird dann NUR durch eine in der UF "FPLO" eingetragene Schicht ersetzt.

C) Was soll in die Spalten G bis N genau rein kommen und von wo sollen diese mit was befüllt werden??
Die Spalten H und J werden automatisch mit Dienstbeginn und Dienstende befüllt. Die Spalten K und M und N werden durch die UF "FPLO" entsprechend befüllt. Die TextBox für Spalte N ist noch nicht in der UF drinnen.

D) Was ist mit Spalte Q wie soll diese behandelt werden?
O, P und Q sollen ebenfalls aus entsprechenden jeweils anderer UF mit Kontrollkästchen o.ä. markiert und dann übernommen werden, da bei Urlaub, Krank und Wochenfeiertage die Stundenabrechnung anders berechnet wird.

Danke für die schon jetzt investierten Mühen!

VG Ole

Beliebteste Forumthreads (12 Monate)

VBA, Datum UF mit Tabelle vergleichen und Daten schreiben

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA, Datum UF mit Tabelle vergleichen und Daten schreiben

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread