Add In beim Start ausführen
16.07.2008 11:29:00
Martin
Problem: wenn das Script als Add-In eingebunden ist, erfolgt der Aufruf nicht bzw. funktioniert es nicht.
Hat jemand einen Tip, wie man so ein Problem angeht?
Danke!
Martin Hupf
Sub SpezGewichtLösch()
Dim wks As Worksheet
Dim blatt As String
Application.DisplayAlerts = False
blatt = "Spez. Gewicht"
For Each wks In ActiveWorkbook.Worksheets
If wks.Name = blatt Then
If ActiveWorkbook.Sheets("Spez. Gewicht").Range("A1").Value = "Spezifisches Gewicht" Then
Worksheets("Spez. Gewicht").Rows(1).Delete
End If
End If
Next
End Sub
Public Sub Workbook_Open()
Call SpezGewichtLösch
End Sub
*********************************************