Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1920to1924
1920to1924
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen nach Bedingungen eingeblendet

Forumthread: Zeilen nach Bedingungen eingeblendet

Zeilen nach Bedingungen eingeblendet
05.03.2023 20:54:26
Paul
Hallo,
ich habe bei einer Tabelle in Spalte A diverse Tagesdatumsangaben. Ich möchte per VBA alle Zeilen eingeblendet lassen, die bei den Tagesangaben in Spalte A einem Freitag entsprechen und in Spalte D entweder mit H oder D (jeweils Text) beginnen. Alle anderen Zeilen sollen ausgeblendet werden.
Über eine Lösung würde ich mich freuen.
Beste Grüße
Paul
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
frag doch mal ....
05.03.2023 21:10:54
ralf_b
.... die Maus
oder chatgpt. Die haben die Lösung, wie auch vielen Forenbeiträge.
AW: Zeilen nach Bedingungen eingeblendet
05.03.2023 21:38:18
GerdL
Hallo Paul!
Sub Unit()
    Dim C As Range
        
    With Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
        .EntireRow.Hidden = True
        For Each C In .Cells
            If Weekday(C.Cells(1, 1), vbMonday) = vbFriday Then
            If Left(C.Offset(0, 4), 1) = "D" Or Left(C.Offset(0, 4), 1) = "H" Then
                C.EntireRow.Hidden = False
            End If
            End If
        Next
    End With
End Sub
Gruß Gerd
Anzeige
AW: Zeilen nach Bedingungen eingeblendet
05.03.2023 21:46:44
Paul
Hallo Gerd,
Excel meldet mir einen Fehler in dieser Zeile "If Weekday(C.Cells(1, 1), vbMonday) = vbFriday Then" = Versionsproblem?
Meine Tagesdatumsangaben liegen in diesem Format vor, z.B. 06.03.2023 oder 10.03.2023.
Grüße
Paul
AW: Zeilen nach Bedingungen eingeblendet
05.03.2023 22:25:52
GerdL
Ja, wirf .den Rest vom Testen
.Cells(1,1)
raus.
Gruß Gerd
Anzeige
AW: Zeilen nach Bedingungen eingeblendet
05.03.2023 22:43:24
Paul
Hallo Gerd,
sorry, ich bekomme bei dem nachgebesserten VBA-code bei der Zeile "If Weekday(C, vbMonday) = vbFriday Then" noch immer die Debugging-Info "Typen unverträglich".
Viele Grüße
Paul
AW: Zeilen nach Bedingungen eingeblendet
05.03.2023 22:29:09
onur
If Weekday(C, vbMonday) = vbFriday Then
AW: Zeilen nach Bedingungen eingeblendet
05.03.2023 22:45:08
Paul
Hallo onur,
danke für den Code. Sorry, ich bekomme bei dem nachgebesserten VBA-Code bei der Zeile "If Weekday(C, vbMonday) = vbFriday Then" noch immer die Debugging-Info "Typen unverträglich". Ist wohl doch ein größeres Problem.
Viele Grüße
Paul
Anzeige
AW: Zeilen nach Bedingungen eingeblendet
06.03.2023 00:21:22
onur
Wenn immer noch der selbe Fehler kommt, hast du KEIN Datum in A, sondern nur Text oder sowas.
Sub Unit()
    Dim z, x
    For z = 2 To Cells(Rows.Count, 1).End(xlUp)
        Cells(z, 1).EntireRow.Hidden = True
        x = Left(Cells(z, 4), 1)
        If Weekday(Cells(z, 1), 2) = 5 And (x = "D" Or x = "H") Then Cells(z, 1).EntireRow.Hidden = False
    Next z
End Sub

Anzeige
AW: Zeilen nach Bedingungen eingeblendet
06.03.2023 09:14:15
Paul
Hallo onur,
vielen Dank für die Mühe, die du dir gibst. Ich habe mal eine Beispieldatei hochgeladen. Nach Durchlauf des Makros sollen alle Zeilen sichtbar bleiben, bei denen ich das Datum rot eingefärbt habe (alle sind ein Freitag) und die weiteren Bedingungen erfüllt sind, wenn es in Spalte D Begriffe gibt, die mit H oder D beginnen. Das wären fünf Zeilen.
Ich habe Gerds Code und deinen Code in ein Modul gepackt, wobei ich die Code-Namen in "UnitA" und "UnitB" geändert habe, damit es keinen Namenskonflikt gibt.
Hier ist meine hochgeladene Testdatei:
https://www.herber.de/bbs/user/158126.xlsm
Viele Grüße
Paul
Anzeige
AW: Zeilen nach Bedingungen eingeblendet
06.03.2023 09:51:24
GerdL
Moin Paul,
korrigiert.
Sub UnitA()
    Dim C As Range
        
    With Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
        .EntireRow.Hidden = True
        For Each C In .Cells
            If Weekday(C, vbMonday) = 5 Then
            If Left(C.Offset(0, 3).Value, 1) = "D" Or Left(C.Offset(0, 3).Value, 1) = "H" Then
                C.EntireRow.Hidden = False
            End If
            End If
        Next
    End With
End Sub
Gruß Gerd
Anzeige
AW: Zeilen nach Bedingungen eingeblendet
06.03.2023 17:43:34
Paul
Hallo onur,
vielen Dank für die Mühe und die Datei. Klappt prima! Danke, danke!
Viele Grüße
Paul
;

Forumthreads zu verwandten Themen

Workbooks-Abfragen auf eingeblendete beschränken
Peter

