Sorry an den Code hatte ich nicht gedacht
Der Code ist in Excel. Danke im vorraus für eure Hilfe
Option Explicit
Private Sub CommandButton1_Click()
'Variable deklarieren
Dim erste_freie_Zeile As Integer
'erste freie Zeile in Blatt "Messwerte" ermitteln
'und in Variable "erste_freie_Zeile" schreiben
erste_freie_Zeile = Sheets("Messwerte").Range("A65536").End(xlUp).Offset(1, 0).Row
'In Blatt "Messwerte"
'With Sheets("Messwerte")
'Spalte A, erste freie Zeile der Name übertragen
Sheets("Messwerte").Cells(erste_freie_Zeile, 1) = TextBox1.Text
'Spalte B, erste freie Zeile das ausgewählte Datum übertragen
Sheets("Messwerte").Cells(erste_freie_Zeile, 4) = TextBox2.Text
'Spalte C, erste freie Zeile den Wert übertragen
Sheets("Messwerte").Cells(erste_freie_Zeile, 5) = CDbl(TextBox3.Text)
'Spalte D, erste freie Zeile den Wert übertragen
Sheets("Messwerte").Cells(erste_freie_Zeile, 6) = CDbl(TextBox4.Text)
'Spalte E, erste freie Zeile den Wert übertragen
Sheets("Messwerte").Cells(erste_freie_Zeile, 7) = CDbl(TextBox5.Text)
'Spalte F, erste freie Zeile den Wert übertragen
Sheets("Messwerte").Cells(erste_freie_Zeile, 8) = CDbl(TextBox6.Text)
'Spalte G, erste freie Zeile den Wert übertragen
Sheets("Messwerte").Cells(erste_freie_Zeile, 9) = CDbl(TextBox7.Text)
'Spalte H, erste freie Zeile den Wert übertragen
Sheets("Messwerte").Cells(erste_freie_Zeile, 10) = CDbl(TextBox8.Text)
'Spalte I, erste freie Zeile den Wert übertragen
Sheets("Messwerte").Cells(erste_freie_Zeile, 11) = CDbl(TextBox9.Text)
'Spalte J, erste freie Zeile den Wert übertragen
Sheets("Messwerte").Cells(erste_freie_Zeile, 12) = CDbl(TextBox10.Text)
'Spalte K, erste freie Zeile den Wert übertragen
Sheets("Messwerte").Cells(erste_freie_Zeile, 13) = CDbl(TextBox11.Text)
'Spalte L, erste freie Zeile den Wert übertragen
Sheets("Messwerte").Cells(erste_freie_Zeile, 14) = CDbl(TextBox12.Text)
'Spalte M erste freie Zeile Mittelwert aus TextBox3 bis TextBox12
'Spalte N erste freie Zeile Spannweite aus TextBox3 bis TextBox12
'Spalte O erste freie Zeile Standardabweichung aus TextBox3 bis TextBox12
Dim objtxt As Object
For Each objtxt In UserForm1.Controls
If TypeName(objtxt) = "TextBox" Then
If objtxt.Value = "" Then
MsgBox " Es wurden nicht alle Textfelder ausgefüllt.!", 48
objtxt.SetFocus
Exit Sub
End If
End If
Next
'UserForm schließen
Unload Me
End Sub
|