bedingtes aus-/einblenden von Bereichen

Sub BriefenachNiveau() Application.ScreenUpdating = False ActiveSheet.Unprotect "Schiller" Dim i As Long For i = 12 To 201 Step 6 Cells(7, i).MergeArea.EntireColumn.Hidden = Cells(11, i).Value Is Not G Next i ActiveSheet.Protect "Schiller" Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub BriefenachNiveau() Application.ScreenUpdating = False ActiveSheet.Unprotect "Schiller" Dim i As Long For i = 12 To 201 Step 6 If Cells(11, i).Value "G" Then Columns(i - 5).Resize(1, 6).EntireColumn.Hidden = True End If Next i ActiveSheet.Protect "Schiller" Application.ScreenUpdating = True End Sub

Indem ich den Button auf dem das Makro hinterlegt ist erneut klicke. Zumindest tut es das. :) Es ist nicht direkt auf dem Tabellenblatt als automatischer Refresh hinterlegt. Das frisst zu viel Speicher habe ich das Gefühl. Zumindest ist mir die Tabelle bei solchen Screenupdates schon öfter abgeschmiert. Kann das richtig sein?
Angelehnt an das Thema habe ich noch ein Problem:
Ich möchte auf Worksheet(Tabelle3) überprüfen, ob eine Zelle (H2) leer ist. Wenn ja, dann soll auf Worksheet(Tabelle37) die Zeile 14 ausgeblendet werden.
Nun muss auf Tabelle3 3 Spalten weiter erneut geprüft werden, dann aber auf Tabelle37 Zeile 15 ausgeblendet werden. Das ganze muss 10 mal überprüft werden.
Danke für deine Hilfe.

Hallo
im ersten Fall ist der Code recht einfach und sicher leicht zu verstehen. Den zweiten konnt ich nur ansatzweise andeuten.
Bei den drei Spalten müsste ich wissen was dort genau geprüft werden muss? Und welche Bedingungen geprüft werden müssen?
Handelt es sich dabei um 10 Zeilen, weshalb es 10x geprüft werden muss? Wenn ja welche Zeilen, von wo bis wo?
Was muss geprüft werden, Texte, Datum, Zahlen? Müssen die Bedingungen in allen drei Spalten vorkommen, oder jede separat, einzeln?
Eine kleine Beispieldatei mit anonymen Daten und einer Lösung von Hand wäre hilfreich um die Aufgabe besser zu erkennen.
mfg Piet


Sub Prüfen_H2_Sheet3()
If Worksheets("Tabelle3").Range("H2") = "" Then
Worksheet("Tabelle37").Rows(14).EntireRow.Hidden = True
Else
Worksheet("Tabelle37").Rows(14).EntireRow.Hidden = False
End If
End Sub


Sub Prüfen_3Spalten()
'Unklar ist mir was in den drei Spalten genau geprüft werden soll?
'Welche Zeilen?  Und welche Bedinungen?
If Worksheets("Tabelle3").Range("H2") = "" Then
Worksheet("Tabelle37").Rows(15).EntireRow.Hidden = True
Else
Worksheet("Tabelle37").Rows(15).EntireRow.Hidden = False
End If
End Sub

Beliebteste Forumthreads (12 Monate)

bedingtes aus-/einblenden von Bereichen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread