Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

automat. Runden von Eingabewerten

Forumthread: automat. Runden von Eingabewerten

automat. Runden von Eingabewerten
02.01.2006 11:41:20
Eingabewerten
Hallo,
ich möchte die Zahlenwerte eines Eingabeblocks automatisch runden lassen. Hierfür habe ich eine entsprechende Ereignisprozedur für jede betroffene Zelle (IF NOT INTERSECT..) geschrieben. Leider ist dies unpraktikabel, da bei jeder Eingabe das System fur gewisse Zeit beschäftigt ist und die weitere Eingabe nur zeitverzögert vorgenommen werden kann. Weiß jeman, wie man den VBA-Code optimieren kann.
Original-Code für die erste Eingabezelle:
If Not Intersect(Target, [E13]) Is Nothing And Len(Trim(Sheets(1).Cells(13, 5).Value)) &gt 0 Then
Sheets(1).Cells(13, 5) = Application.WorksheetFunction.Round(Sheets(1).Cells(13, 5), Sheets(1).Cells(15, 1))
End If
Vielen Dank vorweg und ein frohes neues Jahr wünscht
Jörg
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: automat. Runden von Eingabewerten
Eingabewerten
hallo jörg
mal als ansatz zum weiterbasteln:


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bereich As Range
If Not IsNumeric(Target) Then Exit Sub
Set bereich = Range("a1,b2,e13,f17") 'anpassen
If Intersect(bereich, Target) Is Nothing Then Exit Sub
Target = WorksheetFunction.Round(Target, 0)
End Sub


wenn es dir allerdings nur um die dastellung geht tut es auch ein benutzerdefiniertes format.
ransi
Anzeige
AW: automat. Runden von Eingabewerten
02.01.2006 11:53:43
Eingabewerten
Hi,
formatier doch einfach die betroffenen Zellen als Zahl mit der gewünschten Anzahl an Nochkommastellen und setz unter Extras - Optionen - Berechnung das Häckchen bei "Genauigkeit wie angezeigt".
Schönen Gruß,
Andi
LOL...
ransi
Guten Morgen
...über mich selber.
Wo das Leben doch so einfach sein kann brech Ich mir die Ohren mit einem Code.
;-)
ransi
Anzeige
;

Forumthreads zu verwandten Themen

Textbox Eingabewerte beschränken
uli

Hallo,
ich habe Textboxen in der nur die Eingabe von Zahlen und ein Komma erlaubt sind:
Select Case KeyAscii
Case 48 To 57
Case 44
If InStr(clTextBox.Text, ",") 0 Then KeyAscii = 0
Case 45
If clTextBox.Text "" Then KeyAscii = 0
Case Else
KeyAscii = 0
En...
26.01.2009 17:13:07
Thread-ID: 1043955
4 Beiträge
UF->TextBox -> Eingabewerte in Variablen speichern
Best4you

Hallo,
in einem UserForm gebe ich ein Angangsdatum und ein Enddatum in zwei verschiedene Textfelder ein.
Nun möchte ich, die Nettoarbeitstage ausrechnen und im selbigen UF anzeigen lassen.
Ich weiß nur nicht, wie ich die eingegebenen Werte der TextBoxen in Variablen speichere, dami...
17.05.2009 16:35:25
Thread-ID: 1075704
6 Beiträge
Eingabewert aus Inputbox für Berechnung verwenden
Joni

Hallo,
ich möchte mit einem Wert aus einer Imputbox rechnen. Der User soll die Anzahl der Tage für die Berechnung eingeben z. B. 10/31 oder 23/28. Wie kann ich jetzt z. B. den Wert 10/31 in den Faktor 0,322580645... umrechnen? Die Eingabe soll unbeding nur in einer Inputbox erfolgen.
Da...
26.10.2009 13:48:21
Thread-ID: 1112222
5 Beiträge
Eingabewert farbig unterlegen
ing.grohn

Hallo Forum,
nun eine Frage nach dem Motto: "ich brauchs zwar nicht sprach der Rabe, aber schön ists wenn ichs habe".
Wenn ich mit der Tab-Taste durch die Textfelder einer Userform springe, werden die feldinhalte hervorgehoben (farblich unterlegt..).
Geht das auch, wenn ich den Curs...
02.02.2010 19:42:30
Thread-ID: 1135219
7 Beiträge
Eingabewert durch Ergebnis austauschen
Werner

