Runden Excel und VBA

22/03/2008 - 16:29 von Jörg Klein | Report spam
Hallo,

ich versuche gerade eine Schleife zum Laufen zu bringen. Ich weiß aber
nicht, wie ich mit dem Runden in VBA umgehen soll.

2. Frage. Ich habe in meinem Arbeitsblatt schon eine Funktion mit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Ist es möglich und richtig eine zweite Funktion dieser Art einzubauen?

Vielen Dank für die Hilfe Jörg

Hier kommt der Ansatz meiner Funktion:

Zelle B16. In diese Zelle Werden Zahlenwerte mit zwei Nachkommastellen
dynamisch erzeugt.


IF B16 > B16 gerundet auf eine Nachkommastellen + C10 then
prüfe, ob der Wert von B16 gerundet auf eine Nachkommastelle + C10 - D10
schon in der Spalte F25 - F49 vorhanden ist.
Wenn ja, then
tue nichts und warte auf den nàchsten Zahlenwert
wenn nein, then
gebe das Ergebnis von B16 gerundet auf eine Nachkommastelle + C10 - D10
in Zelle B21 aus.



Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim z As Long

On Error GoTo ende
Application.EnableEvents = False


'Vorgaben
'--
'Wenn Zelle B16 > B16 gerundet auf eine Nachkommastelle + C10 -D10 then
prüfe ob der Wert schon in der Spalte F25 - F49 enthalten ist

If (Cells(z, "B16") > Cells(z, "B16 gerundet + C10")) AND (Cells(z,
"B16 gerundet" + "C10" - "D10") != Cells(z, "F25" - "F49")

Cells(z, "B16 gerundet" + "C10" - "D10") = Cells(z, "B21")


End If
Next

ende:
Application.EnableEvents = True
End Sub
 

Lesen sie die antworten

#1 Martin Hentrich
22/03/2008 - 16:46 | Warnen spam
On Sat, 22 Mar 2008 16:29:03 +0100, "Jörg Klein"
wrote:

ich versuche gerade eine Schleife zum Laufen zu bringen. Ich weiß aber
nicht, wie ich mit dem Runden in VBA umgehen soll.



Rundest du überhaupt, wenn und warum und vor allen Dingen *wie* soll
denn eigentlich gerundet werden.

2. Frage. Ich habe in meinem Arbeitsblatt schon eine Funktion mit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Ist es möglich und richtig eine zweite Funktion dieser Art einzubauen?



Deine Frage ist mir unverstàndlich und ich erkenne auch nicht das Ziel
deiner Operationen. Kannst das bitte noch einmal konkret erlàuteren
was eigentlich der Zweck ist?

Martin

Im Übrigen bin ich der Meinung, dass der Föderalismus
im Bildungswesen abgeschafft werden muss!

Ähnliche fragen