Hallo liebe VBA-Experten,
ich habe folgendes Ziel, bzw. Problem:
Ich würde gerne eine, sich wiederholende, Zahl (84) mit einer Variable ersetzen. Die Variable soll in Excel in eine Zeile eingegeben werden. Was mit diesem Wert gemacht werden soll habe ich schon programmiert. Mir fehlt nur noch, dass man die 84 nicht im VBA Code eintippen muss sondern in eine Zeile bei Excel. Kann mir da ein Experte helfen? Nachfolgend mein bisheriger Fortschritt:
Sub Kapa_Kurve1()
'
' Kapa_Kurve_1 Makro
'
'
Sheets("Kapaplanung1").Select
ActiveWindow.zoom = 84
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
End Sub
Sub Kapa_Kurve_2()
' Kapa_Kurve_2 Makro
Sheets("Kapaplanung2").Select
ActiveWindow.zoom = 84
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
End Sub
Sub Kapa_Kurve3()
' Kapa_Kurve3 Makro
Sheets("Kapaplanung3").Select
ActiveWindow.zoom = 84
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
End Sub
Sub Kapa_Kurve4()
' Kapa_Kurve4 Makro
Sheets("Kapaplanung4").Select
ActiveWindow.zoom = 84
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
End Sub
Sub Kapa_Kurve5()
' Kapa_Kurve5 Makro
Sheets("Kapaplanung5").Select
ActiveWindow.zoom = 84
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
End Sub
Sub Kapa_Kurve6O()
' Kapa_Kurve6 Makro
Sheets("Kapaplanung7").Select
ActiveWindow.zoom = 84
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
End Sub
Sub Kapa_Kurve8()
' Kapa_Kurve8 Makro
Sheets("Kapaplanung8").Select
ActiveWindow.zoom = 84
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
End Sub
Sub Kapa_Kurve9()
' Kapa_Kurve9 Makro
Sheets("Kapaplanung9").Select
ActiveWindow.zoom = 84
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
End Sub
Sub Kapa_Kurve10()
' Kapa_Kurve10 Makro
Sheets("Kapaplanung10").Select
ActiveWindow.zoom = 84
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
End Sub
Sub Kapa_Kurve11()
' Kapa_Kurve11 Makro
Sheets("Kapaplanung11").Select
ActiveWindow.zoom = 84
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
End Sub
Sub Kapa_Kurve12()
' Kapa_Kurve12 Makro
Sheets("Kapaplanung12").Select
ActiveWindow.zoom = 84
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
End Sub
Sub Kapa_Kurve13()
' Kapa_Kurve13 Makro
Sheets("Kapaplanung13").Select
ActiveWindow.zoom = 84
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
End Sub
Sub Zurueck_Kapazitaetsplanung()
' Zurueck_Kapazitaetsplanung_Auftraege Makro
Sheets("Kapa_Auftr").Select
ActiveWindow.zoom = 84
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
End Sub
|