Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Target Row

Target Row
26.08.2007 09:50:00
Ernst
Guten Tag Forum
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 


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Target Row
26.08.2007 10:48:00
Uduuh
Hallo,
du fragst die Spalte nicht ab. Müsste so gehen:

If Target.Row > 11 And Target.Row 


Gruß aus’m Pott
Udo

AW: Target Row
26.08.2007 11:59:45
Ernst
Hallo Udo
Vielen Dank, es funktioniert so wie es mir vorgestellt habe.
Wünsche Dir noch einen schönen Sonntag.
Ernst Dunkel
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige