Zeilen einblenden wenn Markierung gesetzt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then If Not ActiveSheet.FilterMode _ Then ActiveSheet.[A1].CurrentRegion.AutoFilter Field:=1, Criteria1:="1" _ Else ActiveSheet.[A1].CurrentRegion.AutoFilter Field:=1 Cancel = True End If End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then Application.EnableEvents = False Target = 1 - Target Cancel = True Application.EnableEvents = True End If End Sub

- Deine Datei ist (zumindest für mich) nicht (mehr) herunterladbar, also (möglicherweise) auch (für die Gemeinde) nicht (mehr) bewertbar. Ich war überrascht über die Größe von 121 kb meiner Datei, hatte aber keine Lust mehr, eine neue Datei nachzuschicken. Möglicherweise ist Deine Datei, wenn sie doppelt so groß ist und mit längerem VBA-Code, nah an der Herber-Grenze von 300 kb.
- Ich könnte jederzeit behaupten, ich sei "aus Versehen" im anderen Ast gelandet.
- Die Voraussetzungen und Wünsche eines Fragers interessieren mich generell erst mal einen feuchten. Ich stelle ausschließlich meine Lösung (wenn es sein muss, aus dem Elfenbeinturm) vor und tue alles freiwillig. Ich bin nicht verpflichtet, einem Frager direkt oder indirekt auf seine Frage zu helfen, und die Komplexität einer Antwort hat noch in keinem Forum gegen die Etikette oder Regeln verstoßen. Seit 2001 in microsoft.public.de.excel lag es mir immer eher daran, als schnellster (statt als sorgfältigster) zu antworten, und ungenügende Schilderungen mit eigenen Vermutungen zu komplettieren. Das ist mein Recht! Sorgfältig und langsam kann jeder - ich habe mir halt die andere Nische ausgesucht. Ich mache im Leben sowieso vieles ganz anders - nicht immer besser!
- ich habe schon andere "Excel-gut"-Selbsteinschätzer vor der Apotheke ... sehen
- es sind nicht zwei Lösungen, sondern ich habe den Code noch einmal in den Forumstext übernommen, da die Datei ja anscheinend (wie bei Dir geschehen) - aus welchem Grund auch immer, und auch nachträglich - unlesbar werden könnte. Die Krone jeder Forumsarbeit ist nämlich der gänzliche Verzicht auf Anhänge, damit selbst bei solchen Katastrophen in 2014 wie bei office-loesung.de (alt) der Beitrag zusammenbleibt (die Anhänge dort sind weg). Das lässt sich nicht immer erreichen. Ich gehe aber bei wichtigen Antworten sogar dazu über, Datei-Konstruktionsmakros als Text anzubieten, statt (oder zusätzlich zu) Anhängen. Nützlich für alle, nützlich auch für mich, damit ich ein wenig Übung mit VBA bekomme, obwohl ein Konstruktionsmakro nicht den strengen Programmiervorschriften genügen muss.
- Ein Autofilter ist prädestiniert dafür, den Datensatz für Dein DTP über eine KOPIE bereitzustellen. Aber PERMANENT doppelte Daten in einer Datei: Nicht mit mir. Außerdem unterscheiden die doppelten Daten sich ja tatsächlich nicht.
- unhöflich (oder auch unschuldig-nervig) ist so vieles in den Foren (betrifft nicht diesen Beitrag) ...

Keine konkrete Frage an einem Beispiel

Kein Wunschergebnis

Bilder als Anhang, wenn Zusammenhang dafür zu aufwändig (=mehr als 10 Antworter-Zelleneingaben nötig)

Dateien auf Fremdhostern mit zweifelhafter oder temporärer Provenienz

unverschämte Anfragen nach Komplettlösungen und mit Riesendateien

Bei Antwortern das stereotype Gehacke, der Frager möge eine Datei mitliefern, selbst wenn sich dann doch alles aus der Frage ergibt (bloß nicht zuviel denken)

...; da ziehe ich mir diesen Schuh nicht an.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) Dim lngFound As Long Dim lastRow As Long lastRow = Cells(Rows.Count, "B").End(xlUp).Row If Not Intersect(Target, Range("A1:A" & lastRow)) Is Nothing Then Cancel = True Target = IIf(Target = "", "x", "") End If lngFound = Target.Row 'Tabellenname anpassen With Worksheets("Daten") If Target = "x" Then .Rows("1:" & lastRow).Hidden = True .Rows(lngFound).Hidden = False Else .Rows("1:" & lastRow).Hidden = False End If End With End Sub

