Wochenkalender mit Eingabemaske

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Simon,
sogar klassisch, nur muss man um deren Einschränkungen wissen, was Filtern & Co betrifft. Ist das nicht erforderlich, kann man es durchaus so machen. Allerdings handelt es sich dabei eigentlich schon nahezu um ein KomplettProjekt und dafür muss einer auch Zeit und Lust haben. Deshalb von mir nur ein paar Hinweise zu deinen Anforderungen:
1. Finden der richtigen Zelle durch Datum und Uhrzeit.
Das sollte mit der WorksheetFunction .Match (Datum in Zeile 13 und Uhrzeit in Spalte 1), in .Index oder Cells eingesetzt, kein Problem sein.
2. Verbinden der Zellen basierend auf der Dauer (in meinem Beispiel zwei Zellen à 15 min)
Hier wäre die Dauer durch die ZeilenEinheit 15 min zu teilen (⇒x), um damit den Wert für das Resize der zu verbindenden Zellen zu erhalten, also zB eine Range-Variable anlegen und der mit Set die jeweils ermittelte Zelle aus Range("A13:S70") mit .Resize(x, 1) entsprd erweitert zuweisen und mit .Merge verbinden.
3. Eintragen der Informationen Vorname, Name und Kommentar (wenn Eingabe leer ist, dann soll Zelle leer bleiben)
Folglich zuerst Eingabe abfragen. Falls leer, könnten auch 1.-2. entfallen. Das Beenden der Eingabe in ein UF-Feld löst das jeweilige Exit-Ereignis aus. Hier wäre aber wohl eher das Click-Ereignis des OK-Buttons als Auslöser für den ganzen Vorgang gefragt. Die jeweiligen Inhalte sind dann in die dafür vorgesehenen Zellen zu übernehmen, KommentarText natürlich in die 1.Zelle des Hpt-Verbunds → ….Cells(1) = …
4. Verbinden der Zellen links (da möchte ich anschließend händisch dann den Status eintragen)
Das kann gleich mit unter 3. erledigt wdn, wobei hier VerbundZell-Range-Variable .Offset(0, -1) infrage käme.
5. Verbinden der Zellen rechts (da wird dann die Dauer nochmal ausgerechnet)
Ebenfalls unter 3. analog 4. mit .Offset(0, 1), wobei hier gleich die (Gesamt-)Dauer aus UF eingetragen wdn kann.
Viel Erfolg! Gruß, Luc :-?
PS: Es ist vielfach im Netz (auch in Diskussions- und zunehmend in FachForen) zu beobachten, dass dogmatisch-fanatische Vertreter verquerer Ansichten meinen, diese durch Beleidigung ihrer Gegner durchsetzen zu können. Das ist eine Schutzhaltung, um nicht ihre eigene Meinung hinterfragen zu müssen und ggf als die Deppen dazustehen, die sie eigentlich auch sind. Die Übernahme der Ansichten Anderer mag als Selbstentschuldigung dienen, ersetzt aber niemals eigenes Denken, gegründet auf solides und belastbares Wissen. Halbwissen kann dagg eine gefährliche Ignoranz ggüber anderer Erfahrung bewirken und zur Blockade weitergehender Prüfung führen. So etwas muss sich niemand, der es besser weiß, von einem Ignoranten antun lassen.

Hallo
@Luc - Herzlichen Dank an dich als Profi, denn ich bin bestenfalls ein Amateur Ratgeber und Amateur Programmierer.
Da reizen mich auch Threads wo man technisch gesehen eine Zirkusnummer auf dem Einrad absolvieren muss. Schauen wir mal ob der Frager mit dem Ergebnis zufrieden ist. Die verbundenen Zellen sind wi gewünscht im Programm mit integriert. Ich hoffe das gefaellt ihm als persönliche Arbeitserleichterung. - Konnte mir "Ralf Schmitz" als Komiker im Beispiel nicht verkneifen!
Für den Frager: - als Hobby Programmierer bin ich nicht die hellste Leuchte im Forum! Manche Befehle können die echten Profis viel eleganter lösen. Mich stört auch nicht wenn sie mein Programm verbessern. Für mich ist wichtig wie gut das Programm funktioniert?
Ich bin sehr gespannt ob meine Lösung für die Praxis brauchbar ist? Das ist der entscheidende Punkt für mich und meine Arbeit!
https://www.herber.de/bbs/user/131763.xlsm
mfg Piet

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread