Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
900to904
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

5er Rundung auf markierte Zellen

5er Rundung auf markierte Zellen
24.08.2007 06:38:27
Markus

Hallo,
gibt es eine Möglichkeit, folgendes Vorhaben zu realisieren:
alle markierten Zellen, sollen mit einem Tastaturkürzel auf 0.05 (Schweizer 5er Rundung)
=Runden("jeweiliger Wert der Zelle"/5;2)*5
bekommen.
Das sollte auch möglich sein, wenn z.B. in einer Zelle "=sverweis(summe...." etc steht.
Sofern so etwas möglich ist, würde ich das ganze in eine xla einbinden!
unsere Mitarbeiter tun sich halt nach wie vor schwer, diese Formel einzugeben.
Meine Mitarbeiter und ich danken für einen Hinweis.
Markus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 5er Rundung auf markierte Zellen
24.08.2007 07:43:37
fcs
Hallo Makrkus,
ein entsprechendes Makro sieht wie folgt aus. Im Selektierten Zellbereich werden Zellen mit numerischem Inhalt gerundet, enthält die Zelle eine Formel mit numerischem Ergebnis, dann wird die Rundungsfunktion in die Formel eingebaut.
Gruß
Franz


Sub Runden5()
'Rundet Zahlenwerte auf Schweizer 5er-Rundung, Formeln werden um die 5er-Rundung ergänzt
Dim Bereich As Range, Zelle As Range, FormelText As String
Set Bereich = Selection
For Each Zelle In Bereich
If Not IsEmpty(Zelle) Then
If IsNumeric(Zelle) Then
If Zelle.HasFormula Then
FormelText = Mid(Zelle.Formula, 2) 'Gleichheitszeichen vom Formeltext abtrennen
'Prüfung ob Formel schon die Rundungsfunktion enthält
If Not (Left(FormelText, 5) = "ROUND" And Right(FormelText, 11) = ")/5, 2) * 5") Then
Zelle.Formula = "=ROUND((" & FormelText & ")/5, 2) * 5"
End If
Else
Zelle.Value = Application.WorksheetFunction.Round(Zelle.Value / 5, 2) * 5
End If
End If
End If
Next
End Sub


Anzeige
o.T.: Danke, Super, Stark, Mega, Giga, etc
24.08.2007 08:20:03
Markus
.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige