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