Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1776to1780
1776to1780
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumsbereich mit UserForm Auswählen

Forumthread: Datumsbereich mit UserForm Auswählen

Datumsbereich mit UserForm Auswählen
01.09.2020 11:58:58
Holger
Guten Morgen,
ich habe ein für mich großes Problem.
Ich möchte über eine UserForm
einen Mitarbeiter auswählen dann einen Zeitraum auswählen.
In diesem Zeitraum möchte ich an Arbeitstagen Urlaub (U) bzw. Krank (K) oder Überstunden (ÜB) abfeiern
eintragen. Es darf aber kein Sonntag und auch Feiertag genommen werden. (Ist ja eigentlich logisch)
Da wir Samstags auch arbeiten ist Samstag ein ganznormaler Arbeitstag.
Die UserForm mit den entsprechenden Felder habe ich schon erstellt, nur der Code der die eingaben ins Blatt bringt überfordert meine Kenntnisse.
Eine Beispiel Datei zum besseren verständniss habe ich hochgeladen.
https://www.herber.de/bbs/user/139966.xlsm
Vielen Dank
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datumsbereich mit UserForm Auswählen
01.09.2020 12:29:53
Rudi
als Ansatz: 
Sub aaaa()
For dasDatum = vonDatum To bisDatum
If dasDatum Mod 7  1 Then  'kein Sonntag
If Not istFeiertag(dasDatum) Then
'eintragen
End If
End If
Next d
End Sub
Function istFeiertag(datum) As Boolean
Dim d As Integer, iJahr As Integer, OSo As Date
iJahr = Year(datum)
d = (((255 - 11 * (iJahr Mod 19)) - 21) Mod 30) + 21
OSo = DateSerial(iJahr, 3, 1) + d + (d > 48) + 6 - ((iJahr + iJahr \ 4 + d + (d > 48) + 1)  _
Mod 7)
Select Case datum
Case OSo - 2, _
OSo + 1, _
OSo + 39, _
OSo + 50, _
OSo + 60, _
DateSerial(iJahr, 1, 1), _
DateSerial(iJahr, 5, 1), _
DateSerial(iJahr, 10, 3), _
DateSerial(iJahr, 11, 1), _
DateSerial(iJahr, 12, 25), _
DateSerial(iJahr, 12, 26)
istFeiertag = True
End Select
'Karfreitag=Ostersonntag-2
'Ostermontag=Ostersonntag+1
'Chr.Himmelfahrt=Ostersonntag+39
'Pfingstmontag=Ostersonntag+50
'Fronleichnam=Ostersonntag+60
End Function

Gruß
Rudi
Anzeige
AW: Datumsbereich mit UserForm Auswählen
01.09.2020 12:37:41
Holger
Hi Rudi Maintaire
vielen dank für deine Mühe, leider weiß ich nicht wie ich den Code in meine UserForm einfügen kann.
Könntest du es mir erklären.
Vielen dank noch mal
AW: Datumsbereich mit UserForm Auswählen
01.09.2020 16:08:45
Holger
Leider bin ich noch nicht weiter gekommen,
da reichen meine Kenntnisse nicht :-)
AW: Datumsbereich mit UserForm Auswählen
01.09.2020 16:42:45
Rudi
in der UF: 
Private Sub CommandButton1_Click()
Dim lngColumn As Long, lngRow As Long
lngColumn = ComboBox1.ListIndex + 25
Dim dasDatum As Date, vonDatum As Date, bisDatum As Date
lngRow = ComboBox2.ListIndex + 5
vonDatum = ComboBox2
bisDatum = ComboBox3
For dasDatum = vonDatum To bisDatum
If dasDatum Mod 7  1 Then
If Not istFeiertag(dasDatum) Then
With Sheets("schichten").Cells(lngRow, lngColumn)
Select Case ComboBox4
Case "U", "ÜB": If LCase(.Value)  "fs" Then .Value = ComboBox4
Case "K": .Value = "K"
End Select
End With
End If
End If
lngRow = lngRow + 1
Next dasDatum
End Sub

In ein Modul: 
Function istFeiertag(datum) As Boolean
Dim d As Integer, iJahr As Integer, OSo As Date
iJahr = Year(datum)
d = (((255 - 11 * (iJahr Mod 19)) - 21) Mod 30) + 21
OSo = DateSerial(iJahr, 3, 1) + d + (d > 48) + 6 - ((iJahr + iJahr \ 4 + d + (d > 48) + 1)  _
Mod 7)
Select Case datum
Case OSo - 2, _
OSo + 1, _
OSo + 39, _
OSo + 50, _
OSo + 60, _
DateSerial(iJahr, 1, 1), _
DateSerial(iJahr, 5, 1), _
DateSerial(iJahr, 10, 3), _
DateSerial(iJahr, 11, 1), _
DateSerial(iJahr, 12, 25), _
DateSerial(iJahr, 12, 26)
istFeiertag = True
End Select
'Karfreitag=Ostersonntag-2
'Ostermontag=Ostersonntag+1
'Chr.Himmelfahrt=Ostersonntag+39
'Pfingstmontag=Ostersonntag+50
'Fronleichnam=Ostersonntag+60
End Function

Anzeige
AW: Datumsbereich mit UserForm Auswählen
01.09.2020 19:11:44
Holger
Hi Rudi,
es läuft super.
vielen vielen Dank für dein Mühe.
;

Forumthreads zu verwandten Themen

DropDown Auswahl in Zelle
Lars

Hallo,
ich würde gerne in einer Zelle eine DropDown-Auswahl zur verfügung stellen, wenn die Zelle aktiviert wird. Die Liste soll enthalten "Wartung", "Stillstand" sowie ein Feld zur Freitexteingabe.
Irgendwie stehe ich gerade vor einem Rätsel.
kann mir jemand helfen?
Danke
G...
01.10.2008 13:01:00
Thread-ID: 1013606
6 Beiträge
Kalender in Zelle
Yannick

Hallo zusammen !
Ich habe folgende Frage : ich möchte gerne eine komplette Spalte so formatieren, dass in jeder Zelle kein Wert händisch eingetragen werden kann, sondern nur über einen button o.ä. ein kleiner Kalender aufpoppt in dem ich ein frei gewähltes datum anklicken kann welches dann...
06.11.2008 10:00:26
Thread-ID: 1022172
8 Beiträge
Dropdown oder Combobox nur für eine Zelle
Lars

Hallo,
ich suche schon den ganzen Nachmittag nach einer Lösung für ein meiner Meinung nach ganz einfaches Problem. Ich möchte in einer Zelle manuell etwas eintragen können und gleichzeitig die möglichkeit
haben Begriffe aus einer Dropdown-Liste auswählen zu können.
Ich habe alle mög...
11.06.2009 20:25:53
Thread-ID: 1080838
4 Beiträge
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
Text aus Zelle in MsgBox einfügen.
Wolfgang

Hallo,
über eine Checkbox wird, sofern diese markiert wird, eine MsgBox angezeigt. Wie kann ich erreichen, dass aus einem Tabellenblatt "Steuerung" der Text aus Zelle E20 mit eingefügt werden kann?
MsgBox "Bitte folgende Hinweise beachten:"......... und dann der Text aus Zelle E20.
...
08.07.2009 21:08:52
Thread-ID: 1087280
5 Beiträge
Anzeige
VBA Zelle finden und einfügen
Einzel

Hallo,
ich hab mal wieder ein kleines VBA Problem
Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
15.07.2009 09:50:12
Thread-ID: 1088685
4 Beiträge
Anzeige
Zeitdifferenz in Zelle einfügen
Alina

Hallo zusammen,
ich habe mir in Excel eine Überstundentabelle gebastelt. Soweit funktioniert auch alles. Ich kann mir auch die Überstunden pro Tag in der Spalte G berechnen lassen. Berechnet wird das durch die Solleinzeit in Spalte F und der tatsächlichen Endzeit in Spalte D.
Nun möcht...
16.08.2009 00:06:36
Thread-ID: 1096190
12 Beiträge
Kalender mit Datum und Wochentag
bartl

hi,ich hoffe ihr könnt mir helfen,
ich brauche einen kalender,in dem folgende spalten vorhanden sind:
1.spalte:datum(sollte vom 08.09.09 bis 31.06.09 gehen)
2.spalte:wochentag
da gibt es bestimmt formeln,die das automatisch berechnen,oder?
ich habe leider mit excel keine ahn...
30.08.2009 22:06:44
Thread-ID: 1099493
3 Beiträge
Anzeige
Unter letzte Zelle Inhalt einfügen
Karsten

Hallo,
Ich möchte mittels Makrobefehl unter der letzten Zelle mit Inhalt in Spalte A, D, G, J und M 00:00:00 eintragen lassen. Allerdings nur bis Reihe 10.
Besten Dank für eure Hilfe.
Gruß
Karsten
11.09.2009 09:41:21
Thread-ID: 1101913
8 Beiträge
Anzeige
Formel in Zelle einfügen
Alexander

Hallo zusammen,
Sub test() Dim str As String str = "=WENN(Daten!$F$1='Tabelle1'!" & Cells(11, 5).Address & ";JAHR('Tabelle1'!" & Cells(18, 4) _ .Address & ")" End Sub wie kann ich die Formel in der Varialben str in eine Zelle einfügen? Oder kann ich die Formel auch direkt o...
13.10.2009 09:45:55
Thread-ID: 1109248
6 Beiträge
Bilder in Zelle einfügen wenn
Andre´

Hallo alle zusammen,
ich möchte für den Bereich C5:F10 Bilder einfügen (jeweils mittig in Zelle), in Abhängigkeit des Zellwertes.
Ist der Zellwert = 1 dann Bild1 von Tabelle "Bilder" einfügen
Ist der Zellwert = 2 dann Bild2 von Tabelle "Bilder" einfügen
Ist der Zellwert = 3 dann...
15.12.2009 09:51:03
Thread-ID: 1123961
5 Beiträge
Kalender in einer Zelle
Bernd

Hallo liebe Excelisten,
ich habe drei Zellen untereinander in die jeweils ein Datum aus einem Kalender eingetragen werden soll.
Dafür hatte ich das Steuerelement Kalender angedacht. Dazu muss ich aber drei mal den Kalender verwenden um über Linked Cell in die richtige Zelle zu schreiben...
15.12.2009 10:49:02
Thread-ID: 1123977
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige