Zellen bei bestimmten Inhalt ein/ausblenden

Hallo,
habe folgendes Problem:
1. Habe angeblich Excel 2002 - gibt es das überhaupt? Oben in der Auswahl zumindest nicht...
2. Habe einen Dienstplan für eine kleine (20 Mitarbeiter) Firma entworfen mit mehreren Tabellen, die ineinander/untereinander zugreifen, abgleichen, etc. Per Dialogbox lege ich neue User an, die landen in Tabelle3, wenn Beginn/Ende des Arbeitsverhältnisses mit dem aktuellen Datum "übereinstimmen", wird der Mitarbeiter aktiv gesetzt. In Tabelle1 befindet sich der eigentliche Dienstplan, in dem ich über Shortcuts (Strg+e bzw. +a) und Makro alle Mitarbeiter oder nur die aktuell aktiven einblenden möchte, sprich die entsprechende Spalte. Wenn ich nicht ganz falsch liege, muss ich doch eine WENN-DANN-Funktion benutzen, die immer ein Feld (aktiv/inaktiv) mit einer Spalte verknüpft, die dann im jeweiligen Fall aus/eingeblendet wird. ABER WIE?
Bin um jede Hilfe dankbar...
Jan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub inaktivAusEin() Dim wks1 As Worksheet Dim wks3 As Worksheet Dim iCol As Integer Set wks1 = Sheets("Tabelle1") Set wks3 = Sheets("Tabelle3") If wks1.Rows(1).SpecialCells(xlCellTypeVisible).Count = 256 Then For iCol = 6 To wks3.Range("H65536").End(xlUp).Row wks1.Columns(iCol - 2).Hidden = UCase(wks3.Cells(iCol, 8)) = "NEIN" Next Else wks1.Columns.Hidden = False End If End Sub

Sub inaktivAusEin() Dim wks2 As Worksheet Dim wks4 As Worksheet Dim iCol As Integer Set wks2 = Sheets("Kalender") Set wks4 = Sheets("Liste") If wks2.Rows(1).SpecialCells(xlCellTypeVisible).Count = 256 Then For iCol = 6 To wks4.Range("H50").End(xlUp).Row wks2.Columns(iCol - 2).Hidden = UCase(wks4.Cells(iCol, 8)) = "nein" Next Else wks2.Columns.Hidden = False End If End Sub

Sub Spalten_AusblendenEinblenden() Dim c As Range Range("A1:T1").Select For Each c In Selection If c.Value = "nein" Then _ Columns(c.Column).EntireColumn.Hidden = True If c.Value = "ja" Then Columns(c.Column). _ EntireColumn.Hidden = False Next c End Sub

Hallo Jan,
ich nehme an, "Nein" bedeutet inaktiv und Du willst Zeilen ausblenden.
Nimm hierzu folgende Makros:


Sub ausblenden()
For i = 6 To 21
If Cells(i, 8) = "Nein" Then
Rows(i).EntireRow.Hidden = True
End If
Next i
End Sub


Sub einblenden()
Range("H6:H21").Rows.Hidden = False
End Sub


Sub ausblenden2()
z = Range("H65536").End(xlUp).Row
For i = 6 To z
If Cells(i, 8) = "Nein" Then
Rows(i).EntireRow.Hidden = True
End If
Next i
End Sub


Sub einblenden2()
z = Range("H65536").End(xlUp).Row
Range("H6:H" & z).Rows.Hidden = False
End Sub

Gruß
Martin Beck

Beliebteste Forumthreads (12 Monate)

Zellen bei bestimmten Inhalt ein/ausblenden

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen bei bestimmten Inhalt ein/ausblenden

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread