Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
Screenshot zu CheckBox	CheckBox-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema Userform
Screenshot zu Userform	Userform-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema Label
Screenshot zu Label	Label-Seite mit Beispielarbeitsmappe aufrufen

Wert aus Userform als Prozent anzeigen

• Wert aus Userform als Prozent anzeigen von Tom vom 21.10.2020 16:07:10
• AW: Wert aus Userform als Prozent anzeigen - von Hajo_Zi am 21.10.2020 16:12:47
  • AW: Wert aus Userform als Prozent anzeigen - von Tom am 21.10.2020 16:33:36
    • AW: Wert aus Userform als Prozent anzeigen - von Hajo_Zi am 21.10.2020 16:37:09
      • AW: Wert aus Userform als Prozent anzeigen - von Tom am 21.10.2020 18:41:41
• AW: Wert aus Userform als Prozent anzeigen - von fcs am 21.10.2020 16:20:19

Betrifft: Wert aus Userform als Prozent anzeigen von: Tom
Geschrieben am: 21.10.2020 16:07:10

Hallo liebes Forum,

Ich verzweifel gerade an einer kleinen Aufgabe und selbst die Ergebnisse meiner Suche bringen mich nicht zum Ziel. In einer Userform gebe ich in 4 Textboxen Werte ein. Diese sollen dann in dem Sheet2 eingetragen werden und als % dargestellt werden. Leider klappt es nicht. Ich habe schon alles versucht über formatieren etc.
Gebe ich bspw. 22 ein kommt 2200% gebe ich 22,22 ein wird dies eingetragen und mir wird das "Fehler-Dreieck" angezeigt, dass es als Text gespeichert ist, da die Textbox ja ein string ist.

Ich möchte gerne das am Ende in Sheet2 folgendes steht:

22,2% 77,78%
34,5% 65,60%

Könnt ihr mir helfen?

Grüße Tom

  

Betrifft: AW: Wert aus Userform als Prozent anzeigen
von: Hajo_Zi
Geschrieben am: 21.10.2020 16:12:47

Hallo Tom,

Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.

Sollte die Datei verlinkt werden?

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
änderrn.

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

http://www.excel-ist-sexy.de/bilder-statt-datei/

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

  

Betrifft: AW: Wert aus Userform als Prozent anzeigen
von: Tom
Geschrieben am: 21.10.2020 16:33:36

Hallo Hajo,

sorry hatte vergessen den Link zu kopieren. :)

https://www.herber.de/bbs/user/141008.xlsm

  

Betrifft: AW: Wert aus Userform als Prozent anzeigen
von: Hajo_Zi
Geschrieben am: 21.10.2020 16:37:09

Gut ich benutze keine Knackprogramm um das VBA Projekt zu sehen.
Ich bin dann raus.
Viel Erfolg noch.

Gruß Hajo

  

Betrifft: AW: Wert aus Userform als Prozent anzeigen
von: Tom
Geschrieben am: 21.10.2020 18:41:41

Heute ist mein Kopf echt nicht bei der Sache.

https://www.herber.de/bbs/user/141010.xlsm

Jetzt ist das PW raus. Falls du es dir doch noch angucken willst

Grüße Tom

  

Betrifft: AW: Wert aus Userform als Prozent anzeigen
von: fcs
Geschrieben am: 21.10.2020 16:20:19

Hallo Tom,

vor dem Eintragen der Werte in den Textboxen in die Zellen musst du
- prüfen, ob der Eingabewert eine Zahl ist
- den Textboxinhalt in eine Zahl umwandeln
- die Zahl durch 100 dividieren.

Beispiel:

Sub Eintragen()
  Dim varWert
  With Textbox1
    If IsNumeric(.Text) Then
      varWert = CDbl(.Text) / 100
    Else
      varWert = .Text
    End If
  End With
  Tabelle2.Range("C1") = varWert
  
  With Textbox2
    If IsNumeric(.Text) Then
      varWert = CDbl(.Text) / 100
    Else
      varWert = .Text
    End If
  End With
  Tabelle2.Range("D4") = varWert
  
  'usw.
End Sub

LG
Franz

Beiträge aus dem Excel-Forum zum Thema "Wert aus Userform als Prozent anzeigen"