mal wieder brauche ich eure Hilfe.
In TB Sortierung Abteilung haben wir eine Tabelle A bis i auch hier geben wir Daten ein. Diese sind über Filter sortiert nach Abteilung.
Jetzt wollte ich per Makro aufzeichnen diese Kopieren und in Tabellenblatt nach Namen sortiert. haben.
Ich habe auch einen Blattschutz hinterlegt. leider frägt Excel mich immer ab. das möchte ich aber nicht. es sollte automatisch gehen, da alle MA zugriff haben.
Das zweite Problem liegt am Kopieren da macht Excel einen Fehler bei
ActiveWorkbook.Worksheets("Sortierung nach Namen").ListObjects("Tabelle14"). _
Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sortierung nach Namen").ListObjects("Tabelle14"). _
Sort.SortFields.Add Key:=Range("Tabelle14[[#All],[Name]]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sortierung nach Namen").ListObjects("Tabelle14"
( jedesmal beim Tabellenblatt wechseln wird Tabelle 14 dann 15 , 16 usw...
Hier der Code:
Private Sub Worksheet_Activate()
' Makro2 Makro
Sheets("Sortierung nach Namen").Select
ActiveSheet.Unprotect
Sheets("Sortierung Abteilung").Select
Columns("A:I").Select
Selection.Copy
Sheets("Sortierung nach Namen").Select
Columns("A:A").Select
ActiveSheet.Paste
Range("D6").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Sortierung nach Namen").ListObjects("Tabelle14"). _
Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sortierung nach Namen").ListObjects("Tabelle14"). _
Sort.SortFields.Add Key:=Range("Tabelle14[[#All],[Name]]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sortierung nach Namen").ListObjects("Tabelle14" _
).Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("J5").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Sortierung Abteilung").Select
Range("Tabelle1[[#Headers],[Abteilung]]").Select
End Sub
Kann mir jemand helfen.Danke
Dieter