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
BITTE helfen Sie uns HEUTE mit einer SPENDE
Das LibreOffice Forum braucht jetzt Ihre Hilfe!
> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗
Anfrage
Re: Anfrage
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?
wie wäre es denn das Problem mittels eines Filters oder einer Pivot-Tabelle zu lösen?
g
2008 LucidL./MaverickM./WinXP LibreOffice 3.3.2 > 02/13 LinuxMint13/Xubuntu > 09/13 Debian Wheezy+LO3.5.4.2 > 01/15 Debian Jessie KDE+LO4.3.3.2/Mint17 openbox auf USB+LO4.2.8.2 > 03/16 ArchLin & LO5.1+ff > 02/18 Kubuntu
2008 LucidL./MaverickM./WinXP LibreOffice 3.3.2 > 02/13 LinuxMint13/Xubuntu > 09/13 Debian Wheezy+LO3.5.4.2 > 01/15 Debian Jessie KDE+LO4.3.3.2/Mint17 openbox auf USB+LO4.2.8.2 > 03/16 ArchLin & LO5.1+ff > 02/18 Kubuntu
An alle, die das LibreOffice-Forum nutzen:
Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.
❤️ Vielen lieben Dank für Ihre Unterstützung ❤️