Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

runden-funktion einfügen mit vba

runden-funktion einfügen mit vba
15.06.2004 14:20:09
norbert
Hallo,
als vba-anfänger scheiter ich an folgendem makro zum nachträglichen hinzufügen der runden-funktion in einzelne zellen:
wert = ActiveCell.Value
f = "=runden(" & wert & ";2)" 'führt zum laufzeitfehler 1004 !!!
ActiveCell.Formula = f
was mache ich falsch ?

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: runden-funktion einfügen mit vba
Kurt
Option Explicit

Sub runde()
Dim wert As Double, f As String
wert = ActiveCell.Value
f = "=runden(" & wert & ";2)"
ActiveCell.FormulaLocal = f
End Sub

Empfehle noch eine Fehlerbehandlung, falls die Zelle keine Zahl enthält.
Kurt
AW: runden-funktion einfügen mit vba
norbert
hallo kurt , hallo werner
beides funktioniert prima, vielen dank !
norbert
AW: runden-funktion einfügen mit vba
15.06.2004 14:27:18
Werner
Grüezi Norbert
wert = ActiveCell.Value
ActiveCell = Round(wert, 2)
Diese Zeilen genügen schon
Gruss Werner
Danke für die Rückmeldung OT
15.06.2004 15:03:21
Werner
x

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige