AW: Code zum Ausblenden von Zeilen mit Bedingung
Zeilen
Hi Jens,
ob Excel das geeignete Tool dafür ist, kann ich so nicht beantworten.
Das hängt primär noch davon ab, was du mit den Daten (wenn sie denn mal alle eingetragen sind) anfangen willst.
Von der Datenmenge (800 Zeilen + 100 Spalten) macht Excel das gut mit.
Zu deinem Code.
Hier gibt es bestimmt noch bessere Möglichkeiten, als jene, die ich dir jetzt vorschlage, aber dafür brauchst du dann schon etwas mehr VBA-Erfahrung, um das an deine Bedürfnisse anzupassen.
Mein Vorschlag:
Füge eine neue Spalte ein (SpalteA). Diese kannst du anschließend ausblenden, so dass sie das Bild deiner Tabelle nicht beeinträchtigt.
In dieser Spalte schreibst du zu jeder Zeile, zu welcher "Branche" die jeweilige Zeile gehöhrt.
Bsp: "hwk" für "Handwerk", "hnd" für "Handel", etc.
wenn du jetzt alle Zeilen ausblenden willst, die "Handwerk" und "1999" betreffen, dann geht das mit dem folgenden Makro
Sub ZeilenAus_hwk_1999()
Dim LRow As Integer, i As Integer
Dim strBranche as String, strJahr as String
strBranche = "hwk" 'für andere Kriterien brauchst du nur noch hier zu ändern
strJahr = "1999" 'und hier ebenso
Application.ScreenUpdating = False
LRow = Cells(Rows.Count, 3).End(xlUp).Row '3 ist die erste relevante Zeile
For i = 3 To LRow
If Cells(i, 1) = strBranche And Cells(i, 3) = strJahr Then
Rows(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub
wenn du diese Zeilen wieder einblenden willst, dann das gleiche Makro, nur statt:
Rows(i).Hidden = True
jetzt
Rows(i).Hidden = False
wenn du alle Zeilen wieder einblenden willst, dann:
Sub ZeilenEin()
Cells.EntireRow.Hidden = False
End
Sub
Gruß
Christoph
('ne Rückmeldung wäre nett)