Makro aktivieren über Add In!?

Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("Kopie").Select Rows("4:5").Select ActiveSheet.Unprotect Selection.Insert Shift:=xlDown Range("A4").Select Sheets("Schichtbericht").Select Range("A19:D20").Select Selection.Copy Sheets("Kopie").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False If Range("A60000") <> "" Then Range("A10000:D60000").Delete Shift:=xlUp End If Range("A1").Select Application.CutCopyMode = False ActiveSheet.Protect Sheets("Schichtbericht").Select Range("P19:S19").Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim n As String n = ActiveWorkbook.Name On Error GoTo ende If n Like "Schichtbericht*.xls" Then Sheets("Kopie").Select Rows("4:5").Select ActiveSheet.Unprotect etc. 'ggf. noch ein else: exit sub End If ende: End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim n As String n = ActiveWorkbook.Name On Error GoTo ende If n Like "Schichtbericht.xls" Then Sheets("Kopie").Select Rows("4:5").Select ActiveSheet.Unprotect Selection.Insert Shift:=xlDown Range("A4").Select Sheets("Schichtbericht").Select Range("A19:D20").Select Selection.Copy Sheets("Kopie").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False If Range("A60000") <> "" Then Range("A10000:D60000").Delete Shift:=xlUp End If Range("A1").Select Application.CutCopyMode = False ActiveSheet.Protect Sheets("Schichtbericht").Select Range("P19:S19").Select 'ggf. noch ein else: exit sub 'End If 'ende: End Sub

OK...ich glaub es hing am Sternchen und am auskommentierten End If
Habs mal korrigiert. Das Sternchen hinter Schichtbericht besagt, dass hinter Schichtbericht noch irgendwas stehen kann. Ohne Sternchen sucht er streng nach Schichtbericht.xls. Klar das er da direkt aufgehört hat.
Hochkomma vor End If kommentiert die Zeile aus. Das wäre die nächste Fehlermeldung geworden (If-Block ohne End If)


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim n As String
n = ActiveWorkbook.Name
On Error GoTo ende
If n Like "Schichtbericht*.xls" Then
Sheets("Kopie").Select
Rows("4:5").Select
ActiveSheet.Unprotect
Selection.Insert Shift:=xlDown
Range("A4").Select
Sheets("Schichtbericht").Select
Range("A19:D20").Select
Selection.Copy
Sheets("Kopie").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
If Range("A60000") <> "" Then
Range("A10000:D60000").Delete Shift:=xlUp
End If
Range("A1").Select
Application.CutCopyMode = False
ActiveSheet.Protect
Sheets("Schichtbericht").Select
Range("P19:S19").Select
'ggf. noch ein else: exit sub
End If
ende:
End Sub

Das kriegen wir schon hin ;-))
Harald

Momentmal....ich versteh nur XLstart und AddIn.
Solltest Du das Ding als Addin speichern (leere Mappe mit Modul unter *.xla),steckt Excel die sofern Du nichts änderst in diesen Ordner
Anwendungsdaten/Office/AddIns
XLStart, ist lediglich eine zusätzliche Startdatei, die beim Excelstart mit geöffnet wird. Das ist nicht das Gleiche wie ein Add-In.
Add-Ins bindest Du über den Addins-Manager ein und nicht über zusätzliche Startordner.


Sub test()
Dim n As String
n = ActiveWorkbook.Name
On Error GoTo ende
If n Like "Schichtbericht*.xls" Then
msgbox "Treffer"
else
msgbox "Das wars noch nicht"
end if
End Sub

Das da ist mal kurz aus dem Handgelenk, damit Du testen kannst, ob er überhaupt den Dateinamen akzeptiert.
Also entweder du speicherst das Modul im zusätzlichen Startordner als xls, oder als AddIn (*.xla) und bindest per Manager ein.
Mach hin...ich hab um 14.30 Feierabend ;-)))
Harald

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread