Hallo zusammen,
ich habe folgendes Makro:
Public Sub Worksheet_Change(ByVal Target As Range)
Dim vntNewValue As Variant
Dim lrgRange As Range
On Error GoTo ERR_Handler
Set lrgRange = Range("b26:b50, b92:b115, b156:b179, b220:b243, b283:b306, b347:b370")
'--- hier Spalte D sollte das Zahlenformat für die Bereiche hinterlegt werden -----------
Set lrgRange = Range("d26:d50, d92:d115, d156:d179, d220:d243, d283:d306, d347:d370"),"#.##0,00 €"
If Intersect(Target, lrgRange) Is Nothing Then Exit Sub
With Target
If .Count = 1 Then
.Value = vntNewValue
End If
End With
ERR_Handler:
Application.EnableEvents = True
End Sub
so klappte es nicht !
mfg kurt k