AW: Wie oft eigentlich noch???????
10.12.2003 12:31:46
Bernd Kiehl
Hi,
nachfolgende Formel mit Makrorekorder aufgezeichnet.
Sub promille()
Range("B1").Select 'B1 ist meine Zelle mit dem Eintrag "1000", kann beliebig angepasst werden.
Selection.Copy 'kopiere die Zelle mir dem Inhalt "1000"
Range("A1:A3").Select 'markiere alle Zellen, die ersetzt werden sollen.
Selection.PasteSpecial Paste:=xlAll, Operation:=xlMultiply, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "0.00" 'markierte Zellen werden auf Promille formatiert
End Sub
... habe in Zelle B1 (individuell anpassen)den Wert 1000 eingeben. Eine beliebige Zelle mit dem Wert 1000 ist Vorraussetzung für das Makro. Ferner noch Range (A1:A3) an eigene zu verändernde Zellen anpassen.
Dann müsste es funktionieren.
Rückmeldung wäre schön.
Gruss Bernd
PS. übrigens lies die mal die Forumregeln durch in Bezug auf Nicknames.