Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.10.2025 06:24:29
VBA - Zeichenkette von rechts kürzen
07.10.2025 18:27:08
Formel anstelle XVWERWEIS für alte Excel-Version
07.10.2025 15:42:10
Identische-Tabellen-identische Sub's funktionieren nicht...
07.10.2025 09:25:19
Bedingte Formatierung mit bezug auf anderes TabellenBlatt
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1732to1736
1732to1736
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten bei Klick auf Werkzeug Nr. Ein/Aus blenden

Forumthread: Spalten bei Klick auf Werkzeug Nr. Ein/Aus blenden

Spalten bei Klick auf Werkzeug Nr. Ein/Aus blenden
10.01.2020 14:29:32
Bernhard
Hallo zusammen,
ich hatte diesen Code vom Werner bekommen.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 And Target.Row > 4 Then
If Target  "" And Not IsNumeric(Target) Then
Cancel = True
Target.Offset(1).Resize(15).EntireRow.Hidden = _
Not Target.Offset(1).Resize(15).EntireRow.Hidden
End If
End If
End Sub

Mir ist grade ein Problem aufgefallen...
Wenn ich in der Liste einen Filter setze und diesen dann wieder entferne sind alle Zeilen eingeblendet / offen.
Gibt es die Möglichkeit dies zu verhindern oder per Klick in eine Zelle alle wieder zu schließen?
Das wäre super, hunderte Zeilen der Manuellem Doppelklick zu schließen macht keinen Spaß :(
Vielen Dank im Voraus
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten bei Klick auf Werkzeug Nr. Ein/Aus blenden
10.01.2020 21:45:30
Werner
Hallo Bernhard,
1. Spalte S deiner Tabelle ausblenden
2. den Code ins Codemodul des Blattes 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 And Target.Row > 4 Then
If Target  "" And Not IsNumeric(Target) Then
Application.ScreenUpdating = False
Cancel = True
Target.Offset(1).Resize(15).EntireRow.Hidden = _
Not Target.Offset(1).Resize(15).EntireRow.Hidden
Target.Offset(1, 18).Resize(15) = IIf(Target.Offset(1, 18) = "x", "", "x")
End If
End If
End Sub

3. den Code in ein allgemeines Modul 
Public Sub wieder_ausblenden()
Application.ScreenUpdating = False
With Worksheets("Planung 2020+")
If WorksheetFunction.CountIf(.Columns("S"), "x") > 0 Then
.Columns("S").SpecialCells(xlCellTypeConstants).EntireRow.Hidden = True
End If
End With
End Sub

4. Schaltfläche aufs Tabellenblatt und der Schaltfläche das Makro aus dem allgemeinen Modul zuweisen.
Gruß Werner
Anzeige
;

Forumthreads zu verwandten Themen

Beim Klick auf Abbrechen Makro beenden
chandler

Hallo,
wenn im nachfolgenden Makro auf die Schaltfläche Abbrechen geklickt wird bleibt das Makro stehen und wird nicht beendet. On Error Resume Next hilft nicht. Sub Test() 'Test ChDrive Left(CurDir, 1) ChDir CurDir Dim z As Range Dim search As String Set wbtarget = ThisWorkbook.Worksheets...
05.11.2012 14:39:02
Thread-ID: 1285354
5 Beiträge
Optionsbutton ausblenden funzt nur bei klick
EarnyToLearny

Liebe Excel-Profis,
es sollen 2 Optionsbuttons (nicht aus Formular erstellt) ausgeblendet werden, wenn ein Wert 1 in Zelle R25 steht. Funktioniert mit folgenden Code: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False If Sheets("Tabelle1").Range(...
26.01.2013 17:07:38
Thread-ID: 1296107
5 Beiträge
userform bei klick auf button Uhrzeit in Zelle
Andreas

Hallo liebe fleißige Helfer.
Ich bastel gerade an einem VBA-Code der mir Verkehrszählungen vereinfachen soll. Ich nutze eine userform und wenn ich auf den button "pkw" klicke erhöht es mir ein Textfeld um ein. soweit so gut.
Nun möchte ich aber am ende ein zählprotokoll haben, bei dem i...
27.08.2014 16:05:10
Thread-ID: 1378511
33 Beiträge
Bei Klick auf Checkbutton soll Gedruckt werden
Langmantl

Hallo,
bei Klick auf Checkbutton soll selektiert werden, ob die Datei in Farbe oder in Schwarzweiß gedruckt wird und es soll mittels inputbox die Anzahl der kopien definierbar sein, danach drucken.
Wie lautet hierzu der Code?
05.11.2014 14:49:50
Thread-ID: 1390643
3 Beiträge
Klick auf CommandButton, Link nicht öffnen
Propman

Hallo,
ich habe eine kleine Testdatei hier aufgebaut:
https://dl.taikocloud.com/download.php?id=115&token=EkfT3Bffiltj4gpJfsfDbzEfW6dkU4Jp
(Wie schon mehrfach geschrieben ist es mir leider nicht möglich vom Mac aus irgendwelche Dateien bei Herber hochzuladen, weder mit Safari no...
01.03.2015 12:15:54
Thread-ID: 1412078
3 Beiträge
Aufrufenden cmdButton eines UF bestimmen
Wusel

Hallo zusammen,
ich habe mal wieder ein kleines Problem und hoffe man kann mir hier weiterhelfen :)
Ich habe ein Userform(UF1) gebaut und möchte dies nun von 2 verschiedenen anderen Userforms(UF2/UF3) aufrufen. Je nachdem ob UF2 oder UF3 aufruft soll UF1 aber anders befüllt werden. Jetz...
03.06.2015 22:27:42
Thread-ID: 1429182
5 Beiträge
Anzeige
Button auf Homepage klicken
Hermann

Hallo zusammen,
nach erfolgloser Suche & Testen habe ich es nun aufgegeben und benötige Hilfe von einem Experten.
Ich möchte mittels eines VBA einen bestimmten Button auf dieser Homepage klicken: "http://www.unternehmen24.info/Firmeninformationen/DE/4232667"
Freue mich um Suppor...
30.06.2016 18:28:50
Thread-ID: 1501912
4 Beiträge
Button auf Webseite anklicken (Firefox) - Teil
Markus

Hallo,
ich verwende folgenden Code, um eine Webseite in Firefox zu öffnen.
Das funktioniert soweit, mein Problem sind nur die letzten drei Zeilen (nach Shell...). Hier möchte ich einen Button auf der Webseite anklicken. In IE würde ich das über ein Object machen, aber ich weiss nicht,...
24.04.2017 11:15:01
Thread-ID: 1554333
3 Beiträge
Klick auf Listbox unterbinden
Sarah

Hallo Zusammen,
ich habe eine Suchfunktion, die eine Datei durchsucht und anschließend in der Listbox ausgibt. Mit Klick kann der entsprechende Datensatz zur Änderung übernommen werden.
Sollte die Suche keinen Erfolg haben, dann wird "Kein Eintrag" ausgegeben. Allerdings kann dies in de...
19.12.2017 13:30:02
Thread-ID: 1598054
3 Beiträge
Anzeige
klick auf Button fügt Zeile darunter
Michael

Hallo,
ich möchte beim aktivieren eines Buttons die Zeile mit Inhalt kopieren und darunter einfügen. Dabei sollen alle darunter stehenden Zeilen entsprechend weiterrutschen.
Es handelt sich um die Zeile in der der Button sich befindet. Also sinngemäß wie: Sub Zeileeinfügen() Zeile der...
29.10.2018 13:02:41
Thread-ID: 1654107
2 Beiträge
klick auf Button fügt Zeile darunter
Michael

Hallo,
ich möchte beim aktivieren eines Buttons die Zeile mit Inhalt kopieren und darunter einfügen. Dabei sollen alle darunter stehenden Zeilen entsprechend weiterrutschen.
Es handelt sich um die Zeile in der der Button sich befindet. Also sinngemäß wie: Sub Zeileeinfügen() Zeile der...
29.10.2018 13:10:32
Thread-ID: 1654109
7 Beiträge
Anzeige
Spalten ein- und ausblenden auf Klick
Joachim

Hallo zusammen,
ich möchte einen Belegungsplan erstellen und wo belegte Tage belegt gekennzeichnet sind (Farbe und "X"). Mit "Klick" auf die Zelle mit dem "X" (quasi Tagesdatum) in sollen die ausgeblendenen Spalten mit gleichem Tagesdatum rechts daneben eingeblendet und sichbar werden, so d...
06.11.2018 12:30:37
Thread-ID: 1655697
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige