Excel 2007 Ein und ausblenden von Zeilen

Question

Hallo leute

Ich hbae ein Problem. Ich muss eine Tabelle erstellen um die Lebenswegkosten von Systemen und Subsystemen zu berechnen.
Da ein Hauptsystem nicht immer gleich viele Subsysteme besitzt möchte ich die nicht benötigten Zeilen jeweils aus und wieder einblenden können.

Also wenn in der Zelle B110 der Text Subsystem 2 steht sollen die Zeilen 111, 250, 299, 348, 397, 446, 495, 544, 595, 644, 693, 742, 791, 840, 899, 940, 989, 1038, 1087, 1236 und 1185 ausgeblendet werden. Und wenn irgend ein anderer Text in der Zelle B110 steht (der jeweilige Systemname) sollen die Zeilen eingebelndet sein. Der Text wird jeweil manuell in die Zelle B110 eingetragen.

Wäre genial wenn ich da eine lösung finden würde.

Gruss
Gerhard

Answer 1

Hallo,

kopiere das folgende Makro in das VBA-Projekt des betreffenden Arbeitsblattes:

[code]Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("B110").Value = "Subsystem 2" Then
 Range("111:111,250:250,299:299,348:348, 397:397, 446:446, 495:495, 544:544, 595:595, 644:644, 693:693, 742:742, 791:791, 840:840, 899:899, 940:940, 989:989, 1038:1038, 1087:1087, 1236:1236,1185:1185").Rows.EntireRow.Hidden = True
Else
 Range("111:111,250:250,299:299,348:348, 397:397, 446:446, 495:495, 544:544, 595:595, 644:644, 693:693, 742:742, 791:791, 840:840, 899:899, 940:940, 989:989, 1038:1038, 1087:1087, 1236:1236,1185:1185").Rows.EntireRow.Hidden = False
End If

End Sub[/code]

Falls du nicht weißt, wie das geht, so findest du [url=http://www.excelbeispiele.de/Tabelle.htm]hier[/url] eine Anleitung.

Gruß

M.O.

Answer 2

Besten Dank für die Hilfe hat super geklappt!