Zeilen per VBA aus- und einblenden
22.04.2015 12:24:32
Paul
ich habe vor einiger Zeit von euch Hilfe bekommen wie ich Zeilen ein- und ausblenden kann wenn eine bestimmte Zelle einen bestimmten Wert hat. Wie ich nun herausgefunden habe funktioniert das nur wenn ich den Wert per Hand ändere, nicht aber wenn ich den Wert durch eine Formel berechnen lasse, weder per WENN-Funktion noch durch INDIREKT. Falls ihr dafür eine Lösung habt bin ich sehr dankbar.
Ansonsten habe ich jetzt versucht die Zeilen über eine Schaltfläche ein- und auszublenden. Das funktioniert aber auch nicht so richtig. Mein Ziel ist gleichzeitig bestimmte Zeilen ein- und andere Zellen auszublenden, um Daten bearbeiten zu können. Durch erneutes drücken soll der Vorgang wieder Rückgängig gemacht werden. Hier mal mein Code für die Schaltfläche:
Sub BearbeitenEin()
Rows("13:15").Select
Rows("44:47").Select
Rows("76:79").Select
Rows("108:111").Select
Rows("140:143").Select
Rows("172:175").Select
Rows("204:207").Select
Rows("236:239").Select
Rows("268:271").Select
Rows("300:303").Select
Rows("332:335").Select
Rows("363:365").Select
Rows("24:24").Select
Rows("56:56").Select
Rows("88:88").Select
Rows("120:120").Select
Rows("152:152").Select
Rows("184:184").Select
Rows("216:216").Select
Rows("248:248").Select
Rows("280:280").Select
Rows("312:312").Select
Rows("344:344").Select
Selection.EntireRow.Hidden = True
Rows("11:12").Select
Rows("38:43").Select
Rows("70:75").Select
Rows("102:107").Select
Rows("134:139").Select
Rows("166:171").Select
Rows("198:203").Select
Rows("230:235").Select
Rows("262:267").Select
Rows("294:299").Select
Rows("326:331").Select
Rows("358:362").Select
Rows("23:23").Select
Rows("55:55").Select
Rows("87:87").Select
Rows("119:119").Select
Rows("151:151").Select
Rows("183:183").Select
Rows("215:215").Select
Rows("247:247").Select
Rows("279:279").Select
Rows("311:311").Select
Rows("343:343").Select
Selection.EntireRow.Hidden = False
End Sub
Vielen Dank für eure Hilfe!
Paul.