Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1544to1548
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
Inhaltsverzeichnis

Eingabemaske Daten - Zahl in Text umwandeln

Eingabemaske Daten - Zahl in Text umwandeln
13.03.2017 11:50:13
Thomas

Guten Tag,
ich bin habe mich hier neu angemeldet, da ich beim erstellen einer Dateneingabemaske und der Konvertierung des Textes in Zahlen nicht zurecht komme.
Ich habe eine Userform erstellt (mit Textboxen und einer Combibox). In diese Userform sollen Spaltenweise Prozessdaten eingegeben werden. D.h. Batch 1 in Spalte C, Batch 2 in Spalte D usw. In den Zeilen dann untereinander die Prozessdaten (Zeile 3 Produktionsdatum, Zeile 4 Feststoffgehalt, Zeile 7 Viskosität .... usw. bis Zeile 64)
Mittlerweile habe ich es zumindest geschafft, dass er in Spalte C was einträgt. Leider nur Text formatiert. Ich möchte aber das aber formatiert als Zahl haben (außer Datum und Batch Partie).
Weiterhin habe ich noch keine Lösung dafür gefunden in Spalte D Daten einzutragen. Ich habe in der Userform zwar Knöpfe für "Abbrechen" "Daten übernehmen" und "Neuen Datensatz anlegen" hinterlegt, aber, dass er bei einem neuen Datensatz automatisch eine Spalte weiter springt macht er nicht.
Evtl. kann mir ja jemand dabei helfen. Hier mein Code:

Private Sub Analysenwerte_Click()
End Sub
Private Sub CommandButton2_Click()
Me.Tag = "Abbrechen"
Me.Hide
End Sub

Private Sub CommandButton1_Click()
Me.Tag = "Daten übernehmen"
Sheets("Clevios P (Einzel-Lot)").Range("C1").Value = Me.ComboBox01.Value
Sheets("Clevios P (Einzel-Lot)").Range("C3").Value = Me.TextBox02.Value
Sheets("Clevios P (Einzel-Lot)").Range("C4").Value = Me.TextBox03.Value
Sheets("Clevios P (Einzel-Lot)").Range("C7").Value = Me.TextBox04.Value
Sheets("Clevios P (Einzel-Lot)").Range("C10").Value = Me.TextBox05.Value
Sheets("Clevios P (Einzel-Lot)").Range("C13").Value = Me.TextBox06.Value
Sheets("Clevios P (Einzel-Lot)").Range("C14").Value = Me.TextBox07.Value
Sheets("Clevios P (Einzel-Lot)").Range("C15").Value = Me.TextBox08.Value
Sheets("Clevios P (Einzel-Lot)").Range("C16").Value = Me.TextBox09.Value
Sheets("Clevios P (Einzel-Lot)").Range("C17").Value = Me.TextBox010.Value
Sheets("Clevios P (Einzel-Lot)").Range("C20").Value = Me.TextBox011.Value
Sheets("Clevios P (Einzel-Lot)").Range("C21").Value = Me.TextBox012.Value
Sheets("Clevios P (Einzel-Lot)").Range("C22").Value = Me.TextBox013.Value
Sheets("Clevios P (Einzel-Lot)").Range("C24").Value = Me.TextBox014.Value
Sheets("Clevios P (Einzel-Lot)").Range("C25").Value = Me.TextBox015.Value
Sheets("Clevios P (Einzel-Lot)").Range("C28").Value = Me.TextBox016.Value
Sheets("Clevios P (Einzel-Lot)").Range("C29").Value = Me.TextBox017.Value
Sheets("Clevios P (Einzel-Lot)").Range("C32").Value = Me.TextBox018.Value
Sheets("Clevios P (Einzel-Lot)").Range("C33").Value = Me.TextBox019.Value
Sheets("Clevios P (Einzel-Lot)").Range("C40").Value = Me.TextBox020.Value
Sheets("Clevios P (Einzel-Lot)").Range("C41").Value = Me.TextBox021.Value
Sheets("Clevios P (Einzel-Lot)").Range("C43").Value = Me.TextBox022.Value
Sheets("Clevios P (Einzel-Lot)").Range("C44").Value = Me.TextBox023.Value
Sheets("Clevios P (Einzel-Lot)").Range("C45").Value = Me.TextBox024.Value
Sheets("Clevios P (Einzel-Lot)").Range("C46").Value = Me.TextBox025.Value
Sheets("Clevios P (Einzel-Lot)").Range("C47").Value = Me.TextBox026.Value
Sheets("Clevios P (Einzel-Lot)").Range("C48").Value = Me.TextBox027.Value
Sheets("Clevios P (Einzel-Lot)").Range("C49").Value = Me.TextBox028.Value
Sheets("Clevios P (Einzel-Lot)").Range("C50").Value = Me.TextBox029.Value
Sheets("Clevios P (Einzel-Lot)").Range("C51").Value = Me.TextBox030.Value
Sheets("Clevios P (Einzel-Lot)").Range("C52").Value = Me.TextBox031.Value
Sheets("Clevios P (Einzel-Lot)").Range("C53").Value = Me.TextBox032.Value
Sheets("Clevios P (Einzel-Lot)").Range("C54").Value = Me.TextBox033.Value
Sheets("Clevios P (Einzel-Lot)").Range("C55").Value = Me.TextBox034.Value
Sheets("Clevios P (Einzel-Lot)").Range("C56").Value = Me.TextBox035.Value
Sheets("Clevios P (Einzel-Lot)").Range("C57").Value = Me.TextBox036.Value
Sheets("Clevios P (Einzel-Lot)").Range("C58").Value = Me.TextBox037.Value
Sheets("Clevios P (Einzel-Lot)").Range("C59").Value = Me.TextBox038.Value
Sheets("Clevios P (Einzel-Lot)").Range("C60").Value = Me.TextBox039.Value
Sheets("Clevios P (Einzel-Lot)").Range("C61").Value = Me.TextBox040.Value
Sheets("Clevios P (Einzel-Lot)").Range("C62").Value = Me.TextBox041.Value
Sheets("Clevios P (Einzel-Lot)").Range("C63").Value = Me.TextBox042.Value
Sheets("Clevios P (Einzel-Lot)").Range("C64").Value = Me.TextBox043.Value
Dim ctrElement As Control
For Each ctrElement In Controls
Select Case TypeName(ctrElement)
Case "TextBox": ctrElement = ""
Case "ComboBox": ctrElement = ""
End Select
Next
Me.Hide
End Sub

Und hier noch ein Screenshot, damit Ihr Euch besser vorstellen könnt, worum es geht. Ich brauche die Sachen für mein Chemiestudium.
Userbild

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eingabemaske Daten - Zahl in Text umwandeln
13.03.2017 12:04:56
Werner
Hallo Thomas,
du wirst hier wohl kaum jemanden finden, der dir deine Tabelle nachbaut um testen zu können. Also kann ich nur sagen, schönes Bild, bringt aber nichts. Wenn, dann bitte eine Beispielmappe.
Hier nur mal exemplarisch an einer Codezeile die Übergabe eines Textboxwertes als Zahl in die Tabelle.
Sheets("Clevios P (Einzel-Lot)").Range("C3").Value = CDbl(Me.TextBox02.Value) 'Double Zahl
Sheets("Clevios P (Einzel-Lot)").Range("C3").Value = CLng(Me.TextBox02.Value) 'Ganzzahl
Gruß Werner
AW: Eingabemaske Daten - Zahl in Text umwandeln
13.03.2017 12:35:59
Thomas
Hallo,
Danke für die Rückmeldung. Hier die Datei:
https://www.herber.de/bbs/user/112146.xlsm

Anzeige

407 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige