Dropdown Markierungen
22.02.2009 10:12:30
Ludmila
In einer Tabelle lasse ich über eine Dropdown-Auswahl Namen eintragen.
Die 3 Zellen unter dem Namen werden mit "Belegt" beschrieben und gelb
gefärbt.
Besteht die Möglichkeit das wenn nun bei der Dropdown Auswahl
bereits ein Text unterhalb der 3 zu markierenden Zellen Steht, das dies
dann verhindert wird.
z.B.
Name
Zeit wenn ich hier nun einen Namen auswähle sollte es nicht funktionen
Zeit da nur 2 Zellen frei sind.
Zeit
Zeit Meier
Zeit belegt
Zeit belegt
Zeit belegt
Nachfolgend der Code für die Eintragungen bzw. Löschungen
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Sheets("Tabelle1").Unprotect
If Target.Value "" Then
Application.EnableEvents = False
Range(Target, Target.Offset(3, 0)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
Range(Target.Offset(1, 3)).Select 'neu
End With
With Selection
Target.Offset(1, 0).Value = "Belegt"
Target.Offset(2, 0).Value = "Belegt"
Target.Offset(3, 0).Value = "Belegt"
End With
Application.EnableEvents = True
End If
If Target.Value = "" Then
Application.EnableEvents = False
Range(Target, Target.Offset(3, 0)).Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection
Target.Offset(1, 0).Value = ""
Target.Offset(2, 0).Value = ""
Target.Offset(3, 0).Value = ""
End With
Application.EnableEvents = True
End If
Sheets("Tabelle1").Protect
End Sub
Danke!
Gruß
Ludmila