Hallo Gast71068,
Hatte ich zuvor schon getan, leider eurde ich nicht ganz schlau daraus, aus dem was ich gefunden habe.
jetzt habe ich folgendes mal getestet:
'----- Erstellen -----
Private Sub CommandButton2_Click() 'Erstellen Button
If OptionButton1 = True Then '1
Dim lasta As Long
With Worksheets("Tabelle1")
lasta = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 'Spalte
If lasta <= 7 Then lasta = 7 'ersten Zeilen zum Suchen [Beide ändern!]
.Cells(lasta, 1).Value = TextBox1
.Cells(lasta, 2).Value = TextBox2
.Cells(lasta, 3).Value = TextBox3
.Cells(lasta, 4).Value = TextBox4
.Cells(lasta, 5).Value = TextBox5
.Cells(lasta, 6).Value = ComboBox1
.Cells(lasta, 2).NumberFormat = "General"
End If
Das .Cells(lasta, 2).NumberFormat = "General" habe ich jetzt mal eingefügt.
Hat aber leider nicht funktioniert. Was mache ich falsch?
Mfg Alois
|