18.02.2019, 16:33
Hallo,
ich weiss nicht so richtig, wie ich das Problem für die Suche formulieren kann. Mit meiner Überschrift bsw. komme ich da leider nicht weiter.
Aber letztlich beschreibt die Überschrift durchaus mein Problem. Also:
ich habe eine Exceltabelle, die ich als Formular für ein Protokoll einrichte, das auch andere Kollegen benutzen können.
Um vom Benutzer ggf. unnötige Zeilen ausblenden zu können, verwende ich ein Makro, das über eine Schaltfläche in der jeweiligen Zeile darüber die Zeilen ein- und ausblendet (im Beispiel blendet die Schaltfläche auf M184 die Zeilen 185-194 ein und aus.
Das sieht so aus:
und funktioniert auch.
Allerdings fallen mir derzeit bei der Entwicklung des Formular immer wieder neue Sachen ein und es wird ggf. später auch immer wieder Ergänzungen geben, die irgendwo im Formular eingepflegt werden müssen.
Ist es also möglich, die Zeilen:
so zu verändern, dass sich die Zeilenangaben (hier 184, 185, 194), beim Einfügen von bsw. 6 neuen Zeilen oberhalb von Zeile 184 in die Zeilenangaben 190, 191 u. 200 ändern ?
Wobei mir natürlich nicht die Zahlenwerte zum Lesen im Makro wichtig sind. Ich wollte damit nur die Funktion veranschaulichen.
Grüße aus dem Münsterland
vom Olaf
PS: ich nutze offline Office 365, Excel sollte also aktuell sein.
ich weiss nicht so richtig, wie ich das Problem für die Suche formulieren kann. Mit meiner Überschrift bsw. komme ich da leider nicht weiter.
Aber letztlich beschreibt die Überschrift durchaus mein Problem. Also:
ich habe eine Exceltabelle, die ich als Formular für ein Protokoll einrichte, das auch andere Kollegen benutzen können.
Um vom Benutzer ggf. unnötige Zeilen ausblenden zu können, verwende ich ein Makro, das über eine Schaltfläche in der jeweiligen Zeile darüber die Zeilen ein- und ausblendet (im Beispiel blendet die Schaltfläche auf M184 die Zeilen 185-194 ein und aus.
Das sieht so aus:
Code:
Dim varAusblend1 As Range
Dim varSchalter1 As Range
Set varAusblend1 = ActiveSheet.Rows("185:194")
Set varSchalter1 = ActiveSheet.Cells(184, 13)
If varSchalter1.Value = ChrW(10004) And varAusblend1.Hidden = True Then
varAusblend1.Hidden = False
Else
If varSchalter1.Value <> ChrW(10004) And varAusblend1.Hidden = False Then
varAusblend1.Hidden = True
End If
End If
und funktioniert auch.
Allerdings fallen mir derzeit bei der Entwicklung des Formular immer wieder neue Sachen ein und es wird ggf. später auch immer wieder Ergänzungen geben, die irgendwo im Formular eingepflegt werden müssen.
Ist es also möglich, die Zeilen:
Code:
Set varAusblend1 = ActiveSheet.Rows("185:194")
Set varSchalter1 = ActiveSheet.Cells(184, 13)
Wobei mir natürlich nicht die Zahlenwerte zum Lesen im Makro wichtig sind. Ich wollte damit nur die Funktion veranschaulichen.
Grüße aus dem Münsterland
vom Olaf
PS: ich nutze offline Office 365, Excel sollte also aktuell sein.