Ich habe 2 Makros die durch 2 einzelne Schalflächen gestartet werden.Sie funktionieren.1.Makro löscht die Ereignissprozedur.2.Makro wandelt die Werte in Festwerte um,verschiebt das Blatt in Mappe "Löhne2003" ,sortiert die Blätter nach Monaten,startet Makro2 und schliesst "Lohnvorlage15).Nun möchte ich aus diesen zwei Makros
ein einziges Makro erstellen (zusammensetzen)das mittels einer Schalfläche gestartet wird.Ich habe schon vieles probiert aber finde einfach keine Lösung.Was muss ich tun damit es funktioniert.
Sub Makro_in_Tabelle_loeschen()
Dim VBC_WSName As String
Dim ProzName As String
Dim Zeile As Long
Dim Zeilen As Long
Dim x As Integer
Dim i As Integer
ProzName = "Worksheet_Change"
VBC_WSName = "Tabelle2" ' Codenamen verwenden!!!!
With Workbooks("Lohn_Vorlage15.XLT").VBProject.VBComponents(VBC_WSName).CodeModule
Zeile = .ProcStartLine(ProzName, vbext_pk_Proc)
Zeilen = .ProcCountLines(ProzName, vbext_pk_Proc)
.DeleteLines Zeile, Zeilen
End With
End Sub