Auslösen von Ereignissen per Doppelklick
05.04.2017 11:00:27
Ereignissen
ich brauche wieder mal einen Gedankenstupser...
Ich bin dabei einen Terminkalender für unsere Arbeitsgruppe aufzubauen. Dabei habe ich vier Bereiche für den Tag aufgebaut, in die nach Doppelklick zunächst einmal ein Zellinhalt eingefügt werden soll. Ist die Zelle bereits belegt, soll eine Msgbox darauf hinweisen. Die Zellen sind zwar eingefärbt, sind aber leer. Lasse ich unten angefügten Code laufen, wird mir aber immer angezeigt, dass der "Termin belegt" ist.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim Terminbereich As Range
Set Terminbereich = Range("O17:O40,AB17:AB40,AO17:AO40,BB17:BB40")
If Not Intersect(Target, Terminbereich) Is Nothing Then
If Target.Address = "" Then
Target = Sheets("Terminplaner").Range("S5").Value
Cancel = True
Else
MsgBox ("Termin schon belegt")
End If
End If
End Sub
Sieht jemand von Euch den Fehler, bzw. kann mir jemand einen Tipp geben?
Zusätzlich muß ich für die weitere Bearbeitung das Feld links neben der angeklickten Zelle als Variable auslesen (Da habe ich dann Raum und Zeit als Suchkriterium für die weitere Zuweisung stehen). Wie mache ich das am Besten, damit ich die Daten dann in einer Userform weiterverarbeiten kann?
Danke schon mal im voraus
Grüße
Ron
Anzeige