Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1656to1660
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
1656to1660
1656to1660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte werden nicht richtig berechnet

Werte werden nicht richtig berechnet
08.11.2018 14:11:41
Fred
Hallo zusammen
Ich habe mal wieder ein Problem und kann es nicht lösen.
ich übergebe aus einer Userform Werte an eine Tabelle,was auch alles funktioniert leider werden die Ergebnisse in der Zelle nicht richtig angezeigt. Wenn ich mit Kommastelle rechne, Egal wie ich die Zelle auch Formatiere.
Rechne ich mit ganzen Zahlen läufts ,sobald eine Kommastelle dazu kommt funktioniert es leider nicht mehr
Es geht um den Bereich K5 bis X5 in der Tabelle.
Ich hoffe Ihr könnt mir mal wieder helfen.
https://www.herber.de/bbs/user/125266.xls
Grüße Fred

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

Betreff
Datum
Anwender
Anzeige
AW: Werte werden nicht richtig berechnet
08.11.2018 14:33:13
Werner
Hallo Fred,
du übergibst Text in die Tabelle und keine Zahlen. Geh mal in die Zelle mit deiner "Kommazahl" und gib die nochmals von Hand ein.
.Offset(, 1).Value = CDbl(TextBox2)
Gruß Werner
AW: Werte werden nicht richtig berechnet
08.11.2018 14:58:28
Fred
Hallo Werner
Danke für die Schnelle antwort.
Da ich nicht alle Textboxen mit Werten fülle sind manche auch leer und schon Meckert der Debugger rumm.Unten steht mal der geänderte Code. Wie könnte ich das denn abstellen damit er die leeren TextBoxen ignoriert?

