vaste waarde door dubbel klik

[schuurar]

Beste forum.

Is het mogelijk door op een cel te dubbel klikken er een vaste waarde word in gevuld?
bv. ik dubbel klik op a2 en er verschijnt " 8:00 "

Bedankt alvast!!

 

[Cobbe]

Ja dat kan zo:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell = " 8:00 "
End Sub

Maar indien je er nog moet mee rekenen is het beter deze te gebruiken:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell = "8:00"
End Sub

 

[popipipo]

Of deze:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target,[COLOR="red"] Range("A1:B70")[/COLOR]) Is Nothing Then
If Target.Value = "" Then
           With ActiveCell
            .Value = "8:00"
            
           End With
               Target.Offset(1, 0).Select
              Else
         
     [COLOR="blue"]  With Target
        ActiveCell.Value = ""
 
        End With
[/COLOR]
        Target.Offset(1, 0).Select
End If
End If
End Sub

Als de dubbel klik in slechts een bepaald bereik moet werken.
of bij opnieuw dubbel klikken in inhoud weer wissen

 

[schuurar]

Cobbe en willem erg bedankt!!!
Ik neem die van willem omdat het idd niet over het hele document hoeft te gebeuren!!!
Moet deze code op elk tabblad gezet worden in vba of kan ik het ergens zetten zodat het op elk tabblad van toepassing is ?

 

[Roncancio]

Als je onderstaande code in ThisWorkbook zet, dan geldt deze voor alle werkbladen.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:B70")) Is Nothing Then
If Target.Value = "" Then
           With ActiveCell
            .Value = "8:00"
            
           End With
               Target.Offset(1, 0).Select
              Else
         
       With Target
        ActiveCell.Value = ""
 
        End With

        Target.Offset(1, 0).Select
End If
End If

End Sub

Met vriendelijke groet,


Roncancio

 

[schuurar]

Helemaal fantastisch !!!
Erg bedankt maar weer!!!