Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
608to612
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
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einfach addition in Vba

Einfach addition in Vba
06.05.2005 08:48:18
Thomas
Hallo zusammen,
ich möchte den in einer Textbox eingetragenen Wert per Tastendruck (KeyUp,KeyDown)um 0,05 erhöhen bzw. verringern. Ich habe es mit diesem Code versucht:

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
TextBox2 = CDbl(TextBox2) - CDbl("0,05")
End Sub

Das Problem dabei:
1)Die Zahl wird nur noch mit einer Stelle hinter dem Komma angezeigt.
2)Die "Berechnung" Funktioniert nicht per Tastendruck, sondern erst wenn ich einen Moment gedrückt halte. Und dann sehr schnell :-(
Vielen Dank,
Thomas

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einfach addition in Vba
06.05.2005 08:53:06
Hajo_Zi
Hallo Thomas,
ich hätte die Aktion

Private Sub TextBox2_AfterUpdate()
TextBox2 = CDbl(TextBox2) - 0.05
End Sub

dafür benutzt.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.



"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.
Anzeige
AW: Einfach addition in Vba
06.05.2005 09:06:53
Thomas
Hallo,
damit hätte ich dann die -0,05. Fehlen mir noch die +0,05 bei "Pfeiltaste Rauf".
Danke schonmal, Thomas
AW: Einfach addition in Vba
06.05.2005 09:14:07
Hajo_Zi
Hallo Thomas,
Deine Aktion hat nichts mit den Pfeiltasten zu tun. Mal ein Auszug aus der Hilfe
"KeyDown-, KeyUp-Ereignisse
Treten nacheinander ein, wenn der Benutzer eine Taste drückt und wieder loslässt. Das KeyDown-Ereignis tritt ein, wenn der Benutzer eine Taste drückt. Das KeyUp-Ereignis tritt ein, wenn der Benutzer eine Taste loslässt."
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.

"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.
Anzeige
AW: Einfach addition in Vba
06.05.2005 09:25:28
Thomas
Hallo Hajo,
vielen Dank erstmal für den Hinweis!! Da hat sich bei mir ein Denkfehler eingeschlichen.....
Hast du denn eine einfache Lösung, wie man es realisieren könnte, das bei "Pfeiltaste Rauf" 0,05 addiert und bei "runter" abgezogen werden?
Mfg, Thomas
AW: Einfach addition in Vba
06.05.2005 09:25:34
u_
Hallo, 

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If TextBox1 = "" Then TextBox1 = 0
Select Case KeyCode
Case 40 'Pfeil nach oben
TextBox1 = Format(CDbl(TextBox1) - 0.05, "#,##0.00")
Case 38 'Pfeil nach unten
TextBox1 = Format(CDbl(TextBox1) + 0.05, "#,##0.00")
End Select
End Sub

Gruß
Anzeige
AW: Einfach addition in Vba
06.05.2005 09:29:20
Thomas
Hallo und vielen Dank dafür!!
Funktioniert super!
eine Frage dazu...
06.05.2005 10:16:34
Andi
Hallo u_,
sowas wollte ich auch schon vorschlagen; ich hab dann testweise noch einen CommandButton unter der TextBox in das UserForm eingefügt, und seit dem wird jedesmal, wenn ich "Pfeil nach unten" drücke zwar der Wert abgezogen, danach aber der CommandButton aktiviert; man muss dann mit der Maus wieder in die TextBox klicken, bevor ein weiterer Druck auf die Cursortasten einen Effekt hat.
Mit TextBox2.SetFocus bin ich da auch nicht weitergekommen.
Hast Du ne Idee, wie man das vermeiden kann?
Schönen Gruß,
Andi
Anzeige
AW: eine Frage dazu...
06.05.2005 10:47:25
u_
Hallo,
stimmt! Es wird immer das vorhergehende/ nachfolgende Steuerelement angesprungen.
Abhilfe
in ein Modul: Public bolKeyUpDown As Boolean
In die UF:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = bolKeyUpDown
bolKeyUpDown = False
End Sub



Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If TextBox1 = "" Then TextBox1 = 0
Select Case KeyCode
Case 40 'Pfeil nach oben
TextBox1 = Format(CDbl(TextBox1) - 0.05, "#,##0.00")
bolKeyUpDown = True
Case 38 'Pfeil nach unten
TextBox1 = Format(CDbl(TextBox1) + 0.05, "#,##0.00")
bolKeyUpDown = True
End Select
End Sub

Gruß
Anzeige
Perfekt!
06.05.2005 11:04:05
Andi
So funktioniert's wunderbar.
Schönen Gruß,
Andi

10 Forumthreads zu ähnlichen Themen

Rechnen mit mehreren Variablen
Richy

Hi,
ich habe folgende Gleichungen, die ich gerne lösen möchte:
268a+88b+160c+172d+138e+174f=4
188a+128b+76c+166d+150e+148f=2,85
238a+122b+84c+174d+136e+168f=3,55
130a+110b+162c+150d+184e+138f=2,05
72a+162b+190c+78d+110e+132f=0,6
120a+78b+178c+140d+164e+170f=1,75
...
15.01.2010 17:15:19
Thread-ID: 1130346
3 Beiträge
Anzeige
Differenz berechnen mit variablen Daten
Roland

Liebe Profis,
ich möchte für meine Schwiegereltern eine Strom und Wasser Verbrauchstabelle erstellen (siehe File https://www.herber.de/bbs/user/102447.xlsx). Der Verbrauch wird bei Strom täglich (zumindest meist) und bei Wasser wöchentlich eingegeben.
Strom:
Das "meist" ist jetzt me...
25.12.2015 09:34:59
Thread-ID: 1465896
17 Beiträge
addition von matrizen in vba
matrizen

hallo,
ich benötige funktionen wie addition von matrizen und elementweise multiplikation einer matrix mit einem skalar in vba, um dort berechungen in selbstdefinierten funktionen effizienter durchführen zu können. da in vba solche elementweise operationen auf matrizen nicht verfügbar sind,...
11.06.2004 10:33:06
Thread-ID: 440109
3 Beiträge
Anzeige
Berechnen mit meheren Variablen
Rene

https://www.herber.de/bbs/user/45930.xls
Hallo erstmal. Grad angemeldet...also 1ster Beitrag!!
Ich hoffe ihr könnt mir irgendwie helfen. In der Excel-Datei die da oben steht, habe ich ein kleines Problem, was ich aber nicht imstande bin, zu lösen.
Ich möchte dass in der Zeile, wo u...
12.09.2007 10:21:00
Thread-ID: 906264
3 Beiträge
VBA Spalten berechnen mit variablen Rang
Mo

Hallo Zusammen,
da ich mit meinen VBA-Kenntnissen absolut nicht weiterkomme, muss ich jetzt hier doch einmal anfragen, vielleicht habt Ihr ja eine Idee.
Ich habe eine Excel-Tabelle mit Werten 0-1. Beispieltabelle (Tabellenblatt "Rohdaten")anbei.
https://www.herber.de/bbs/user/135604...
04.03.2020 12:48:50
Thread-ID: 1744095
5 Beiträge
Addition in VBA rechnet nicht richtig
Tom

Hallo liebe Excel Profis, ich verzweifele seit Tagen an einer (für euch wahrscheinlich) ganz einfachen Aufgabe.
Ich möchte die errechneten Werte der Zellen A1 bis A3 in VBA addieren und in A4 ausgeben lassen.
Dieses wollte ich erreichen mit dem Befehl:
.Range("A4") = Application.Sum...
11.08.2020 16:44:33
Thread-ID: 1776450
28 Beiträge
Anzahl errechnen mit variablen Zeilen
Jo
Hallo Zusammen,
ich habe eine Excel-Tabelle.
In Spalte I kommen verschiedene Zellen (z.B. K4 bis K10) die gefüllt mit Zahlen sind.
In K11 möchte ich die Anzahl der gefüllten Zellen haben.
Meine bisherige Lösung: =ANZAHL($K$3:K10)
Soweit so gut.
Jetzt werden die die Zeilen ü...
27.03.2021 15:54:20
Thread-ID: 1822934
17 Beiträge
Anzahl errechnen mit variablen Zeilen
Jo
Hallo Zusammen,
ich habe eine Excel-Tabelle.
In Spalte K kommen verschiedene Zellen (z.B. K4 bis K10) die gefüllt mit Zahlen sind.
In K11 möchte ich die Anzahl der gefüllten Zellen haben.
Meine bisherige Lösung: =ANZAHL($K$3:K10)
Soweit so gut.
Jetzt werden die die Zeilen ü...
27.03.2021 16:57:47
Thread-ID: 1822945
16 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
16
2
1
2
4
27
16
15