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.