Office: Raumplanung in Excel VBA

Hallo ich bin neu hier und habe von VBA leider überhaupt keine Ahnung.
Ich soll eine Besprechungsraumplanung erstellen.
Diese besteht aus Arbeitsmappen, die jeweils eine Kalenderwoche darstellen.
Es soll ein Button "Neuen Termin eintragen" erstellt werden, über den man das Datum, die Uhrzeit von wann bis wann und das Datum auswählen kann. Des weiren muss man dort seinen Namen eingeben, der direkt in die Tabelle eingetragen wird und es muss ein Kommentar erstellt werden können, der auch als Kommentar erschein (also dieses kleine rote Dreieck)
Es ist quasi fast wie der Outlook Kalender, nur nutzen wir bei uns leider kein Outlook.
Jetzt meine Fragen: Ist soetwas überhaupt möglich und wenn ja wie? Ich habe, wie gesagt, leider überhaupt keine Ahnung davon.

Habe schonmal eine Tabelle erstellt, wie das ungefähr aussehen soll.

Ich freue mich über jede hilfreiche Antwort.
Danke!

:)

 

Moin, komakurt,

Nachfragen:

- eine Schaltfläche pro Tabelle oder ein Auslöser z.B. per Symbolleiste oder Menüpunkt?

- Aufteilung 30 Minuten - was ist mit Überziehungen (soll heißen: sollen Pufferzeiten angelegt werden, wenn ja, wie viel Zeit)? Erzähl mir bitte nicht, dass sich bei Euch alle an die vorgegebenen Zeiten in einer Besprechung halten (dann leih ich Dir ein Paar von unseren "Plaudertaschen" aus) *wink.gif*

- Immer ein Kommentar bzw. zu welchem Zweck soll der Kommentar dienen?

-Wie steht es mit Verschieben oder Löschen von Terminen, Umbuchungen in einen anderen Raum wegen Teilnehmerzahl?

- Eingabe der Wünsche in ein Formular in einer Tabelle oder in eine per VBA generierte UserForm mit den entsprechenden Feldern?

 

Hallo,

Pufferzeiten müssen erstmal nicht angelegt werden. *wink.gif*
In die Tabelle selbst soll nur der Name der Person eingegeben werden, die den Raum bucht. Die Kommentare sollen dafür da sein, damit noch eingetragen werden kann, worum es z.B. in dieser Besprechung geht.

Wenn das löschen und verschieben von Terminen machbar wäre, wäre dies natürlich super.

Ich denke eine UserForm wäre besser, nur habe ich leider überhaupt keine Ahnung von VBA Programmierung. *frown.gif*

 

Moin, komakurt,

das Löschen der Termine ist noch nicht drin (erst mal sehen, ob nicht doch noch Fehler beim Eintragen auftreten), es fehlt das Einfügen von Kommentaren (einfach aus Mangel an Information, was denn wo eingetragen werden soll), aber zumindest das Feld gibt es bereits in der UserForm.

Der Aufruf der UserForm geschieht durch einen Doppelklick in die Zelle A1 jeder der vorhandenen Tabellen, dazu wird in DieseArbeitsmappe der folgende Code eingesetzt:

Code:

Sollte aus irgendwelchen Gründen der Doppelklick nicht als Auslöser in Frage kommen, solltest Du mir sachdienliche Hinweise als Alternativen anbieten... *wink.gif* Symbolleiste, Rechtsklick, Wechsel mit Zellzeiger in A1, Menüpunkt, Punkt im Kontextmenü könnte ich zur Not noch einarbeiten - dann verlassen mih aber die Alternativen... *grins

Das war der einfache Teil - der Code hinter der Userform ist bereits jetzt ein klitzekleines bißchen länger ausgefallen:

Code:

 

Guten morgen,

das sieht schon richtig gut aus. Danke dafür.
Habe noch einen kleinen Fehler entdeckt:
Es ist nicht möglich einen Raum für nur eine halbe Stunde zu buchen (z.B. von 9:30 Uhr bis 10:00 Uhr)

In das Kommentarfeld soll derjenige, der die Buchung anlegt, einfach weitere Informationen schreiben können, die dann als Kommentar in der Zelle auftauchen (also die Zelle soll dann dieses kleine rote Dreieck oben rechts in der Ecke haben)

Danke für deine Mühe und Hilfe!

 

Moin, komakurt,

das Nichtanlegen von einer halben Stunde dürfte auch die von mir nachträglich angelegte Veränderung der Zeiten zurückzuführen sein (zuerst waren die gleichen Zeiträume vorgegeben, aber irgendwie macht es keinen Sinn, einen Termin von 7:00 bis 7:00 anzulegen, oder?). Daher ist in der Prozedur cmbEnde_Change lediglich eine Codezeile zu ändern, von

Code:

 

Hallo,

nein es werden auch Besprechungen geplant, die länger als eine halbe Stunde gehen.

ist es vielleicht möglich die Zellen dann einfach zu verbinden und in diese dann mit einem Kommentar zu versehen?
Wenn nicht, kann man diese Besprechung ja auch dick umranden und dann nur die erste Zelle mit einem Kommentar versehen.

 

Moin, komakurt,

Geht beides - nur bei einer zusammengefassten Zelle ist diese immer auch die erste Zelle dieses Bereiches... *wink.gif*

 

ja hast recht *Smilie

Also Zellen verbinden, mit nur einmal dem Namen und einem Kommentar + dicken Rahmen drum wäre super!
Ich bin dir echt so dankbar!

 

Moin, komakurt,

Du wirst aber auf die Anpassung trotzdem bis heute Nachmittag warten müssen, weil ich jetzt erst einmal ein paar Termine habe... *wink.gif*

 

Das ist kein Problem, bin dir trotzdem dankbar *wink.gif*

 

Was müsste eigentlich gemacht werden, wenn später mal ein weiterer besprechungsraum dazukäme?

 

Moin, komakurt,

den Code ändern, da momantan alle Bezüge zum Befüllen der ComboBoxen auf 4 Räume ausgelegt sind...

Hier ist der relevante Code für Zellverbindung, Rahmen und Kommentar für den ausgewählten Zeitraum:

Code:

 

Hallo jinx,

so funktioniert das alles wunderbar! Dankeschön!

Wo im Code steht denn, dass auf die Zelle A1 doppelt geklickt werden muss, um die UserForm zu öffnen?

Ich würde das vielleicht gerne durch einen Klick auf einen Button ersetzen.

Aber sonst ist das jetzt soweit fertig.

Nochmals vielen Dank für deine Hilfe!

 

Moin, komakurt,

siehe #4:

Den Code aus dem Modul entfernen oder durch Hinzufügen eines Hochkommas ' (z.B. Bereich markieren und einen Klick auf Block auskommentieren in der Symbolleiste Bearbeiten in der VBE) oder den Zusatz REM als Kommentar stehen lassen...