Makro beim öffnen ausführen
02.03.2016 09:43:11
Ro
habe wieder mal ein Problem.
Und zwar geht es darum, dass ein Makro sofort nach dem öffnen der Datei ausgeführt werden soll.
Um folgendes Makro geht es (steht bisher in Modul 1):
Sub ListeErstellen(ByVal Zelle As Range)
Dim wksDst As Worksheet
Dim lrow As Long
If Zelle.Column 7 And Zelle.Row > 17 Then
If IsDate(Zelle.Value) Then
If Date - Zelle.Value > 300 Then
Set wksDst = ActiveWorkbook.Worksheets("Monitor Nachschulungen")
lrow = wksDst.Cells(Rows.Count, 3).End(xlUp).Row + 1
wksDst.Cells(lrow, 3) = Worksheets("Schulungskalender").Cells(Zelle.Row, 2)
wksDst.Cells(lrow, 2) = Worksheets("Schulungskalender").Cells(7, Zelle.Column)
wksDst.Cells(lrow, 4) = Worksheets("Schulungskalender").Cells(5, Zelle.Column)
End If
End If
End If
End Sub Bisher wird dieses durch folgenden Code aufgerufen (steht bisher im Reiter Schulungskalender):
Private Sub Worksheet_Change(ByVal Target As Range)
Call ListeErstellen(Target)
End Sub
Private Sub Workbook_Open" im Register DieseArbeitsmappe hinbekommt, aber irgendwie bekomme ich _
das nicht hin...
Hat irgendjemand von euch eine Idee wie das zu lösen ist?
Betse Grüße,
ROXI
Anzeige