Hallo Mike
schreibe Dein Makro in DieseArbeitsmappe unter
Private Sub Workbook_Open()
Gruß Hajo
Hallo Hajo,
danke für deine schnelle Antwort. Habe aber irgendwie ein Problem damit.
Unter "Diese Arbeitsmappe" steht bereits das Makro:
Private Sub Workbook_Open()
With Worksheets(1).Range("N2")
.Value = .Value + 1
End With
End Sub
Im allg. Modul steht das Löschen-Makro, das so beginnt:
Option Explicit
Public Loeschen As Boolean
Sub Einträge_löschen()
Dim strAntwort As String
usw.
Wie krieg ich das nun zusammen?
Danke für deine Geduld.
Gruß Mike
Hallo Mike
Einfach hinter End With kopieren.
Gruß Hajo
Hallo Hajo,
vielen Dank für deine Hilfeversuche, aber irgendwie kriege ich das nicht auf die Reihe. Wenn ich das so mache, kommt dann z.B. die Meldung, dass Option Explicit nicht erlaubt ist oder ein End Sub erwartet wird usw.
Trotzdem vielen Dank.
Gruß Mike
Hallo Mike
für die Fehlermitteilung muß ich den Code schon sehen sonst kann ich dazu auch nichts schreiben.
Gruß Hajo
Hallo Thomas,
in "Diese Arbeitsmappe" steht der Code:
Private Sub Workbook_Open()
With Worksheets(1).Range("N2")
.Value = .Value + 1
End With
End Sub
im Modul "Loeschen" steht der Code:
Option Explicit
Public Loeschen As Boolean
Sub Einträge_löschen()
Dim strAntwort As String
strAntwort = MsgBox("Achtung: Das gesamte Tabellenblatt wird zurückgesetzt!", _
vbExclamation + vbOKCancel, "Hinweis")
If strAntwort = vbCancel Then Exit Sub 'Bei "Abbrechen" abbrechen.
With Application
.ScreenUpdating = False 'Bildschirmaktualisierung abschalten.
.EnableEvents = False 'Ereignissprozeduren deaktivieren.
End With
With ActiveSheet
.Unprotect
Loeschen = True
.Range("F2").ClearContents 'Bereiche löschen.
.Range("F4").ClearContents 'Bereiche löschen.
.Range("G11:G13").ClearContents ' - analog -
.Range("G14:N14").ClearContents ' - analog -
.Range("I11:J11").ClearContents ' - analog -
.Range("I12:J12").ClearContents ' - analog -
.Range("I13:J13").ClearContents ' - analog -
.Range("G11:G13").ClearContents ' - analog -
.Range("L12:L13").ClearContents ' - analog -
.Range("N12:N13").ClearContents ' - analog -
.Range("A23:N34").ClearContents ' - analog -
.Range("D36:E36").ClearContents ' - analog -
.Range("F2").Select
Loeschen = False
.Protect
End With
With Application
.EnableEvents = True 'Ereignissprozeduren wieder aktivieren.
.ScreenUpdating = True 'Bildschirmaktualisierung wieder einschalten.
End With
End Sub
Wie bringe ich das nun unter einen Hut? Es soll also beim Öffnen der Mappe das Loeschen-Makro automatisch ausgeführt werden.
Gruß Mike
Hallo Mike
auch wenn ich nicht Thomas bin folgender Ansatz
Gruß Hajo
Gruß Mike