Ich habe folgendes Problem: Ich habe ein Combobox-Auswahl für eine Währungsauswahl, je nachdem, was man auswählt, wird ein Bereich in $ oder € formatiert. Folgender Code:
Sub Dropdown6_BeiÄnderung()
Dim cbBox As Shape
With Sheets("Transport & FS")
Set cbBox = .Shapes("Dropdown 6")
With .Range("M5:M17")
If cbBox.OLEFormat.Object.ListIndex = 1 Then
.NumberFormat = "#,##0.00 €"
Else
.NumberFormat = "#,##0.00 [$$]"
End If
End With
End With
Set cbBox = Nothing
Das ganze funktioniert soweit prima. Allerdings möchte ich, das sich bei der Auswahl der Währung auch der Bereich C17:K22 auf dem Blatt "Input" in die gewählte Währung geändert werden. Aber ich habe nicht den geringsten Schimmer, wie ich das eingeben kann/soll?
Kann mir da jemand helfen? ;-)
Viele Grüße,
Ralf