Kann ich ohne die Nummer der Spalten zu ändern Spalten einschieben? Vielleicht anhand von der gewünschten Reihenfolge.
Private Sub CommandButton1_Click()
Dim lngEmtyRow As Long
With Worksheets("Daten")
lngEmtyRow = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
.Cells(lngEmtyRow, .Range("NameDerSpalte").Column).Value = TextBox1.Value
End With
End Sub