Guten Abend
Mit folgender Funktion ermittle ich den Namen der Datei, der nicht dem aktiven Workbook entspricht, sofern nur zwei Dateien offen sind.
Nun habe ich in der Regel noch die PERSONL oder allenfalls andere Dateien offen. Nun möchte ich den Code so ergänzen, dass die ausgeblende...
08.12.2008 22:52:49
Thread-ID: 1031211
3 Beiträge
Eingeblendete Spalten nach Eintrag anpassen
Dietmar

Hallo zusammen,
Habe nachfolgenden Code in der Grundform hier bei Herber gefunden. Er entspricht allerdings noch nicht ganz meinen Vorstellungen.
Ich möchte erreichen, dass bei jeder Änderung in einer Zelle die Spalte selbst und alle anderen Spalten angepasst werden - aber nur wenn sie...
01.04.2009 19:01:03
Thread-ID: 1066089
3 Beiträge
Userform immer eingeblendet lassen
grexx123

Guten Morgen / Mahlzeit!
Ich brauche bitte eure Hilfe - ich habe ein Excel-Sheet, bei dem ich Buttons mit VBA-Code hinterlegt habe.
einer dieser Buttons blendet gewisse Spalten aus
Nun möchte ich eine Userform erstellen, bei der ich die Buttons immer oben habe, auch wenn ich
nac...
26.06.2009 11:07:54
Thread-ID: 1084525
5 Beiträge
Liste aller eingeblendeten Werte
grexx123

Hallo!
Ich habe folgende Problemstellung:
*Tabelle1*:
Hier wähle ich Zeilen nach einem bestimmten Kriterium per Autofilter aus
*Tabelle2*:
Hier möchte ich NUR DIESE WERTE (also alle nicht ausgeblendeten) extra anzeigen und dazu Werte aus Tabelle 1 dazu (per SVERWEIS)
Wei...
22.12.2009 14:53:49
Thread-ID: 1125596
6 Beiträge
Automatisch eingeblendeter Text in Leerzelle
RoB

Heyho Leute!
Ich habe gestern schon die Frage gestellt und die Antwort vom netten Steffan heute verarbeitet. Es ging darum, dass ich ein Tool konzipiere, wo zukünftige User Daten in 6 Zellen eingeben sollen. Alles andere ist geschützt. Damit die blinden Benutzer aber sehen, WO sie was einti...
25.06.2010 12:43:38
Thread-ID: 1164038
7 Beiträge
If "erste Zeile darüber eingeblendet" Then
Karsten

Hallo,
läßt sich so etwas verVBAschen und wenn ja, wie?
If "erste Zeile darüber eingeblendet" Then
Application.run "Makro1"
Else
Application.run "Makro2"
End If
Besten Dank für eure Hilfe.
Gruß
Karsten
18.11.2010 09:59:08
Thread-ID: 1187489
3 Beiträge
wenn eingeblendet- Makro1, wenn nicht - Makro2
Karsten

Hallo,
Luc hat mir netterweise mit einem Code weitergeholfen.
Allerdings komme ich doch noch nicht ganz weiter. Ich habe ihn versucht anzupassen, aber so geht es nicht. Was mache ich falsch?
Danke für eure Hilfe.
Gruß
Karsten
Dim zeile As Range
For Each zeile in Acti...
20.11.2010 21:45:38
Thread-ID: 1188001
3 Beiträge
Anzeige
Ribbon wird nicht eingeblendet!?
Brigitte

Hey zusammen,
hab leider ein kleines Problem mit meinem benutzerdefinierten Ribbon: es wird nicht eingeblendet...
Hier der xml-Code
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="RibbonInitialisieren">
<ribbon>
<tabs>
<...
07.02.2011 16:29:37
Thread-ID: 1199517
12 Beiträge
Über UF sollen Spalten aus-/eingeblendet werdenn
edie

Hallo,
nach langem Herumsuchen habe ich folgenden Code gefunden, nun mehr als Ansatz.
Bitte helft mir bei der Aufgabe, ich krieg das nicht hin, das Beispiel so anpassen, dass die selektierte Spalte aus der ListBox je nach Zustand aus oder ungekehrt eingeblendet wird.
Hier der Code,...
04.04.2011 17:56:42
Thread-ID: 1208964
4 Beiträge
Summmewenn mehrere eingeblendete Tabellenblätter
Kai

Hallo zusammen,
ich habe folgende Formel die Funktioniert wie sie soll. Meine Frage ist, ob es möglich ist, sie so zu verändern, das sie nur mit eingeblendeten Tabellenblättern rechnet? =SUMMEWENN(Jan.!F:F;F15;Jan.!H:H)+SUMMEWENN(Feb.!F:F;F15;Feb.!H:H)+SUMMEWENN(März!F:F;F15;März! _ H:H) +S...
13.08.2011 00:02:57
Thread-ID: 1225722
3 Beiträge
erste eingeblendetete Zelle Adresse
Gegga

Hallo da draussen
habe eine Tabelle die ab Zeile 5 fixiert ist ist.
jetzt blende ich per VBA nur bestimmte Zeilen ein z.B. Zeile 11 bis 16 oder Zeile 31 bis 36 etc. ein.
In diese Zellen muss ich immer in den gleichen Spalten die selben eintragungen machen. Dies würde ich auch gerne...
28.09.2011 13:47:28
Thread-ID: 1231841
2 Beiträge
Textfeld wird nicht eingeblendet
Michael

Guten Abend,
am Anfang eines Makros habe ich mit dem Befehl:
Tabelle9.Shapes("Textfeld 1").Visible = True
ein Textfeld mit Wartehinweisen einblenden.
Wenn ich das Makro mit F8 zeilenweise abarbeite, wird es eingeblendet und am Ende wieder ausgeblendet.
Wenn ich dagegen das M...
05.10.2011 20:28:46
Thread-ID: 1232661
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige