Zweimal Worksheet_change
Larissa
ich möchte zwei Worksheet_Change Aktionen in einem Makro vereinen.
In meiner Version steckt ein Fehler (Else ohne If)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 6 Then
Select Case Target
Case "EUR"
Target.Offset(0, 1).NumberFormat = "#,##0.00 "
Case "USD"
Target.Offset(0, 1).NumberFormat = "#,##0.00 [$$-409]"
End Select
End If
Else
If Target.Column = 4 Then
Select Case Target
Case "Einkauf"
Call EK_
Case "Fracht"
Call Fracht_
Case "Kurier"
Call Kurier_
Case "Andere"
Call Andere_
End Select
End If
End Sub
Kann mir bitte jemand dabei helfen.Viele Grüße, Larissa