Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1444to1448
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen ausblenden wenn in bestimmter Zelle kein we

Zeilen ausblenden wenn in bestimmter Zelle kein we
27.08.2015 22:14:45
Ulle
Ich habe die Liste um ein paar mehr Zellenabfragen erweitern müssen.
Leider bringt er mir nun eine Fehlermeldung:
"Falsche Anzahl an Argumenten oder ungültige Zuweisung"
Ich hoffe du bzw ihr könnt mir helfen.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("g1", "J1", "g3", "J3", "P3", "M3", "T3", "W3", "Z3", "G4", "J4", _
_
_
"M4", "P4", "T4", "W4", "Z4", "AD4")) Is Nothing Then
Select Case Target.Address(False, False)
Case "g1": ZeilenEinAus 8, Target
Case "j1": ZeilenEinAus 8, Target
Case "g3": ZeilenEinAus 9, Target
Case "j3": ZeilenEinAus 10, Target
Case "m3": ZeilenEinAus 11, Target
Case "p3": ZeilenEinAus 12, Target
Case "t3": ZeilenEinAus 13, Target
Case "w3": ZeilenEinAus 14, Target
Case "z3": ZeilenEinAus 15, Target
Case "g4": ZeilenEinAus 16, Target
Case "j4": ZeilenEinAus 17, Target
Case "m4": ZeilenEinAus 18, Target
Case "p4": ZeilenEinAus 19, Target
Case "t4": ZeilenEinAus 20, Target
Case "w4": ZeilenEinAus 21, Target
Case "z4": ZeilenEinAus 22, Target
Case "ad1": ZeilenEinAus 23, Target
End Select
End If
End Sub
Private Sub ZeilenEinAus(Start As Long, Zelle As Range)
Dim Zeile As Long
Application.ScreenUpdating = False
For Zeile = Start To Start + 230 Step 17
Rows(Zeile).Hidden = IsEmpty(Zelle)
Next
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ausblenden wenn in bestimmter Zelle kein we
28.08.2015 05:46:40
fcs
Hallo Ulle,
bei Mehrfachauswahl von Zellen dürfen die einzelnen Zellen/Zellbereiche nicht in Anführungszeichen gesetzt sondern nur durch Komma getrennt werden.
Target.Address(False, False) gibt die Zelladresse mit Großbuchstaben zurück.
Deshalb musst du in der "Select Case" das Ergebnis zusätzlich in Kleinbuchstaben umwandeln, damit die Case-Zeilen funktionieren.
Gruß
Franz
If Not Intersect(Target, Me.Range("g1,J1,g3,J3,P3,M3,T3,W3,Z3,G4,J4,M4," _
& "P4,T4,W4,Z4,AD4")) Is Nothing Then
Select Case LCase(Target.Address(False, False))

Anzeige
AW: Zeilen ausblenden wenn in bestimmter Zelle kein we
28.08.2015 16:29:22
Ulle
vielen Dank, super genauso wollte ich das
Happy:-)

AW: Zeilen ausblenden wenn in bestimmter Zelle kein we
28.08.2015 20:27:46
Ulle
Hi nun habe ich noch ein kleines Problem meine Mappe ist Baltt geschützt und die Mappe ist für mehrere Benutzer frei gegeben.
Leider blendet es die Zeile nun nicht mehr aus und rechnet wieder sehr lange :-(
Private Sub Worksheet_Change(ByVal Target As Range)
Application.DisplayAlerts = False
ActiveWorkbook.ExclusiveAccess
Application.DisplayAlerts = True
ActiveSheet.Unprotect
If Not Intersect(Target, Me.Range("G1,J1,G3,J3,P3,M3,S3,V3,Y3,G4,J4,M4," _
& "P4,S4,V4,Y4,AB4")) Is Nothing Then
Select Case LCase(Target.Address(False, False))
Case "g1": ZeilenEinAus 7, Target
Case "j1": ZeilenEinAus 8, Target
Case "g3": ZeilenEinAus 9, Target
Case "j3": ZeilenEinAus 10, Target
Case "m3": ZeilenEinAus 11, Target
Case "p3": ZeilenEinAus 12, Target
Case "s3": ZeilenEinAus 13, Target
Case "v3": ZeilenEinAus 14, Target
Case "y3": ZeilenEinAus 15, Target
Case "g4": ZeilenEinAus 16, Target
Case "j4": ZeilenEinAus 17, Target
Case "m4": ZeilenEinAus 18, Target
Case "p4": ZeilenEinAus 19, Target
Case "s4": ZeilenEinAus 20, Target
Case "v4": ZeilenEinAus 21, Target
Case "y4": ZeilenEinAus 22, Target
Case "ab4": ZeilenEinAus 23, Target
End Select
End If
End Sub

Private Sub ZeilenEinAus(Start As Long, Zelle As Range)
Dim Zeile As Long
For Zeile = Start To Start + 239 Step 18
Rows(Zeile).Hidden = IsEmpty(Zelle)
Next
ActiveSheet.Protect
Application.DisplayAlerts = False
If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, _
AccessMode:=xlShared
SaveChanges = True
End If
End Sub

Anzeige
AW: Zeilen ausblenden wenn in bestimmter Zelle kein we
29.08.2015 16:14:44
Ulle
So ich habe für das Bessere Verständniss einmal die Datei angehängt.
Also meine Anliegen für die Datei
https://www.herber.de/bbs/user/99895.xlsm
1. Soll das Makro laufen wenn nur in den zellen neben den Gelben Zahlen (Bereich G1:AD4) etwas geändert wird und das ganze mit Blattschutz und Arbeitsmappe freigegeben für Benutzer die es gleichzeitig nutzen können.
2. Wenn in Bereich A1 die Schicht ausgewählt wird soll in den Feldern auch die namen eingetragen werden die zu der Schicht gehören.
aber es Soll auch möglich sein selbst die Namen einzutragen um Vergleiche anzustellen.
Ich habe es zwar schon unter Schutz zum laufen gebracht allerdings rechnet er dann eine ganze Weile
Ich hoffe ihr könnt mir helfen.

Anzeige

334 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige