Makro mit Nachfrage
04.05.2005 17:25:15
Th.
Nochmal zum Problem...
Ich hab 2 Makros.
1.
Sub Sollstunden_April()
' Sollstunden_April Makro
' Makro am 02.05.2005 von TRitter aufgezeichnet
' Tastenkombination: Strg+r
Range("B83") = Range("K16").Value
Range("C83") = Range("M16").Value
Range("E83") = Range("C16").Value
Range("F83") = Range("E16").Value
Range("G83") = Range("G16").Value
Range("H83") = Range("I16").Value
Range("I83") = Range("K16").Value
Range("J83") = Range("M16").Value
Range("L83") = Range("C16").Value
Range("M83") = Range("E16").Value
Range("N83") = Range("G16").Value
Range("O83") = Range("I16").Value
Range("P83") = Range("K16").Value
Range("Q83") = Range("M16").Value
Range("S83") = Range("C16").Value
Range("T83") = Range("E16").Value
Range("U83") = Range("G16").Value
Range("V83") = Range("I16").Value
Range("W83") = Range("K16").Value
Range("X83") = Range("M16").Value
Range("Z83") = Range("C16").Value
Range("AA83") = Range("E16").Value
Range("AB83") = Range("G16").Value
Range("AC83") = Range("I16").Value
Range("AD83") = Range("K16").Value
Range("AE83") = Range("M16").Value
End Sub
2.
Sub SollIst_April()
' SollIst_April Makro
' Makro am 02.05.2005 von TRitter aufgezeichnet
' Tastenkombination: Strg+f
Range("B83:AE83").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=-9
Range("B86").Select
ActiveSheet.Paste
Range("AI91").Select
End Sub
Ist bestimmt nicht professionell aber es funktioniert :-)
Nun zur Frage:
Kann ich das bestehende irgendwie erweitern das Excel mit einem Popup oder ähnlichem erst nachfragt ob das Makro wirklich ausgeführt werden soll?
Also in etwa: Soll das Makro Monat XYZ wirklich ausgeführt werden? Ja/Nein
Wichtig wäre mir irgendwie zusätzliche Zeilen vor mein Makro da ich das dann vor die Monate kopieren wollen würde, an denen die Nachfrage dann erfolgen soll, also zB abgelaufene Monate...
Zudem sollte mein Makro so bleiben da ich bisher erhaltene Ratschläge meist nicht nachvollziehen konnte und daher aucn andere dann nicht anwenden konnte...
Ansonsten schon mal Danke
MfG aus Berlin
Thomas