Clever-Excel-Forum

Hallo Gemeinde,

ich habe ein kleineres Problem bei der oben genannten Aufgabe.

Ich möchte, sobald ein neues Tabellenblatt eingefügt wird, ein Makro ausführen.
Dieser Code funktioniert soweit auch, aber nur wenn ich das Tabellenblatt über das +-Symbol einfüge.
Wenn ich jetzt hingegen ein Blatt aus einer anderen Mappe kopiere bzw. per Drag&Drop verschiebe funktioniert das nicht.
Gibts da eine Lösung für? :20:

Code:
Private Sub Workbook_NewSheet(ByVal Sh As Object)

    Call MeinMakro

End Sub

Sub MeinMakro()

    MsgBox "Funktioniert! :)"

End Sub

Besten Dank im Vorraus.

Code:
Option Explicit

Dim noSheets As Long

Private Sub Workbook_NewSheet(ByVal Sh As Object)

    MsgBox "New Sheet Added " & Sh.Name

    noSheets = ThisWorkbook.Sheets.Count

End Sub

Private Sub Workbook_Open()

    noSheets = ThisWorkbook.Sheets.Count

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    If ThisWorkbook.Sheets.Count > noSheets Then

        MsgBox "New Sheet Copied or Added " & Sh.Name

    End If

    noSheets = ThisWorkbook.Sheets.Count

End Sub

Funktioniert hervorragend.
Bin begeistert.

Vielen Dank für die super schnelle Lösung!

WeisserWolf611

Storax

WeisserWolf611