Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1732to1736
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

43 Forumthreads zu ähnlichen Themen

Abfrage ob Klick auf Button erfolgt ist
Frank

Hallo Zusammen!!!
Wieder einmal eine Frage: Mittels einer UF werden Daten in ein Tabellenblatt geschrieben. Auf der UF befinden sich 4 CommandButton, welche Daten in das Tabellenblatt eintragen. Der 5. Button schließt dann die UF. Nun möchte ich, dass wenn der User auf den 5. Button klickt...
13.07.2010 15:24:22
Thread-ID: 1166887
4 Beiträge
Anzeige
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
Anzeige
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
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
Datum perKlick auf Button einfügen
Frank

Hallo,
ich habe eine Textbox, diese soll sich nach drücken eines Buttons mit dem aktuellen Datum füllen.
Wie kann ich dies lösen?
Vielen Dank
22.11.2016 13:05:55
Thread-ID: 1526318
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
9
4
4
32
2
2
4
3
2
5
4
2
2
8
1
6
2
22
7
1
1
1
3
1