dyn. Tabelle auf anderes Tabellenblatt

[Serhat6161]

Hallo Rabe tut mir leid das ich immer so blöd meine anliegen shcildere :/
anbei die datei mit dem Makro MainData auf dem Prüfblatt

ich will die Arbeitssmappe äöndern können ohne das ich jedes mal mein Makro bearbeiten musss ansosnten bekomme ich ja eine Fehlermeldung in meinem makro

Die Tabellenblötter sind mit "ps" geschützt

[Rabe]

Hi,

anbei die datei mit dem Makro MainData auf dem Prüfblatt

Auf dem Prüfblatt ist kein Makro MainData.
Es geht also wohl um folgende Makros:

Option Explicit

Sub NeueZeile()
' 
' Makro3 Makro 
' 

' 
ActiveSheet.Unprotect "ps"
   Rows("24:24").Select
   Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
   Range("R12").Select
   ActiveSheet.Protect "ps"
End Sub

Sub Datum_Einfuegen()
' 
' Makro4 Makro 
' 

' 
ActiveSheet.Unprotect "ps"
   Range("A24").Select
   ActiveCell.FormulaR1C1 = Date
   Range("R14").Select
   ActiveSheet.Protect "ps"
End Sub

Sub Sortieren()
' 
' Sortieren Makro 
' 

' 
   Range("Tabelle1[Datum]").Select
   ActiveWorkbook.Worksheets("Prüfblatt").ListObjects("Tabelle1").Sort.SortFields. _
       Clear
   ActiveWorkbook.Worksheets("Prüfblatt").ListObjects("Tabelle1").Sort.SortFields. _
       Add Key:=Range("Tabelle1[[#Headers],[#Data],[Datum]]"), SortOn:= _
       xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   With ActiveWorkbook.Worksheets("Prüfblatt").ListObjects("Tabelle1").Sort
       .Header = xlYes
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With
   Range("R22").Select
End Sub

Sub MainData()
' 
' Makro6 Makro 
' 

' 
   Call NeueZeile
   Call Datum_Einfuegen
   Call Sortieren
End Sub

VBA/HTML - CodeConverter für Office-Foren, AddIn für Excel/Word 2000-2013 - komplett in VBA geschrieben von Lukas Mosimann. Projektbetreuung durch mumpel
Code erstellt und getestet in Office 14

Willst Du den Dateinamen ändern oder den Tabellenblatt-Namen?

Falls es um die Datei geht, würde ich das Makro so kürzen:

Sub MainData()
' 
' Makro6 Makro 
' 

' 
   Call NeueZeile
   Call Datum_Einfuegen
   Call Sortieren
End Sub

VBA/HTML - CodeConverter für Office-Foren, AddIn für Excel/Word 2000-2013 - komplett in VBA geschrieben von Lukas Mosimann. Projektbetreuung durch mumpel
Code erstellt und getestet in Office 14

Insgesamt würde ich mal die ganzen Makros zusammenfassen, denn so viele Module sind nicht notwendig.

Ich habe mal ein bißchen rumgespielt:

  ASAP_Prüfblatt_2015_p_Rabe.xlsm (Größe: 646,19 KB / Downloads: 0)

[Serhat6161]

Wow einfach klasse....ihr leute seit die besten klappt wunderbar.....war eben nur für die arbeitsmappe gedacht die call fnkt funktioniert ^^ vielen vielen dank