Makro erweitern

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 2002
nach unten

Betrifft: Makro erweitern
von: Mike
Geschrieben am: 17.04.2002 - 19:37:15

Hallo zusammen,
habe nachfolgendes Makro in einem allg. Modul stehen und zur Ausführung einer Schaltfläche in der Tabelle zugewiesen:

Option Explicit

Public Loeschen As Boolean

Sub Einträge_löschen()
Dim strAntwort As String

strAntwort = MsgBox("Achtung: Alle Einträge werden gelöscht!", _
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 Worksheets(1).Range("N2")
.Value = .Value + 1
End With
With Application
.EnableEvents = True 'Ereignissprozeduren wieder aktivieren.
.ScreenUpdating = True 'Bildschirmaktualisierung wieder einschalten.
End With
End Sub

Ich möchte nun das Makro noch so erweitern, dass auch ein vorhandenes Datum in Zelle "N7" immer mit dem aktuellen Datum überschrieben wird.

Wie lautet dann das neue Makro?

Gruß Mike


nach oben   nach unten

Re: Makro erweitern
von: Hajo
Geschrieben am: 17.04.2002 - 19:43:44

Hallo Mike ergänze voe end With .Range("N17") = Date Gruß Hajo

nach oben   nach unten

Re: Makro erweitern
von: WernerB.
Geschrieben am: 17.04.2002 - 19:48:27

Hallo Mike, füge diese Zeile in Dein Makro ein (die Stelle am Ende zwischen 'End With' und 'With Application' bietet sich dafür an): Range("N7").Value = Date Das ist/war schon alles! Viel Erfolg wünscht WernerB.

nach oben   nach unten

Korrektur
von: WernerB.
Geschrieben am: 17.04.2002 - 19:55:59

Hallo Mike, mir ist gerade erst aufgefallen, dass Du ja den Blattschutz aktivierst. Deshalb würde ich unmittelbar vor .Range("F2").Select noch die Zeile .Range("N7").Value = Date einfügen. MfG WernerB.

nach oben   nach unten

Danke euch beiden. Klappt. o.T.
von: Mike
Geschrieben am: 17.04.2002 - 20:05:41

.

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Makro erweitern"