For next Schleife
18.01.2019 14:58:34
Wolfgang
ich möchte gerne meine Prozedur in eine Schleife einbauen. Bei "1 To 5" z.B. soll der Wert 5 variabel sein, er soll aus der ersten Spalte aus der aktiven Zeile bezogen werden mit Offset(0,-7). Die Schleife soll immer den gleichen Wert anzeigen, in meinem Beispiel also immer den grünen Haken.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 7 Then
ActiveCell.Value = "ü"
ActiveCell.Font.Name = "Wingdings"
ActiveCell.Font.Color = RGB(0, 255, 0)
End If
End Sub
Vielen Dank für Eure HilfeWolfgang