Office: Makro beim speichern ausführen

Hallo liebe VBA'ler.

Ich habe mir ein Makro mit verschiedenen Anweisung zusammengebastelt.

Habe leider selbst überhaupt keine Ahnung von VBA, sondern ziehe mir meine Info aus dem Netz und passe Sie für mich an, wo ich auch schnell an meine Grenzen komme.

Könnt ihr mir vielleich helfen, wie ich den unten stehenden Code so umwandeln kann, dass er ALLE Makros (nicht nur die Sortierung) beim speichern ausführt.

Für eure Hilfe meinen besten Dank vorab *hands

--
Option Explicit
Sub Verschieben()
Dim lngRow As Long
Dim lngFirstRow As Long
Application.ScreenUpdating = False
For lngRow = Sheets("Kreditoren").Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).Row To 4 Step -1
If LCase(Sheets("Kreditoren").Cells(lngRow, 4)) = LCase("abgelaufen") Then
Sheets("Kreditoren").Rows(lngRow).Copy
Sheets("abgelaufen").Cells(Sheets("abgelaufen").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row, 1).PasteSpecial
Sheets("Kreditoren").Rows(lngRow).Delete Shift:=xlUp
End If
Next lngRow
End Sub

Sub Verschieben1()
Dim lngRow As Long
Dim lngFirstRow As Long
Application.ScreenUpdating = False
For lngRow = Sheets("abgelaufen").Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).Row To 4 Step -1
If LCase(Sheets("abgelaufen").Cells(lngRow, 5)) = LCase("aktuell") Then
Sheets("abgelaufen").Rows(lngRow).Copy
Sheets("Kreditoren").Cells(Sheets("Kreditoren").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row, 1).PasteSpecial
Sheets("abgelaufen").Rows(lngRow).Delete Shift:=xlUp
End If
Next lngRow
End Sub

Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Kreditoren").Activate
ActiveSheet.Range("A4:G100").Select
Selection.Sort Key1:=Range("A1:A100"), Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom

Sheets("Debitoren").Activate
ActiveSheet.Range("A4:E100").Select
Selection.Sort Key1:=Range("A1:A100"), Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom

Sheets("abgelaufen").Activate
ActiveSheet.Range("A2:G100").Select
Selection.Sort Key1:=Range("A1:A100"), Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom


End Sub
--

Liebe Grüße, Krissi

:)

 

rufe unter
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
alle Makros auf

 

Hallo Hajo *winken

Danke für deine Antwort.

Ich weiß, dass es so geht (theoretisch). Aber wie ich das jetzt so einbaue, dass es auch funktioniert, weiß ich eben nicht... Ich hab jetzt schon die verschiedensten Varianten versucht, aber komme auf keinen grünen Zweig. Ich probier' ja nur rum und hab gar kein Hintergrundwissen *redface

Könntest du mir den fertigen, umgeschriebenen Code vielleicht hier rein kopieren???

LG, Krissi.

 

dazu kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.