Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
848to852
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
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code anpassen

Code anpassen
03.03.2007 09:49:00
Fritz_W
Hallo Forumsbesucher,
mit dem folgenden Code im Modul der "Tabelle1" wird nach Doppelklick auf eine Zelle im Bereich C9:C16 der Zellwert in die Zelle M1 der Tabelle "Test" eingetragen und diese Tabelle aktiviert.
Ich möchte nun erreichen, dass dies nur geschieht, wenn in der Zellwert in Zelle T14 der "Tabelle1" = 1 ist.
Ist dies nicht der Fall, soll der Eintrag des Wertes in die Zelle M1 der Tabelle1 sowie die Aktivierung der Tabelle Test unterbleiben und stattdessen folgender Hinweis erscheinen: "Sie haben keine Teilnahmeberechtigung".
Vielen Dank für eure Unterstützung.
Mfg
Fritz
Der Code im Modul von Tabelle1 lautet:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count = 1 And Not (Intersect(Target, Range("C9:C16")) Is Nothing) Then
Worksheets("test").Range("M1").Value = Target
Worksheets("test").Activate
Worksheets("test").Range("M1").Select
End If
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code anpassen
03.03.2007 10:08:00
Veit
Hallo Fritz,
also wenn ich Dich nicht ganz falsch verstanden habe, mußt Du Deinen Code eigentlich nur noch geringfügig erweitern...:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Sheets("Tabelle1").Cells(14, 20).Value = "1" Then
If Target.Count = 1 And Not (Intersect(Target, Range("C9:C16")) Is Nothing) Then
Worksheets("test").Range("M1").Value = Target
Worksheets("test").Activate
Worksheets("test").Range("M1").Select
End If
Else
MsgBox "Sie haben keine Teilnahmeberechtigung"
End If
End Sub

Grüße
Ein Veit
Anzeige
AW: Code anpassen
03.03.2007 10:14:12
Fritz_W
Hallo Veit,
genau so sollte es sein!
Vielen Dank!
Gruß
Fritz
AW: Code anpassen
03.03.2007 10:19:00
Gerd
Hallo Fritz,
so etwa
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count = 1 And Not (Intersect(Target, Range("C9:C16")) Is Nothing) Then
If Range("T14").Value <> 1 Then
MsgBox "Sie haben keine Teilnahmeberechtigung", vbOKOnly
Exit
end if
Worksheets("test").Range("M1").Value = Target
Worksheets("test").Activate
Worksheets("test").Range("M1").Select
End If
End Sub
Gruß
Gerd
Syntaxfehler
03.03.2007 10:27:00
Fritz_W
Hallo Gerd,
es erscheint - mit entsprechendem Hinweis auf die Anweisung "EXIT" im Code die folgende Fehlermeldung:
Fehler beim Kompilieren:
Syntaxfehler
Gruß
Fritz
Anzeige
AW: Syntaxfehler
03.03.2007 11:01:39
Gerd
Hallo Fritz,
da siehst Du, was eine Tasse Kaffee zu wenig bewirken kann. :-)
Statt "Exit" natürlich "Exit Sub" .
Gruß
Gerd
Fehler behoben - Nochmaligen Dank! o.w.T
03.03.2007 11:06:53
Fritz_W

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige