Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Doppelklick öffnet Userform


Betrifft: Doppelklick öffnet Userform von: Thomas
Geschrieben am: 10.09.2019 08:44:39

Guten Tag,

ich würde gerne, wenn ich in Zelle A79 klicke eine Userform öffnen... was auch funktioniert.

Jetzt würde ich aber gerne, wenn ich in Zelle z.B. A80 klicke eine andere Userform öffnen... wie muss ich den Code jetzt erweitern ??

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     
         If Intersect(Target, Range("A79")) Is Nothing Then Exit Sub
         UserForm4.Show
     
     End Sub

  

Betrifft: AW: Doppelklick öffnet Userform von: 1712162.html
Geschrieben am: 10.09.2019 08:49:47

Hallo,

z.B. schreib den gleichen Code nochmal unter diesen. Halt mit Range A80 und der anderen Userform. Wenn es noch mehr werden, koennte man dass auch ueber ein Select Case loesen.

Gruss Torsten

  

Betrifft: AW: Doppelklick öffnet Userform von: 1712163.html
Geschrieben am: 10.09.2019 08:50:20

Hallo Thomas,

so:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Address(0, 0)
    Case "A79"
        Cancel = True
        Userform1.Show
    Case "A80"
        Cancel = True
        Userform2.Show
    Case Else
End Select
End Sub
Gruß Werner
  

Betrifft: AW: Doppelklick öffnet Userform von: 1712164.html
Geschrieben am: 10.09.2019 08:52:25

Hi Thomas,

versuch es mal so:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  
      If Target.Address = "$A$79" Then Userform4.Show
      If Target.Address = "$A$80" Then AndereForm.Show
  
  End Sub

Wie du siehst, hab ich deinen Code komplett geändert. Es sollte reichen, die Adresse der doppelt angeklickten Zelle abzufragen.

Wenn nämlich Target.Address <> A79 UND <> A80, dann passiert...gar nix weiter.

Hilfts?

Ciao
Thorsten
  

Betrifft: AW: Doppelklick öffnet Userform von: 1712206.html
Geschrieben am: 10.09.2019 11:08:51

Hilft wunderbar... funktioniert.

Danke schön

  

Betrifft: Gerne u. Danke für die Rückmeldung. o.w.T. von: 1712361.html
Geschrieben am: 10.09.2019 21:09:10


Beiträge aus dem Excel-Forum zum Thema "Doppelklick öffnet Userform"