22seitigeTabellenblätter Format, Faktor + aufrunde

Hallo zusammen
Ich suche seit 3 x 3h nach der richtigen Lösunge (auch im Google), aber irgendwie steht's immer.
Eine Preisliste (1 Arbeitsmappe mit 22 Tabellenblättern) mit Eurowerten. Die Eurowerte müssen in "Format, Zahl" geändert werden (machte ich über Suchen - Ersetzen). - Dann muss ein Faktor von 1.2 daraufgerechnet werden. (Das machte ich über Inhalte einfügen... Multiplizieren) - UND jetzt, da komm ich nicht weiter:
in der selben Zelle soll dieser Wert auf 10 aufgerundet werden. Ich kenne die verschiedenen Formeln alle von runden / vrunden / obergrenze.genau ... DOCH: ich muss in wenn irgend möglich den Wert in der selben Zelle haben (da hät ich den Zirkelbezug). Gibt es eine VBA-Lösung. Wo möglich für den gesamten Schritt:
Währung in Zahl, dann multiplizieren mal 1.2, dann aufrunden.
Ach ja, die Liste hat im Spalte A eine Grössenangabe: Bsp. 20x300 dann in Spalte B, C, D, E, F die Zahlen, welche angepasst werden müssen.
Zudem stehen zum Teil in Zeile 1, dann Zeile 2 Leerzeile (Darstellung), danach Zeile 3 - 6 stehen die weitere Werte, dann Zeile 7 wieder leer, etc.
Ich hoffe, jemand der noch mehr (oder wirklich Crack ist in Excel) ;-) kann mir dabei bald helfen. Denn ich muss diese Listen nachher noch in InDesign einfügen...
also noch genügend Arbeit...
Vielen Dank!
Dominique

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Schaltfläche1_Klicken() Dim z, s, f, v f = "#,##0 [$-1];[Red]-#,##0 [$-1]" For z = 1 To 1000 For s = 1 To 100 If ActiveSheet.Cells(z, s) "" Then If ActiveSheet.Cells(z, s).NumberFormat = f Then v = ActiveSheet.Cells(z, s) v = v * 1.2 v = 10 * (1 + Int((v - 0.001) / 10)) ActiveSheet.Cells(z, s) = v End If End If Next s Next z End Sub

Sub Schaltfläche1_Klicken() Dim z, s, f, v, wks f = "#,##0 [$-1];[Red]-#,##0 [$-1]" For Each wks In ActiveWorkbook.Worksheets For z = 1 To 1000 For s = 1 To 100 If wks.Cells(z, s) "" Then If wks.Cells(z, s).NumberFormat = f Then v = wks.Cells(z, s) v = v * 1.2 v = 10 * (1 + Int((v - 0.001) / 10)) wks.Cells(z, s) = v wks.Cells(z, s).NumberFormat = "General" End If End If Next s Next z Next wks End Sub

Dim v As Double, f As String, xZ As Range, wks As Worksheet f = "#,##0 [$-1];[Red]-#,##0 [$-1]" For Each wks In ActiveWorkbook.Worksheets For Each xZ In wks.Cells If xZ.NumberFormat = f Then xZ.NumberFormat = "General" If xZ "" Then v = xZ * 1.2 v = 10 * (1 + Int((v - 0.001) / 10)) xZ = v End If End If Next xZ Next wks

Beliebteste Forumthreads (12 Monate)

22seitigeTabellenblätter Format, Faktor + aufrunde

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread