Target Row
26.08.2007 09:50:00
Ernst
Habe ein Problem mit Target.Row
K12 bis K131
(L12 bis L131 und M12 bis M131 im Prinzip wie K12 bis K131)
Mit Doppel-Klick z.B. auf K12 wird eine Userform geöffnet, dort werden Werte eingetragen und in der Zelle S6 eingetragen aus diesem Wert wird in S7 ein neuer Wert berechnet und in Zelle K12 übertragen.
Nun fügt es aber gleichzeitig auch schon Werte in L12 und M12 ein obwohl ich diese erst mit Doppel-Klick auf L12 bzw. M12 einfügen möchte.
Was habe ich im untenstehenden Code falsch gemacht?
Für eine Hilfe bin ich dankbar.
Mit freundlichen Grüssen
Ernst Dunkel
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
If Not Intersect(Target, [K12:K131]) Is Nothing Then
'Doppelklick auf K12 bis K131, öffnet UserForm Horizont
Application.EnableEvents = False
Range("s6").ClearContents
frmHorizont.Show
Application.EnableEvents = True
End If
cancel = True
If Not Intersect(Target, [L12:L131]) Is Nothing Then
'Doppelklick auf L12 bis L131 öffnet UserForm Ueberhang
Application.EnableEvents = False
Range("t6").ClearContents
frmUeberhang.Show
Application.EnableEvents = True
End If
If Not Intersect(Target, [m12:m43]) Is Nothing Then
'Doppelklick auf m12 bis m43 öffnet UserForm Süd
Application.EnableEvents = False
Range("u6:v6").ClearContents
frmSüd.Show
Application.EnableEvents = True
End If
cancel = True
If Target.Row > 11 And Target.Row