Einleitung des TE:
"Ich habe in einer Datei zwei "fast" Identische Tabellen, der einzige Unterschied der Tabellen besteht darin, dass die erste Tabelle eine Spalte mehr hat, um in Spalte A mit einem "x" die Relevanz zu kennzeichnen. Nun hätte ich gerne, dass sobald ich im Blatt 1 ein "x" in z. B. Zeile 15 setze, die Zeile 15 in Blatt 2 Eingeblendet wird und beim entfernen der Kennzeichnung, wieder Ausgeblendet wird."
Zu Dir:
[[Autofilter] nicht die Aufgabenstellung.
Denn für Dich gibt's ja keine doppelten Daten. DAS ist der Knackpunkt.
[[doppelte Daten] sind in seinem Kontext ÜBERFLÜSSIG.]
Du kennst seinen Kontext gar nicht. Du vermutest nur. So wie ich.]

Ich habe "fast identisch" gelesen. Vielleicht sind "meine Hände ja zu klein, um diesen Satz zu begreifen." (Spruch von WF auf seinem xlf.de-Profil)
[[da keine Software Werbung und Content in gewünschter Reihenfolge auf die Seiten platzieren kann]
Blödsinn. Selbstverständlich geht das. Die einzige Frage ist, ob der Kunde mit so einem Ergebnis zufrieden ist.]

Dann lass doch das "Blödsinn" einfach weg, weil das Manuelle im Printbereich immer der Fall ist. Einzig Online-Auftritte verzichten darauf. Die haben aber auch das Design "Bilder - Tabellen - Charts - Texte" für sich vereinheitlicht und benötigen keine Umbrüche. Und die Leser haben die Ansprüche nicht.
[[Es geht um Excel und kfm. DV, nicht um Word oder DTP oder CMS oder Journalistik]
Es geht in diesem Thread einzig um die Fragestellung und den Bedarf des Fragers.]

Eben. Siehe oben mein "fast identisch". Und: Solange der Frager seine Aufgabestellung nicht detailliert - und vor allem sich nicht meldet, weil er als Angestellter im Wochenende ist -, sollten wir uns nicht die Köppe einschlagen. Ich behaupte, dass er schlichtweg keine Filter kennt. Damit kann ich daneben liegen, aber das kommt vor. Wenn mir danach ist, haue ich ihm seinen Bedarf um die Ohren. Auch das findet in allen anderen Technikforen in 80% aller Antworten der Form "Das macht man so!" statt. Ich habe knapp 25.000 Antworten im Internet verfasst, davon 11.000 bei mpde. Und ich war immer schon so, wie ich bin. Auch andere hängen sich übrigens UNTER einen Thread-Ast, anstelle daneben, und adressieren den Vorgänger nicht, was Du so gern gehabt hättest. Es gibt eben alles - und aufregen sollte man sich darüber nicht.
[Und was Du davon hälst hast Du dem Forum ja schon zum Besten gegeben. Für mich gehört das in die Hajo-Ecke: sonderbar und sozial unverträglich.]
Ich bin kein Kuschler und kein Gutmensch. Ich darf genauso schlechte Eigenschaften haben, wie andere auch. Und wie gesagt: Es gibt immer welche, denen meine Beiträge nützen. Das werden nie 100% sein. Vielleicht sind es nur 10%. Vielleicht ist es sogar unterdurchschnittlich zu den anderen Antwortern, da ich mich am Thema vorbeiwage, eine Aufgabe oft kritisiere und ein Stattdessen empfehle. Aber das ist immer noch eine Menge.
Ich brauche kein: "Lupo1, Du bist der Beste! Wieder genauso, wie ich es haben wollte!" Dann wäre ich schnell ausgelutscht. Ich bin hier einzig und allein, um zu knobeln. Manchmal nützt es anderen. Manchmal haue ich aber auch drauf, wenn die Fragen Richtung Zumutung gehen. Es gibt vielleicht keine falschen Fragen, aber durchaus freche, anmaßende und faulheitinduzierte. Nein! Ich halte mich dann nicht zurück.
Dir ein angenehmes Wochenende! Immerhin bist Du nicht so auf Alarm wie der gute Mann im Nebenast dieses Threads.

Beliebteste Forumthreads (12 Monate)

Zeilen einblenden wenn Markierung gesetzt

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread