Anfrage

[ruffyde]

Hallo,
ist es möglich das makro so anzupassen, das es in LibreOffice geht, bzw kann mir einer bei einen helfen welches gehen würde?

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rng As Range
Dim hide As Boolean
Dim i As Integer
Dim relativeCol As Integer
Dim rngWatch As Range

Set rngWatch = Me.Range("N3:N28")

For Each rng In Target
If Not Intersect(rng, rngWatch) Is Nothing Then
hide = rng.Value = "x"
relativeCol = rng.Column - 2

For i = 1 To 52
Sheets("KW" & i).Rows(relativeCol + 2).Hidden = hide
Next i

Sheets("Gesamt").Rows(relativeCol + 6).Hidden = hide
Sheets("Monatsplan").Columns(relativeCol + 2).Hidden = hide
Sheets("Ü-Stunden").Rows(relativeCol + 2).Hidden = hide

Sheets("Urlaubsplan").Rows(relativeCol + 3).Hidden = hide
Sheets("Urlaubsplan").Rows(relativeCol + 34).Hidden = hide
Sheets("Urlaubsplan").Rows(relativeCol + 68).Hidden = hide
End If
Next rng
End Sub

Sobald n 3-28 ein x (Tabelle Mitarbeiter )ist, sollen die jeweiligen Mitarbeiter in den anderen Tabellen ausgeblendet werden:

KW 1-52/Mitarbeiter 3-28
Gesamt 7-32
Monatsplan 3-28
Ü-Stunden 3-28
Urlaubsplan 4-29
Urlaubsplan 35-60
Urlaubsplan 69-94

[gogo]

geht sicher - aber bevor Du uns jetzt versuchst das Makro zu erklären:
wie wäre es denn das Problem mittels eines Filters oder einer Pivot-Tabelle zu lösen?