Private Sub Daten_übernehmen_Click()
With Tabelle21 ' absoluter Bezug zu definierter Tabelle
With .Cells(.Rows.Count, 1).End(xlUp).Offset(1) ' Bezug zur 1. freien Zeile in Spalte A
.Value = CDate(TextBox1.Text) ' Wertübergabe an Zelle in Spalte A
.Offset(, 1).Value = CDbl(TextBox2.Text)  ' Wertübergabe an Zelle in Spalte B
.Offset(, 2).Value = CDbl(TextBox3.Text)
.Offset(, 3).Value = CDbl(TextBox4.Text)
.Offset(, 4).Value = CDbl(TextBox5.Text)
.Offset(, 5).Value = CDbl(TextBox6.Text)
.Offset(, 9).Value = CDate(TextBox7.Text)
.Offset(, 10).Value = CDbl(TextBox8.Text)
.Offset(, 11).Value = CDbl(TextBox9.Text)
.Offset(, 12).Value = CDbl(TextBox10.Text)
.Offset(, 13).Value = CDbl(TextBox11.Text)
.Offset(, 14).Value = CDbl(TextBox12.Text)
.Offset(, 18).Value = CDate(TextBox13.Text)
.Offset(, 19).Value = CDbl(TextBox14.Text)
.Offset(, 20).Value = CDbl(TextBox15.Text)
.Offset(, 21).Value = CDbl(TextBox16.Text)
.Offset(, 22).Value = CDbl(TextBox17.Text)
.Offset(, 23).Value = CDbl(TextBox18.Text)
End With
End With
Grüße Fred
Anzeige
AW: Werte werden nicht richtig berechnet
08.11.2018 15:19:49
Luschi
Hallo Fred,
beim Auslesen von Textboxen muß man sich schon ein bischen mehr Mühe geben und nicht blindlinks versuchen, Textbox-Werte in Zahlen umzuwandeln. Wenn man keine Vorkehrungen trifft, daß nur Zahlen reingeschrieben werden können, so muß man schon damit rechnen, daß Buchstaben (Großes O statt Zahl 0 oder kleines l statt Zahl 1 oder eben kein, ein oder mehrere Leerzeichen drinstehen.
Google kennt da viele, viele, und noch mehr Lösungsvorschläge, wann man nach diesen Stichworten sucht:
'vba textbox nur zahlen und komma zulassen'
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Werte werden nicht richtig berechnet
08.11.2018 15:20:14
Werner
Hallo Fred,
teste mal: 
Private Sub Daten_übernehmen_Click()
Dim i As Long
With Tabelle21 ' absoluter Bezug zu definierter Tabelle
With .Cells(.Rows.Count, 1).End(xlUp).Offset(1) ' Bezug zur 1. freien Zeile in Spalte A
If IsNumeric(Me.TextBox1) Then
.Value = CDate(Me.TextBox1.Text) ' Wertübergabe an Zelle in Spalte A
End If
For i = 2 To 6
If IsNumeric(Me.Controls("Textbox" & CStr(i))) Then
.Offset(, i - 1) = CDbl(Me.Controls("Textbox" & CStr(i)))
End If
Next i
For i = 7 To 12
If IsNumeric(Me.Controls("Textbox" & CStr(i))) Then
.Offset(, i + 2) = CDbl(Me.Controls("Textbox" & CStr(i)))
End If
Next i
For i = 13 To 18
If IsNumeric(Me.Controls("Textbox" & CStr(i))) Then
.Offset(, i + 5) = CDbl(Me.Controls("Textbox" & CStr(i)))
End If
Next i
End With
End With
End Sub
Gruß Werner
Anzeige
AW: Werte werden nicht richtig berechnet
08.11.2018 15:42:06
Fred
Hallo Werner
Das funktioniert schon echt super es gibt nur noch ein kleines Problem
nicht nur TextBox1 enthält ein Datum sondern auch TextBox7 und TextBox13.
könntest Du das vieleicht noch mal abändern?
Grüße Fred
AW: Werte werden nicht richtig berechnet
08.11.2018 15:47:18
Luschi
Hallo Fred,
und was hindert Dich daran, bei Textboxen mit Datumswerten die Funktion IsDate() zu verwenden statt IsNumeric().
Außerdem wirst Du schnell feststellen, daß die Kommaproblematik von Werner noch nicht berü _ cksichtigt wurde: 

Sub testKommastelle()
Dim s As String
s = "12.1"
Debug.Print IsNumeric(s)  'Wahr
Debug.Print CDbl(s)       'Ergebnis: 121
s = "12,1"
Debug.Print IsNumeric(s)  'Wahr
Debug.Print CDbl(s)       'Ergebnis: 12,1
s = "12.1.1"
Debug.Print IsNumeric(s)  'Wahr
Debug.Print CDbl(s)       'Ergebnis: 12,1
s = "12,1.1"              'Wahr
Debug.Print IsNumeric(s)  'Ergebnis: 12,11
Debug.Print CDbl(s)
s = "12,1,1"
Debug.Print IsNumeric(s)  'Falsch
Debug.Print CDbl(s)       'Fehler 13
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Werte werden nicht richtig berechnet
08.11.2018 15:58:58
Fred
Hallo Luschi
Danke für Deine Antwort.
Der Code von Werner funktioniert sehr gut es werden nur 2 TextBoxen falsch übergeben Die Berechnung mit Kommastelle funktioniert, so aber über die Formatierung der Zelle. da ich ich nur Leihe im Bereich VBA bin kann ich mit Deinem Code leider nichts anfangen .
Grüße Fred
AW: Werte werden nicht richtig berechnet
08.11.2018 19:12:42
Werner
Hallo Fred,
mal ne bescheidene Frage:
Du stellst immer die letzte belegte Zeile/Zelle bzw. die erste freie Zelle in Spalte A fest. Das hat ja dann zur Folge, dass die Daten in den Tabellenbereichen J:O bzw. S:X an Spalte A ausgerichtet sind.
Trägst du z.B. nur 5 x etwas im Tabellenbereich A:F ein, dann hat das zur Folge, dass der erste Eintrag in den anderen beiden Tabellenbereichen erst ab Zeile 15 erfolgt.
Ist das denn so gewollt?
Gruß Werner
Anzeige
AW: Werte werden nicht richtig berechnet
09.11.2018 18:37:21
Sepp
Hallo Fred,
schau mal in den Optionen nach und setze die mit 1 gekennzeichnete Option und nimm die mit 2 gekennzeichnete raus.
Userbild
 ABCDEF
1Gruß Sepp
2
3

Anzeige

300 Forumthreads zu ähnlichen Themen

automatisch Berechnen funktioniert nicht
t4z

Hi Leute,
kann mir jmd folgendes Phänomen erklären?
Excel-Datei enthält Formeln, die auf andere Zellen innerhalb der Mappe referenzieren. Die Quelldaten ändern sich, jedoch die Formeln nicht. Unter Extras-Optionen-Berechnung ist "automatisch" aktiv. Ein Drücken auf F9 bringt keinen Erfo...
07.08.2008 17:13:07
Thread-ID: 1000040
3 Beiträge
Anzeige
Formel errechnet sich nicht automatisch
Peter

Servus,
habe mit unten dargestellter Formel ein Problem. Wäre nett wenn mir jemand helfen könnte.
Unter dem Namen Region1 sind alle Filialen zusammengefasst die zu dieser Region gehören.
In Spalte A stehen die zu suchenden Filialnummern, in Spalte D die zu summierenden Werte.
17.09.2008 13:27:00
Thread-ID: 1010355
3 Beiträge
Funktion aktualisiert sich nicht automatisch
Bernd

Ich habe hier die folgende Funktion, welche mir eine Formel aus einer Zelle als Zahlen darstellt. Also aus =E20*E20 wird z.B. "5*5" ausgegeben.
Option Explicit Option Compare Text '(c)1999 Andreas Kirschbaum Const TrennZ = "-+/*^()" Const ZahlZ = "-.,0123456789" Const HochZ = "0123" Const...
22.10.2008 12:23:00
Thread-ID: 1018305
7 Beiträge
Anzeige
Formel wird nicht ausgeführt
Andy

Hallo Leute,
Guten Abend. Ich habe ein ganz großes Problem.
Ich habe eine Exceldatei mit vielen Datensätzen (ca. 8000). In Spalte C habe ich eine Formel, die auf Spalte A und B Bezug nimmt und aus einer Matrix den entsprechenden Wert sucht. Das ganze hat bis jetzt super funktioniert. W...
19.02.2009 16:47:00
Thread-ID: 1052226
8 Beiträge
Zelle wird nicht berechnet
Günter

Hallo Zusammen,
ich habe in Sub Worksheet_SelectionChange(ByVal Target As Range)
folgenden Befehl stehen
If (Cells(z, R16).Value) > 0 Then Cells(z, R18).Value = Cells(z, R16).Value + zd Else Cells(z, R18).Value = Cells(z, R14).Value + zd End If
Die entsprechend...
25.04.2009 19:36:04
Thread-ID: 1071147
6 Beiträge
Formeln werden nicht kopiert
ove

Moin Moin,
mein problem ist folgendes: ich würde gerne mehrere Tabellen in ein anderes Arbeitsblatt kopieren.
Dort sind viele Formeln enthalten.
Beim kopieren wird aber leider nur der Wert der Zellen kopiert und nicht die Formel in den Zellen.
also z.b. statt wie im original "=S...
04.05.2009 10:04:51
Thread-ID: 1072655
15 Beiträge
Code Workbook_Open wird nicht ausgeführt
Thorsten

Hallo liebe Expertinne und Experten,
ich habe folgenden Code geschrieben (bzw. zusammen kopiert ... :o) )
Der Code funktioniert auch, aber nur wenn ich ihn selbst aus dem VB-Editor starte. Er soll aber eigentlich beim Öffnen der Datei ausgeführt werden.
Der Code liegt natürlich auf...
22.06.2009 10:15:29
Thread-ID: 1083380
3 Beiträge
Benutzerderfinierte Formel berechnet nicht automat
tdnnttt

Hallo,
habe folgende beutzerdefinierte Formel eingegeben. Sie funktioniert auch, jedoch ohne autom. Berechnung (autom Berechnung ist aber eingeschalten). Wenn ich die Zelle aktiviere und Enter drücke, rechnet die Formel?
Public Function summehaushalt(konto As Variant) For i = 19 To 50...
29.06.2009 15:15:54
Thread-ID: 1085172
6 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

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
3
2
6
6
7
5
14
2
5
7
4
2
1
2
5
5
8
1
18
3
4
7
2
11