Office: (Office 2013) daten von userform in tabelle übertragen

Hallo zusammen
ich möchte von einer userform daten in eine tabelle übergeben.
in dieser tabelle wird dann anhand der daten eine distanz berechnet.
wenn ich die daten von hand in die tabelle tippe funktioniert die formel
bei einer übergabe der daten über die userform funktioniert die formel nicht.
Ich nehme an ist ein Formatierungsproblem.
Die Daten werden über den CommandButton7 zur berechnung in Tabelle1 übergeben,
anschliessend über cmdspeichern in Tabelle Matrix abgespeichert.

Beiliegend mein File

Bin für jede Unterstützung dankbar.
Grüsse Toni

:)

 

Hallo Toni,

warum muss man eine so kleine Datei komprimieren?
Du musst nicht schreiben wie man den Fehler auslöst und um welche Zellen es geht.
Ich mache es nicht dies festzustellen.
Aber vielleicht findest Du jemand der die Zeit investiert.

 

Hi Toni,

dafür muss man das Teil nicht runterladen.
Ursache für Dein Problem ist, alles, was in Textboxen steht, ist Text. Auch wenn es wie eine Zahl aussieht.
Du musst also den Text in eine Zahl umwandeln.

Bsp.:
IF(IsNumeric(Textbox1.Text) Then Range("A1") = CDbl(Textbox1.Text)

Über CDbl wird der Text in eine Gleitkommazahl umgewandelt. Dann klappt das auch mit der Berechnung.

 

Hallo Hajo
Hochladen einer Excel file ist bei mir hier im Forum auf 190kb begrenzt darum zip.
und bitte entschuldige meine begrezten Fähigkeiten in VBA.
Trotzdem vielen Dank.
Beste Grüsse
Toni

 

Hallo Ralf

Vielen herzlichen Dank funktioniert*wink.gif*
Versuche es nächstes mal wieder nur mit dem Code.
Nochmals vielen dass dur dir für anfänger wie mich zeitnimmst.
Beste Grüsse
Toni

 

Hallo Ralf

Funktioniert wieder nicht, was mache ich falsch*rolleyes.gif*

PHP:

         Private Sub CommandButton7_Click()

With Worksheets("Tabelle1")

If Me.TextBox4 = "" Then
.Range("A3") = ("")
Else
.Range("A3") = Me.TextBox4.Value
End If
If Me.TextBox5 = "" Then
.Range("B3") = ("")
Else
If (IsNumeric(TextBox5.Text)) Then Range("B3") = CDbl(TextBox5.Text)
End If

If Me.TextBox7 = "" Then
.Range("C3") = ("")
Else
.Range("C3") = Me.TextBox7.Value
End If
If Me.TextBox8 = "" Then
.Range("E3") = ("")
Else
.Range("E3") = Me.TextBox8.Value
End If

If Me.TextBox9 = "" Then
.Range("F3") = ("")
Else
If (IsNumeric(TextBox9.Text)) Then Range("F3") = CDbl(TextBox9.Text)
End If

If Me.TextBox11 = "" Then
.Range("G3") = ("")
Else
.Range("G3") = Me.TextBox11.Value
End If


End With


 

Hallo

"funktioniert nicht"......was sagt uns das?
Fehlermeldung? passiert nix?

warum schreibst du Gänsefüsschen in Klammern?
wenn du nur den Textboxinhalt in eine Zelle schreiben willst
dann reicht Range("soundso").Value = Textbox185.Value
nur wenn du explizit einen bestimmten Wert in der Zelle haben willst dann
benutzt du den Umwandlungsfaktor und die Abfrage ob der Textboxinhalt
eine Zahl ist

MfG Tom

 

...anschauen und den Rest anpassen:
Code:

 

Hallo Ralf
Perfekt.
Vielen herzlichen Dank
Beste Grüsse und schöne Festtage
Toni