Leider habe ich nicht ganz so viel Ahnung von VBA und möchte eine Art "Kalender" programmieren.
Ich habe mir eine Tabelle angelegt, mit Wochentagen und Uhrzeiten auf der linken Seite und oberhalb stehen die Abteilungen. Jetzt soll über das Ausfüllen eines Formulars die richtige Zelle angesprochen werden und der Inhalt aus den Comboboxen eingetragen werden. Das Funktioniert auch schon :)
Jedoch möchte ich jetzt eine Art "Konflikt-Liste" erstellen.
Das heißt, wenn in dem Formular ein Gebäude mit Raum zur gleichen Uhrzeit am gleichen Tag belegt werden soll,soll in der Zeile geprüft werden, ob dieser Raum zur selben Zeit schon belegt ist. Zumindest soll ein Fenster geöffnet werden, in dem "Konflikt entdeckt!" steht.
Ich habe mehrere Parameter in einer Zelle stehen. Zum Beispiel steht in Zelle E4 " Veranstaltungsart, Veranstaltungsdauer, Name Dozent, GebäudeNr, RaumNr"
Diese stehen immer in selber Reihenfolge. Daher war meine Idee folgende:
Dim Wort As String
Dim pos1 As String
Dim pos2 As String
Dim pos3 As String
Wort = ActiveCell
pos1 = InStr(Wort, ",")
pos2 = InStr(pos1 + 1, Wort, ",")
pos3 = InStr(pos2 + 1, Wort, ",")
erstesWort = Mid(Wort, 1, pos1 - 1)
zweitesWort = Mid(Wort, pos1 + 1, pos2 - pos1 - 1)
drittesWort = Mid(Wort, pos2 + 1, pos3 - pos2 - 1)
If drittesWort = Me.CbTest2.Text Then
MsgBox "Konflikt entdeckt"
End If
Dies funktioniert aber nicht.
Hat da jemand eine Idee?
Vielen Lieben Dank für eure Bemühungen :)