Zeilen aus-/einblenden mit Steuerungsfeld
Stefan
ich habe immer noch keine Lösung für mein Problem, deshalb bitte ich nochmal um Hilfe. Also folgendes, ich habe eine Mappe mit Namen Anfrage in der sich ein Anfrageformular mit 20 Positionen á 6 Zeilen befindet. Nun werden nicht immer 6 Zeilen benötigt. Die nichtbenötigten Zeilen möchte ich schrittweise mittels z.B. des Drehfeldes aus- oder einblenden können. Und das mit einer Schaltfläche für jede Auftragsposition.
In der 2. Mappe mit Namen Auftrag befindet sich das Auftragsformular, welches Ähnlich aufgebaut ist wie die Anfrage und sich auch die Daten von dort holt.
Auch hier sollen sich die Zeilen gem. der Eingabe in der Mappe Anfrage entsprechend ein- oder ausblenden.
Ich hoffe ich haltet mich nicht für verrückt, aber ich würde mich sehr freuen, wenn jemand eine Lösung hat. Ach ja, um das ganze auf die Spitze zu treiben: hier auf der Arbeit habe ich leider nur Excel 95 mit deutschem VBA zur Verfügung. Anbei ein Lösungsvorschlag von Karl-Otto (herzlichen Dank nochmal), der bei mir leider nicht funktioniert.
Danke und Gruß Stefan
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'''wird ausgelöst beim Anklicken einer Zelle
ActiveSheet.Rows.Hidden = False
ActiveSheet.Rows("11:" & [E1].Value).Hidden = True
End Sub
Anzeige