|
Hallo Leute, ich hab folgende 2 Codes geschrieben
Private Sub worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim raBereich As Range
Set raBereich = Range("F4:F6000")
Cancel = True
If Target = "ü" Then Target = "" Else Target = "ü"
Selection.Font.Name = "Wingdings"
If Target = "ü" Then UserForm2.Show
End Sub
Private Sub worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim löbereich As Range
Set löbereich = Range("h4:h6000")
Cancel = True
If Intersect(Target, löbereich) Is Nothing Then Exit Sub
Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).ClearContents
End Sub
wenn ich diese einzeln betreibe, funktionieren diese auch einwandfrei
code 1 macht mir einfach bei doppelclick in spalte f einen haken in die target zelle machen
code 2 macht soll mir bei doppelclick in spalte h die target range löschen
hab jedoch das problem, das ich keine zwei einzelnen codes schreiben kann weil der name gleich ist.
wenn ich beides in einen code schreibe, is das problem das sich das ganze überschneidet, wegen dem target.
d.h. bei doppelklick in f schreibt er mir den haken nicht in f sondern in h und ruft dann die userform auf
totales durcheinander einfach.
danke
gruß rob
|