Office: Wenn in Spalte Wert -> dann Zeile ausblenden

Hi,

aber den Code hättest du mal posten können, und mit der Demodatei wäre nicht das Original gemeint *wink.gif*.

Da könntest du sämtlichen Inhalt löschen, mir würde es ja nur um den Aufbau der Mappe gehen!

Anbei die Datei aus Post9 ohne Inhalt nur mit den x und Code ist angepasst für Spalten.

 

Hallo,

ist es auch möglich nach einem doppelten Wert hier "x" zu suchen, also wenn die Spalten 9 und 10 durchsucht werden und nur wenn in beiden Spalten das x steht, dann ausgeblendet wird?

 

Hallo Wlad.

ja das ist auch möglich!
Nur würde ich gere eine Bsp. Datei von Dir sehen. *Smilie
Wo stehen diese x (Zeile), soll nur Spalte 9 und 10 überprüft werden?
Sind vielleicht "natürliche Feinde" (verbundene Zellen) bei Dir in der Mappe vorhanden?

Da wäre es von Vorteil deinen Mappenaufbau zu kennne, es reiht dabei volkommen aus wenn du alle Inhalte ausser deinen x aus der Mappe löscht.

 

Hallo Chris,

also es sollen per CommandButton1 die Werte aus dem Block links in den Block recht übertragen werden, und wenn im Block rechts das x wiederholt auftaucht, dann sollte die Zeile ausgeblendet werden. Das soll dann aber von Spalte F bis Spalte BE passieren.

 

Hi,

das verstehe ich leider nicht...
eine Zeile von Spalte F bis Spalte BE ausblenden funktioniert nicht.

 

Hallo,

ja ich meine es soll nach dem wiederholten x im Bereich F bis BE gesucht werden.

 

Hi,

*frown.gif* soll villeicht auch etwas damit gemacht werden?
Oder zum Schluß eine Meldung erscheinen : "Suche abgeschlossen, wollen Sie erneut suchen und wieder nichts dabei machen".

 

Hallo Chris,

ja, soll natürlich die Zeile wo das x mindestens 2 Mal auftaucht ausgebelndet werden. Wäre gut, wenn das gleich mit dem CommandButton 1 passieren würde, so spare man an Klicks *wink.gif*

 

Hallo Freunde,

nach umfangreicher Eigenrecherche kam ich leider noch zu keinem befriedigenden Ergebnis.

Auch ich suche nach einer Möglichkeit, Zeilen gemäß vorgegebener Bedingungen aus- und einzublenden.

Ich habe bereits einige VBA Codes für ähnliche Vorgänge probiert und auch schon Zeilen ausgeblendet bekommen. Allerdings funktionierte das immer nur genau 1x und nicht wieder zurück, wenn der Bedingungswert sich wieder änderte. Es scheint auch problematisch zu sein, wenn auf eine Zelle eines anderen Blattes Bezug genommen werden soll.


Sagen wir, das eine Blatt heißt Eingabemaske und das andere Blatt heißt Grafiken.

Zelle C14 im Blatt Eingabemaske beinhaltet den Wert, der Bedingung dafür sein soll, ob Zeilen in Blatt Grafiken ausgeblendet oder angezeigt werden sollen.

Folgende Bedingungen sollen gelten:

1 = ausblenden Zeilen 112, 113, 114, 122, 123, 124
2 = ausblenden Zeilen 112, 122
3 = ausblenden Zeilen 113, 123
4 = keine Ausblendung

Wie kann ich vorgehen?

Vielen Dank vorab für jede Unterstützung.

 

Hi,

jetzt musste ich doch glatt in aller Frühe schon einen "Staubwedel" auspacken und den Beitrag abstauben, *Smilie

Da du etwas von Bezug schreibst..., Formeln lösen keinen Event aus. (Damit ist gemeint das ein Makro nicht selbständig starten kann). Dann solltest du Dir einen anderen Event überlegen. (Beim Schließen, Öffnen, Speichern, usw...)
Ich habe den Code jetzt auf eine Schaltfläche gelegt.


Option Explicit
Private Sub btnOK_Click()
Dim strR As String
With Sheets("Eingabemaske").Cells(14, "C")
If IsNumeric(.Value) Then
If .Value >= 1 And .Value <= 4 Then
strR = Choose(Int(.Value), "112:114,122:124", "112:112,122:122", "113:113,123:123", "")
With Sheets("Grafiken")
.Range("112:114,122:124").EntireRow.Hidden = False
If strR <> "" Then .Range(strR).EntireRow.Hidden = True
End With
End If
End If
End With
End Sub

 

Hat mich noch einige Stunden gekostet, bis ich Deine Vorlage in meine Tabelle übertragen bekommen habe, jetzt funktioniert es aber einwandfrei.

Mehr als danke zu sagen bleibt mir zwar nicht, dies tue ich jedoch allerherzlichst. Danke!