runden plus minus 5 rappen mittels vba
Yvo Peter
ich arbeite mit excel 2000 und möchte mittels vba die werte der markierten
zellen auf den nächste 5er auf- oder abrunden. die gerundeten werte müssen
wieder in ihre ursprüngliche zelle zurückgeschrieben werden. kennt jemand
ein makro für mein anliegen?
danke
yvo
Peter H. Erdmann
die Funktion, die Du suchst ist VRUNDEN(A1;0,05). Du mußt dazu aber die
Analysefunktionen aktiviert haben (Add-Ins-Manager....).
Füge eine Spalte neben der zu rundenden ein, Baue dort die Formel ein,
kopiere die Spalte, füge sie an der gleichen Stelle als Werte (Bearbeiten -
Inhalte einfügen - Werte) wieder ein und lösche die alte Spalte. Zeichne das
ganze als Makro auf und ab geht's.
Sind die Werte allerdings in unterschiedlichen Zellen, mußt Du den Wert in
eine Variable einlesen, schreibst diese an eine stets leere Zelle zurück,
wendest auf die in der Nachbarzelle die Formel an, liest den neuen Wert in
die Variable zurück und diese wiederum in die ursprüngliche Zelle. Klingt
zwar mordsmäßig kompliziert und langwierig, geht aber ruck-zuck.
Gruß
Peter H. Erdmann
Microsoft Office User Specialist
Tel.: 08102 1613
eMail: p.er...@onlinehome.de
Yvo Peter <yvop...@swissonline.ch> schrieb in im Newsbeitrag:
3c12f784$1...@news.swissonline.ch...
Yvo Peter
Besten Dank für deine prompte Antwort.
In meinem Fall stehen die Werte in unterschiedlichen Zellen. Ich bin leider
ein VBA-Anfänger. Kannst Du mir betr. Wert in eine Variable einlesen etc.
noch ein bisschen weiterhelfen?
Danke
Gruss aus der Schweiz
Yvo
"Peter H. Erdmann" <p.er...@onlinehome.de> schrieb im Newsbeitrag
news:ukWdtPJgBHA.2040@tkmsftngp07...
Yvo Peter
Ich habe folgendes Makro von Berti erhalten:
Sub Auf_5_runden()
Dim c As Range
For Each c In Selection
c.Value = Application.WorksheetFunction.Round(c.Value * 20, 0) / 20
Next c
End Sub
funktioniert tadellos!
Noch einen schönen Sonntag
Yvo
"Yvo Peter" <yvop...@swissonline.ch> schrieb im Newsbeitrag
news:3c133ec7$1...@news.swissonline.ch...