BITTE helfen Sie uns HEUTE mit einer SPENDE
Das LibreOffice Forum braucht jetzt Ihre Hilfe!

❤️ DANKE >><< DANKE ❤️

> 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

Alles zur Programmierung im LibreOffice.
Antworten
ruffyde
Beiträge: 2
Registriert: Fr 18. Mai 2018, 20:18

Anfrage

Beitrag von ruffyde » Fr 18. Mai 2018, 20:26

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
Beiträge: 1072
Registriert: Sa 5. Feb 2011, 19:07

Re: Anfrage

Beitrag von gogo » So 20. Mai 2018, 15:53

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?
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

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 ❤️

Antworten