als Tabelle formatierten liste.Speere ich das das Arbeitsblatt funktioniert das automatische erweitern meiner Tabelle nicht mehr. Hat jemand eine Lösung für mich?
Danke im voraus.
'Makro unter dem Tabellenblatt mit der Tabelle/Liste
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim objList As ListObject
Set objList = Me.ListObjects(1)
Select Case Target.Column
Case 2 'Nummern der nicht selektierbaren/geschützten Spalten
Select Case Target.Column
Case objList.Range.Columns.Count + objList.Range.Column - 1
If Target.Row = objList.Range.Rows.Count + objList.Range.Row - 1 Then
objList.ListRows.Add
End If
Cells(Target.Row + 1, 1).Select
Case Else
Target.Offset(0, 1).Select
End Select
Case Else
End Select
End Sub
Sub Test()
'Makro unter dem Tabellenblatt mit der Tabelle/Liste
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim objList As ListObject
Set objList = Me.ListObjects(1)
Select Case Target.Column
Case 2 'Nummern der nicht selektierbaren/geschützten Spalten
Select Case Target.Column
Case objList.Range.Columns.Count + objList.Range.Column - 1
If Target.Row = objList.Range.Rows.Count + objList.Range.Row - 1 Then
objList.ListRows.Add
End If
Cells(Target.Row + 1, 1).Select
Case Else
Target.Offset(0, 1).Select
End Select
Case Else
End Select
End Sub