Aanpassen VBA code

[marcel31281]

Onderstaande code zorgt ervoor dat op het rapport bij selecteren van de cel een vinkje komt te staan.
Nu zou ik deze code willen uitbreiden dat ik bij selecteren van de cel de tekst N/A te zien krijg, bij opnieuw selecteren van de cel zou het vinje terug moeten komen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("G13:G33")) Is Nothing _
And Target.Cells.Count = 1 Then
If Target.Value = "" Then
With Target.Font
.Name = "Wingdings"
.Size = 18
End With
Target.Value = "ü"
Else
Target.Value = ""
End If
End If

 

[marcel31281]

excuses voorbeeld bestand vergeten

 

[ExcelAmateur]

Ik weet niet of dit zo goed is, ben geen VBA specialist.
Kan zijn dat ik het niet goed begrepen heb.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("G13:G33")) Is Nothing _
  And Target.Cells.Count = 1 Then
    If Target.Value = "" Then
      With Target.Font
        .Name = "Times New Roman"
        .Size = 18
        Target.Value = "N/A"
      End With
      Exit Sub
    End If
   
    If Target.Value = "N/A" Then
      With Target.Font
        .Name = "Wingdings"
        .Size = 18
        Target.Value = "ü"
      End With
    End If
  End If
End Sub

 

[marcel31281]

Bedankt dit komt zeker in de buurt van wat ik zoek.

Echter moet ik nog steeds handmatig de waarde deleten om te kunnen wisselen

 

[edmoor]

Probeer deze maar eens. Let ook op je inspringpunten voor de leesbaarheid.

    If Not Intersect(Target, Range("G13:G33")) Is Nothing And Target.Cells.Count = 1 Then
        Application.ScreenUpdating = False
        If Target.Value = "N/A" Then
            With Target.Font
                .Name = "Wingdings"
                .Size = 18
                Target.Value = "ü"
            End With
        Else
            With Target.Font
                .Name = "Arial"
                .Size = 10
                .Bold = True
                 Target.Value = "N/A"
            End With
        End If
        Application.ScreenUpdating = True
        Exit Sub
    End If

 

[ExcelAmateur]

Dit is misschien beter?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("G13:G33")) Is Nothing _
  And Target.Cells.Count = 1 Then
    If Target.Value = "ü" Then
      With Target.Font
        .Name = "Times New Roman"
        .Size = 18
        Target.Value = "N/A"
      End With
      Exit Sub
    End If
   
    If Target.Value = "N/A" Then
      With Target.Font
        .Name = "Wingdings"
        .Size = 18
        Target.Value = "ü"
      End With
    End If
  End If
End Sub

 

[marcel31281]

SUPER bedankt, dit was inderdaad wat ik zocht.:thumb:

Ga eens op mijn gemak uitpluizen wat ik zelf verkeerd heb gedaan al die tijd

 

[pasan]

deze maakt ook weer leeg

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("G13:G33")) Is Nothing And Target.Cells.Count = 1 Then
waarde = Array("", "n/a", "ü")
With Target

For i = 0 To UBound(waarde)
If .Value = waarde(i) Then
Select Case i
 Case 0
  .Value = "n/a"
  .Font.Name = "Arial"
  Exit For
  
 Case 1
  .Value = ""
  .Font.Name = "Wingdings"
  .Value = "ü"
 Exit For
 
 Case 2
  .Value = ""
  .Font.Name = "Arial"
  Exit For
  
End Select
End If
Next

End With
End If
End Sub