ich komme mal wieder nicht weiter, folgendes Makro benödige ich 175 mal :
Sub ma1geez()
Application.ScreenUpdating = False
Application.EnableEvents = False
With Sheets("Gehälter")
If .Range("N11") = 1 Then
If MsgBox("soll die Erhöhung von " & .Range("A11") & _
" wirklich übernommen werden?", vbYesNo) = vbYes Then
Sheets("Gehälter").Range("R3") = .Range("Y2")
.Range("G11") = Sheets("Tabelle1").Range("E20")
ma1ü
Sheets("Tabelle1").Range("J14") = 0
Else
Sheets("Tabelle1").Range("J14") = 0
End If
End If
If .Range("O11") = 1 Then
If MsgBox("Bitte bestätigen Sie die Aktualisierung von" & " " & .Range("A11"), vbYesNo) = vbYes Then
Sheets("Gehälter").Range("R11") = Range("J11")
Sheets("Gehälter").Range("R3") = .Range("Y2")
ma1ü
Range("G11") = ""
Else
Range("G11") = ""
End If
End If
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
und zwar von ma1geez - ma175geez, jetzt habe ich alle Makros in ein Modul geschrieben und in der Tabelle, wo ich es brauche habe ich folgendes Makro geschrieben.
Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
ma1geez
ma2geez
ma3geez
ma4geez
ma5geez
ma6geez
ma7geez
ma8geez
ma9geez
ma10geez
ma11geez
Application.ScreenUpdating = True
End Sub
das Makro wird zwar ausgelöst aber am Bildschirm sieht das nicht gut aus (Flimmern/ Flaggern)
Wer kann mir Helfen ?
Gruß Werner