Microsoft Excel

Herbers Excel/VBA-Archiv

Frage zu Code


Betrifft: Frage zu Code von: Spenski
Geschrieben am: 16.04.2017 14:37:13

Hallo es geht um diesen Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  With Target
    If ActiveCell.Column = 1 And ActiveCell.Row > 6 And ActiveCell.Row < 253 And ActiveCell. _
Offset(, _
 16) <> "gesperrt" Then
   UserForm1.Show
End If
  End With
End Sub

Wie kann ich es schreiben das der Code ausgeführt wird wenn die Zelle ungleich "gesperrt" oder "Pause" ist

Forhe Ostern an alle
Gruss
Chris

  

Betrifft: Was soll denn das ActiveCell da? von: lupo1
Geschrieben am: 16.04.2017 14:46:48

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  With Target
    If .Column = 1 And .Row > 6 And .Row < 253 And _
    .Offset(, 16) <> "gesperrt" And .Offset(, 16) <> "Pause" Then UserForm1.Show
  End With
End Sub



  

Betrifft: AW: ..ist das selbe in dieser Ereignisprozedur von: Gerd L
Geschrieben am: 16.04.2017 15:44:25

Gruß Gerd


  

Betrifft: ist aber unnötig ... ;-) siehe lupo von: Matthias L
Geschrieben am: 16.04.2017 15:51:18

Hallo

wenn schon:

With Target
dann auch konsequent mit Punkt

Gruß Matthias


  

Betrifft: AW: halt unnötigerweise das selbe ... :-) o.T. von: Gerd L
Geschrieben am: 16.04.2017 16:07:35



.


  

Betrifft: AW: Frage zu Code von: Hajo_Zi
Geschrieben am: 16.04.2017 14:50:15

Hallo Chris,

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target
        If Target.Column = 1 And Target.Row > 6 And Target.Row < 253 _
            And (Target.Offset(, 16).Locked = True Or Target = "Pause") Then
            UserForm1.Show
        End If
    End With
End Sub
GrußformelHomepage


  

Betrifft: AW: Frage zu Code von: Crazy Tom
Geschrieben am: 16.04.2017 14:50:53

Hallo

vielleicht so?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim rngBereich As Range
    Set rngBereich = Range("A6:A253")
    If Not Intersect(Target, rngBereich) Is Nothing Then
        Select Case Target.Offset(0, 16).Value
            Case "gesperrt", "Pause"
                'mach nix
            Case Else
                Cancel = True
                UserForm1.Show
        End Select
    End If
End Sub
MfG Tom


  

Betrifft: AW: Frage zu Code von: Spenski
Geschrieben am: 17.04.2017 14:47:21

danke an alle