Tabellenübergreifendes Zahlenformat im Listenfeld
31.05.2005 19:39:27
Luzzi
in einer Zelle (A20) mit Gültigkeitliste sind per Verweis verschiedene Listen mit unterschiedlichen Zahlenformaten (Datum,Prozent etc.)aufrufbar.
Über folgendes Makro werden die Formate auch in der Zielzelle (A20) übernommen.
Nur möchte ich eigentlich die Zielzelle in ein andres Tabellenblatt verlegen. Bei meinen Versuchen zerhaut es mir dann immer das Format. Wie muss ich das Makro anpassen?
Schon malherzlichen Dank!
Luzzi
Private Sub Worksheet_Change(ByVal Target As Range)
'Makro funktioniert formatanpassend nur auf einer seite
If Range("A17").Value = ("Prozent") Then
Range("A2:A13,A20").NumberFormat = "0.00%"
End If
If Range("A17").Value = ("Zahl") Then
Range("A2:A13,A20").NumberFormat = "0.00"
End If
If Range("A17").Value = ("Datum") Then
Range("A2:A13,A20").NumberFormat = "d/m/yy;@"
End If
End Sub