Position von MakroButton fixieren
19.04.2013 13:08:51
MakroButton
ich habe 2 Makro Buttons "Schritt 3" und "Druckhilfe" - Siehe Bild (die Codes habe ich unten gepostet).
Führt man das Makro "Druckhilfe" aus, so werden die Spalten "PN, AG, Status und Ende" ausgeblendet. Das führt dazu, dass sich der Makro-Button nach links verschieben würde (da die Spalten ja verschwinden). Daher die fett markierte Zeile im Code. Sie führt dazu, dass der Button nach rechts verschoben wird, wenn man auf ihn klickt. Klickt man anschließend "Schritt 3", so wird der "Druckhilfe" Button wieder an seine ursprüngliche Position gerückt. (Siehe Code).
Daraus resultiert natürlich folgendes Problem: Klick man nur den Button mit "Schritt 3", so entsteht eine Überlappung der beiden Buttons. (Siehe Bild).
Meine Frage: Wie kann ich das verhindern? Kann ich die Buttons irgendwie fixieren? ALternativ ist meine Idee gerade, dass man in den "Schritt 3" Makro eine Zeile einfügt, die dazu führt, dass die "Druckhilfe" wirklich nur dann nach links verschoben wird, wenn sie vorher verwendet wurde. Das sollte doch eigentlich unkompliziert zu schreiben sein? Ich habe selbst halt leider absolut keine Ahnung wie das geht.
Hier nun die Codes - und vielen Dank für etwaige Hilfe:
Code von Makro Schritt 3:
Sub Schritt_2_Ergebnisstabelle_bitte_zuruecksetzen()
' Makro1 Makro
ActiveSheet.Columns("C:C").Hidden = False
ActiveSheet.Columns("E:E").Hidden = False
ActiveSheet.Columns("F:F").Hidden = False
ActiveSheet.Columns("G:G").Hidden = False
Rows("3:3").Select
ActiveWindow.SmallScroll Down:=135
ActiveWindow.ScrollRow = 135
ActiveWindow.SmallScroll Down:=5967
Rows("6128:6128").Select
ActiveWindow.ScrollRow = 6101
ActiveSheet.Shapes("Button 2").IncrementLeft -102
Sheets("EE-Portfolio ").Select
End Sub
Code von der Druckhilfe:
Sub Druckhilfe()
' Druckhilfe Makro
ActiveSheet.Columns("C:C").Hidden = True
ActiveSheet.Columns("E:E").Hidden = True
ActiveSheet.Columns("F:F").Hidden = True
ActiveSheet.Columns("G:G").Hidden = True
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.PageSetup.PrintArea = "$A$2:$I$4"
ActiveSheet.PageSetup.PrintArea = "$A$2:$I$15"
ActiveWindow.SmallScroll Down:=0
ActiveSheet.PageSetup.PrintArea = "$A$2:$I$75"
ActiveWindow.Zoom = 50
ActiveWindow.Zoom = 40
ActiveWindow.ScrollRow = 74
ActiveSheet.Shapes.Range(Array("Button 2")).Select
ActiveSheet.Shapes("Button 2").IncrementLeft 102
ActiveWindow.SmallScroll Down:=-10000
End Sub
Anzeige