Makro auslösen
Werner
ich habe folgendes Makro geschrieben, was 50 mal durchlaufen soll und zwar wenn ich das Tabellenblatt Aktiviere..............
Private Sub Worksheet_Activate()
MAgeez 50
End Sub
Sub MAgeez(ByVal TabNumber As Long)
Dim objWs As Worksheet
Set objWs = Sheets("Tabelle" & CStr(TabNumber))
With Sheets("Gehälter")
If .Cells(10 + TabNumber, 14) = 1 Then
If MsgBox("soll die Erhöhung von " & " " & .Cells(10 + TabNumber, 1) & _
" wirklich übernommen werden?", vbYesNo) = vbYes Then
.Range("R3") = .Range("Y2")
.Cells(10 + TabNumber, 7) = objWs.Range("E21")
objWs.Range("J14") = 0
End If
End If
If .Cells(10 + TabNumber, 15) = 1 Then
If MsgBox("Bitte bestädigen Sie die Aktualisierung von" & " " & _
.Cells(10 + TabNumber, 1), vbYesNo) = vbYes Then
.Cells(10 + TabNumber, 18) = .Cells(10 + TabNumber, 10)
.Range("R3") = Range("Y2")
objWs.Range("B5") = .Cells(10 + TabNumber, 30).Value
.Range(.Cells(10 + TabNumber, 18), .Cells(10 + TabNumber, 20)).ClearContens
.Range(.Cells(10 + TabNumber, 23), .Cells(10 + TabNumber, 25)).ClearContens
.Cells(10 + TabNumber, 7) = ""
.Cells(10 + TabNumber, 10) = ""
End If
End If
End With
Set objWs = Nothing
End Sub ..... Es wird aber nicht ausgelöst. Wo hab ich da den Fehler?
Viele Grüße Werner