VBA anderes Target
18.01.2017 16:06:06
Sven
kann jemand sagen wie ich das Target ändere auf F10:K57 und Q10:V57 ?
Habs schon mit If (Target.Range ("F10:K57"))and If Target ("Q10:V57") Then
geändert , aber das Funzt nicht :-(
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s%, m%
'Soll nur bei einer Eingabe in Spalte F wirksam werden:
If Target.Column >= 6 And Target.Column 2 Then
s = Left(.Value, Len(.Value) - 2)
m = Right(.Value, 2)
Else
s = .Value
m = 0
End If
.Value = s & ":" & m
End If
ActiveSheet.Protect
End With
End If
End Sub
LG
Sven