|
Grüße Euch alle
Nachdem mir gestern so toll geholfen wurde und ich mit VBA auf Kriegsfuß stehe habe ich mir überlegt noch eine weiter Spalte im Doppelklick hinzuzufügen. Aber alles Basteln mit Gänzefüßchen weg oder Klammer weg oder ohne alles ist wie das Suchen im Heuhaufen.
Könnte mir jemand unter die Arme greifen.
Vielen lieben Dank Sabrina
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("H5:H50")) Is Nothing Then
Target = IIf(Target = "", "Eilt", "")
Cancel = True
ElseIf Not Intersect(Target, Range("E5:E50")) Is Nothing Then
Target = IIf(Target = "", Date, "")
End If
End Sub
ElseIf Not Intersect(Target, Range("i5:i50")) Is Nothing Then
Target = IIf(Target = "", test, "")
|