AW: Per Code in Workbook_Open Ereignis schreiben
21.08.2008 09:26:23
Heiko
Hallo ?
hast du keinen Namen ?!
z.B. so:
Sub VBA_Code_Rein()
Dim lngI As Long
On Error GoTo Errorhandler
' Erstmal die Zeile finden wo Workbooks_Open beginnt
With ActiveWorkbook.VBProject.VBComponents("DieseArbeitsmappe").CodeModule
For lngI = 1 To .CountOfLines
If InStr(.Lines(lngI, 1), "Workbook_Open") > 0 Then
'MsgBox .Lines(lngI, 1)
Exit For
End If
Next lngI
' Und nun in die nächste Zeile den neuen Code einfügen
.InsertLines lngI + 1, "Msgbox ""Hello"""
End With
Exit Sub
' Bei Fehlernummer 1004, diese Meldung ausgeben.
Errorhandler:
If Err.Number = 1004 Then
MsgBox "Das Löschen des VBA Codes ist fehlgeschlagen!" & vbCr & _
"Bitte überprüfen Sie folgende Einstellung! " & vbCr & _
"EXTRAS -> MAKRO -> SICHERHEIT -> Vertrauenwürdige Quellen." & vbCr & _
"'Zugriff auf Visual Basic Projekt vertrauen' muss aktiviert sein! ", vbCritical, _
" Meldung vom Makro VBA_Code_Rein"
Else
MsgBox "Err.Number = " & Err.Number & ". " & Err.Description, vbCritical
End If
End Sub
Gruß Heiko
PS: Rückmeldung wäre nett !