Hier der Code:
Private Sub CommandButton_Hinzufügen_Click()
ActiveSheet.ListObjects.Add(xlSrcRange, Range(TextBox_Zelle_Eine_Spalte), , xlNo).Name = _
TextBox_Tabellenname
Range("Tabelle1[[#All],[Spalte1]]").Select
End Sub
MfG Wilde_AmeisePrivate Sub CommandButton_Hinzufügen_Click()
ActiveSheet.ListObjects.Add(xlSrcRange, Range(TextBox_Zelle_Eine_Spalte), , xlNo).Name = _
TextBox_Tabellenname
Range("Tabelle1[[#All],[Spalte1]]").Select
End Sub
MfG Wilde_Ameise
Private Sub CommandButton_Hinzufügen_Click()
ActiveSheet.ListObjects.Add(xlSrcRange, Range(TextBox_Zelle_Eine_Spalte), , xlNo).Name = _
TextBox_Tabellenname
Range(TextBox_Tabellenname & "[[#All],[Spalte1]]").Select
End Sub