folgender Code kommt in das schon vorhandene VBA-Modul der Tabelle2:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varB As Variant
Dim i As Long
If Not Application.Intersect(Target, Columns(2)) Is Nothing Then
varB = Range(Cells(1), Target.CurrentRegion).Value
For i = 2 To UBound(varB)
Tabelle1.Rows(i).Hidden = Not LCase(varB(i, 2)) = "x"
Next i
End If
End Sub
Hallo und erstmal danke für die schnelle Antwort.
Leider hat es nicht so geklabt wie ich es wollte. Habe daher die excel Datei mal reingestellt.
Es soll ausschließlich mit der Mappe Dienstplan gesamt gearbeitet werden. Was ich soweit alles hinbekommen habe. Das einzige was machen möchte ist das wenn ich in der Spalte an, ao und ap ein X in an der passene Person reinstelle. Das die Person auch in denn passene Objekt ist. Und ansonsten alle anderen zeilen weg sind.
Erstmal danke für die Hilfe habe das Problem zwar nicht lösen können. weil ich eindeutig zu blöd bin ,:22: da mein wissen mit VBA leider nicht vorhanden ist :22: .
gibt es noch eine Möglichkeit ohne VBA das zu lösen.
hier mal der Code. Du musst ihn in das Codemodul vom Dienstplan-Blatt einfügen, schaffst Du oder? Schaue mal in unserem Beispielbereich Workshops und Anleitungen, da hast DU 2 Beiträge, unter anderem den Excel-Word-Makrorekorder
Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'Wenn Bereich AN14:AP34 betroffen ist, dann
If Not Intersect(Target, Range("AN14:AP34")) Is Nothing Then
'Variablendeklarationen
Dim varB As Variant
Dim i As Long, j As Long
'Uebernahme der EIntraege von Spalte 40 bis 42
varB = Range("AN14:AP34").Value
'Schleife ueber "Spalten"
For j = 1 To 3
'Schleife ueber "Zeilen"
For i = 1 To UBound(varB)
'Zeile auf Zielobjekt j (1, 2 oder 3) ausblenden wenn kein x eingetragen
Sheets("Objekt " & j).Rows(i + 13).Hidden = Not LCase(varB(i, j)) = "x"
'Ende Schleife ueber "Zeilen"
Next i
'Ende Schleife ueber "Spalten"
Next j
'Ende Wenn Bereich AN14:AP34 betroffen ist, dann
End If
End Sub
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:1 Nutzer sagt Danke an schauan für diesen Beitrag 28 • Narakort