If Funktion...
06.08.2004 19:40:04
Walter
in meinem Makro möchte ich abfragen, wenn die Datei da ist, dann i.o.
sonst weitermachen.
Sub N_Datenbank_Zeile_löschen()
Dim z
Dim Antwort
Sheets("Datenbank").Unprotect ("ww") 'schutz aufheben
z = ActiveCell().Row
If ActiveSheet.Range(Cells(z, 1), Cells(z, 9)).Select Then
Antwort = MsgBox("Zeile wirklich Löschen ???", vbYesNo)
If Antwort = vbNo Then
Worksheets("Datenbank").Activate
Else: Selection.Delete Shift:=xlUp
End If
End If
ActiveSheet.Range(Cells(z, 1), Cells(z, 1)).Select 'geht zur aktiven zelle
Sheets("Datenbank").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="ww"
'Hier soll rein: 1-nw-plk.xls da i.o., sonst Makro: N_NW_Aktualisieren
Application.Run "'1-nw-plk.xls'!N_NW_Aktualisieren"
Windows("1-NW-PLK-Datenbank.xls").Activate
End Sub
Gruß Walter