Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1248to1252
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
Inhaltsverzeichnis

Workbook_SheetBeforeDoubleClick

Workbook_SheetBeforeDoubleClick
Claudia
Hallo alle zusammen,
ich habe eine Datei mit 21 Blätter (Masch1 - Masch21). Nun möchte ich gerne mittels Doppelklick und dann mit einer Auswahl in Spalte D in den Zellen D10 - D40 jeweils einen Buchstaben eintragen und zwar z, h, n. Mit Daten Gültigkeit möchte ich ungern arbeiten da das sehr häufig zu langsam ist. Die Datei muss öfter am Tage sehr flexibel und schnell bearbeitet werden.
Kann mir bitte jemand helfen, im Archiv habe ich leider nichts passendes für mich gefunden.
Vielen Dank und Gruß
Claudia

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

Betreff
Benutzer
Anzeige
AW: Workbook_SheetBeforeDoubleClick
16.02.2012 16:20:09
Rudi
Hallo,
meinst du so?
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel  _
As Boolean)
If LCase(Sh.Name) Like "masch*" Then
If Target.Count = 1 Then
If Not Intersect(Target, Range("D10:D40")) Is Nothing Then
Select Case Target
Case "":  Target = "n"
Case "n": Target = "h"
Case "h": Target = "z"
Case "z": Target = ""
End Select
Cancel = True
End If
End If
End If
End Sub

Gruß
Rudi
super vielen Dank genau so. o.T.
16.02.2012 16:50:01
Claudia
Anzeige

48 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige