05.09.2018, 10:53
Private Sub worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim x As Integer
Dim y As Long
Dim Wert As Integer
'Diagramm Test aktive Zelle auslesen
If Not Intersect(Target, Range("C4:L13")) Is Nothing Then
x = Target.Column
y = Target.Row
If y > 3 And y < 14 Then
Range("B17").Value = 14 - y
End If
Range("F17").Value = x - 2
Wert = ActiveCell
Range("P16").Value = "Test " & Range("B19") & " von " & Wert
End If
Ich habe folgenden Code der aber nur ausgeführt wird wenn ich eine neue Zelle anklicke.
Ich möchte, dass dies aber auch passiert wenn ich z.b. einen Button oder ein Drehfeld (Formularsteuerelement) benutze.
Es dreht sich hauptsächlich, um das fett markierte.
Denn der Wert in B19 wird durch ein Drehfeld nach oben oder unten korrigiert. Die Ausgabe aktuallisert aber nicht durch das verändern eines Wertes mit dem Drehfeld.
Dim x As Integer
Dim y As Long
Dim Wert As Integer
'Diagramm Test aktive Zelle auslesen
If Not Intersect(Target, Range("C4:L13")) Is Nothing Then
x = Target.Column
y = Target.Row
If y > 3 And y < 14 Then
Range("B17").Value = 14 - y
End If
Range("F17").Value = x - 2
Wert = ActiveCell
Range("P16").Value = "Test " & Range("B19") & " von " & Wert
End If
Ich habe folgenden Code der aber nur ausgeführt wird wenn ich eine neue Zelle anklicke.
Ich möchte, dass dies aber auch passiert wenn ich z.b. einen Button oder ein Drehfeld (Formularsteuerelement) benutze.
Es dreht sich hauptsächlich, um das fett markierte.
Denn der Wert in B19 wird durch ein Drehfeld nach oben oder unten korrigiert. Die Ausgabe aktuallisert aber nicht durch das verändern eines Wertes mit dem Drehfeld.