VBA Doppelklick unterbinden
28.06.2008 17:40:28
chris58
Ich habe den u.a. VBA Code von jemanden bekommen. Da jedoch immer mehr Kollegen mit diesem Code in einer Datei arbeiten, kommt es mitunter zu dem Fehler, daß ein KollegIn auf die falsche Spalte doppelklickt, sodaß dann immer die Datei geschlossen und wieder geöffnet werden muß um den Fehler nicht mizuschleppen. Bei diesem VBA Code passiert folgendes:
Er kopiert die gesamte Zeile in eine Rechnung, die dann ausgedruckt werden kann.
Nun zu meiner Frage:
Ich habe hier zwar recherchiert, jedoch da ich fast keine Ahnung mit VBA habe, kann ich auch diesen Code nicht so umschreiben, daß folgendes unterbunden sein soll............
Es soll NUR die Möglichkeit bestehen, in der Spalte C3 bis C5000 die Möglichkeit sein, doppelzuklicken.
Kann man das mit diesem Code einschränken ?
Es wäre eine grosse Hilfe für mich und meine KollegInnen
Danke für eure Hilfe
chris
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C3:C5000")) Is Nothing Then
Sheets("Quittung").Range("D7").Value = Target.Value
Target.Offset(, 4).Value = Date
End If
UserForm1.Show
End Sub