AW: Makros per VBA deaktivieren
21.05.2004 17:56:30
Thorsten
Das habe ich.
Vielleicht liegt es auch an etwas anderem, auf das ich nie kommen würde.
Also hier mal der Code:
Private Sub Namen_Click()
Const Filter_Liste = "Excel Arbeitsmappe (*.xls),*.xls"
Const iTitle = "Vorbereitung der Datenübernahme"
Dim ausb, kurs, Namen, gewichtung As Range
Dim alte_Liste As String
Unload Datenübernahme
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error GoTo beiFehler
With Application
alte_Liste = .GetOpenFilename(FileFilter:=Filter_Liste, FilterIndex:=2, Title:=iTitle)
End With
If alte_Liste = "Falsch" Then
MsgBox Prompt:="Operation abgebrochen", Title:=iTitle & " fehlgeschlagen"
Exit Sub
End If
Set ausb = Worksheets("Übersicht").Range("D1")
Set kurs = Worksheets("Übersicht").Range("D2")
Set Namen = Worksheets("Übersicht").Range("B5:C34")
Set gewichtung = Worksheets("Übersicht").Range("D35:E35")
Workbooks.Open Filename:=alte_Liste
ausb.Value = Worksheets("Übersicht").Range("D1").Value
kurs.Value = Worksheets("Übersicht").Range("D2").Value
Namen.Value = Worksheets("Übersicht").Range("B5:C34").Value
gewichtung.Value = Worksheets("Übersicht").Range("D35:E35").Value
ActiveWorkbook.Close SaveChanges:=False
Worksheets("Übersicht").Select
beiFehler:
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Folgendes passiert:
Zellinhalte werden kopiert.
Die neu geöffnete Datei wird in den Vordergrund geholt und Excel aktiviert genau das Tabellenblatt, wo das Auto_Close Makro eintragungen macht (eine Art Logliste).
mfg Thorsten