Hallo Forum,
Habe mir mal wieder selber eine Aufgabe gestellt für dich keine Lösung finde.
Ich weiß auch nicht ob das überhaupt möglich.
Wenn ja; hat jemand evtl. einen Lösungsvorschlag – auch VBA?
In einer Tabelle „A“ werden in den Zellen der Spalte F Zahlen eingegeben.
Zum...
26.04.2012 13:52:52
Thread-ID: 1261102
8 Beiträge
Function mit boolean Eingabewert
TobiasS

Hallo,
ich habe mir eine kleine Funktion geschrieben.
ich versuche sie in einer Prozedur wie folgt anzuwenden:
FE_comments(negative = TRUE) oder für den anderen fall
FE_comments(negative = FALSE).
D.h. wenn negative = TRUE ist, summiert er mir strings in spalte 6, wenn spa...
11.10.2012 17:00:45
Thread-ID: 1281637
6 Beiträge
Combobox zur Begrenzung von Eingabewerten
Dirk Rose

Hallo,ist es möglich, für alle Zellen einer Spalte die Eingabe auf bestimmte Werte zu begrenzen ("Auswahlliste")? Ideal wäre so etwas wie eine Combobox, welche erscheint, wenn man in eine Zelle dieser Spalte klickt. Die verfügbaren Werte sollen aus einem anderen Arbeitsblatt ausgelesen werden.....
27.06.2002 12:13:53
Thread-ID: 131853
3 Beiträge
mehrere Eingabewerte im Szenario-Manager
JoergK

Ich würde gerne im Szenariomanager für eine Variable mehrere verschiedene Eingabewerte einsetzen und die entsprechenden Ergebnisse in einem gemeinsamen Bericht ausgeben.
Das trennen der Werte durch ein Semikolon im Eingabefenster funktioniert nicht.Hat jemand einen Tip für mich?Jörg Kaufmann...
10.07.2002 16:27:25
Thread-ID: 135436
4 Beiträge
Automatisch Range mit Eingabewert multiplizieren
Torsten

Hallo,
ich habe ein paar Fragen.
1. Ich habe eine Excel-Liste erstellt und möchte das eine bestimmte Range mit einem Eingabewert multipliziert wird. Bei mir funktioniert dieser Befehl allerdings nur für die erste Zelle, danach kommt eine Fehlermeldung. Was ist hier falsch?
Range...
18.07.2018 08:43:57
Thread-ID: 1634547
11 Beiträge
Eingabewert in selber Zelle multiplizieren
Ben

Hallo zusammen,
ich bin neu hier im Forum und bitte euch um Hilfe zur Lösung folgendes Problems:
Ausgangslage:
In der Spalte K meiner Tabelle steht die Netto Summe.
In der Spalte L meiner Tabelle steht die Brutto Summe.
Ziel:
Durch Eingabe des Steuersatz von entweder 19%...
18.10.2018 08:50:00
Thread-ID: 1652031
12 Beiträge
Eigene Excel-Formel: Eingabewerte per Maus wählen
Bitter

Hallo Zusammen,
Ich bin relativ neu bei der VBA-Programmierung in Excel, habe aber bereits mit Hilfe von Tutorials eigene Formeln erstellt.
Die Eingabewerte der bisher erstellten Formeln habe ich nach folgendem Stil an die VBA-Berechnung weitergegeben:
Function Formel1(a as Double,...
03.05.2019 18:55:14
Thread-ID: 1690655
12 Beiträge
Nur bestimmte Eingabewerte in Zellen erlauben
jörg

Hi!
Ich versuche schon eine ganze Weile eine Möglichkeit zu finden in tab1 in die Zellen (F12:F28, I12:I28, ...) nur die Eingabe von Werten zu erlauben, die in tab 2 in A8:A? enthalten sind.
Diese Werte sind auch Tabellennamen.
Ich krieg's nicht hin, vielleicht kann mir wermit Tipps he...
03.06.2003 11:24:04
Thread-ID: 264269
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige