Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
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
07.01.2020 11:38:16
Bernhard
Guten Tag,
ich habe eine Liste mit über 80 Werkzeugen, welche in einem gewissen Zyklus geprüft werden müssen.
Die Prüfungen sind in den Spalten unter der Werkzeug Nr. Definiert.
Die Prüfungen möchte per Klick auf die dazugehörige Werkzeug Nr. Ein oder Aus blenden .
Mit Gruppierung zu arbeiten ist wegen der Größe der Original Datei keine Option.
Link zur Musterdatei:
https://www.herber.de/bbs/user/134223.xlsm
Wen Ihr mir dabei helfen könntet wäre ich sehr Dankbar.
Gruß
Bernhard

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten bei Klick auf Werkzeug Nr. Ein/Aus blenden
07.01.2020 11:44:07
Torsten
Hallo Bernhard,
gib uns mal noch das Passwort fuer den Blattschutz. Ohne das koennen wir nicht viel machen.
Gruss Torsten
AW: Spalten bei Klick auf Werkzeug Nr. Ein/Aus blenden
07.01.2020 11:44:54
Torsten
oh sorry, habs gerade gefunden ;-)
AW: Spalten bei Klick auf Werkzeug Nr. Ein/Aus blenden
07.01.2020 12:19:52
Bernhard
Passwort Blattschutz = QS2020
AW: Spalten bei Klick auf Werkzeug Nr. Ein/Aus blenden
07.01.2020 11:45:37
UweD
Hallo
1) verstehe nur Bahnhof
sind in den Spalten unter der Werkzeug Nr. Definiert.
meinst du evtl Zeilen?
Beschreib mal ein Beispiel:
Was soll ausgeblendet werden (Zeile, Spalte), wenn du in Welche Zelle clickst.
2) das blatt ist mit Passwort geschützt, wie soll das hier einer ausprobieren?
LG UweD
AW: Spalten bei Klick auf Werkzeug Nr. Ein/Aus blenden
07.01.2020 11:48:44
Torsten
Hallo Uwe,
er will die Zeilen unter der jeweiligen Werkzeugnummer ein/ausblenden. So verstehe ich das. Passwort steht unter Workbook_Open.
Gruss Torsten
Anzeige
AW: Spalten bei Klick auf Werkzeug Nr. Ein/Aus blenden
07.01.2020 12:03:38
UweD
Hallo
dann so?
Ich würde den Rechtsclick als Event Verwenden..
der Code muss in den Codebereich der Tabelle
Option Explicit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim intOff As Integer
    intOff = 15
    
    If Not Intersect(Range("A:A"), Target) Is Nothing Then
        If Not IsNumeric(Target) Then ' also nur, wenn Text 
            Cancel = True
            With Target.Offset(1).Resize(intOff).EntireRow
                .Hidden = Not (.Hidden)
            End With
        End If
    End If
End Sub


'oder 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim intOff As Integer
    intOff = 15
    
    If Not Intersect(Range("A:A"), Target) Is Nothing Then
        If Not IsNumeric(Target) Then ' also nur, wenn Text 
            With Target.Offset(1).Resize(intOff).EntireRow
                .Hidden = Not (.Hidden)
            End With
        End If
    End If
End Sub
LG UweD
Anzeige
AW: Spalten bei Klick auf Werkzeug Nr. Ein/Aus blenden
07.01.2020 12:36:19
Bernhard
ja die Aussage von torsten ist Korrekt.
Danke :)
AW: Spalten bei Klick auf Werkzeug Nr. Ein/Aus blenden
07.01.2020 12:25:29
Bernhard
hallo,
ja Sorry ist noch aus der Orignal Datei drinne.
PW= QS2020
Also in der Spalte 5 in Zelle A5 steht die Werkzueg Nr.
in den darunter liegenden Spalten liegen die Prüfkriterien welche ein bzw. ausgeblendet werden sollen.
Insgsamt 15 Zeilen (Zeile 6-20) und dies wiederholt sich fortlaufend mit jeweils einer anderen Werkzeug Nr. und evtl. anderen kriterien.
Danke und Gruß
Bernhard
AW: Spalten bei Klick auf Werkzeug Nr. Ein/Aus blenden
07.01.2020 12:00:34
Werner
Hallo Bernhard,
so: 
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
Gruß Werner
Anzeige
AW: Spalten bei Klick auf Werkzeug Nr. Ein/Aus blenden
07.01.2020 12:35:05
Bernhard
Hallo Werner,
vielen Dank für deine Hilfe!
Ich habe den Code in ein Modul in der Testdatei eingefügt.
Leider Passiert nichts beim Doppelklicken auf die Werkzeug Nr.
Wenn ich das richtig verstehe muss ich das Macro ja nicht auf die einzelnen Werkzeug Nr. verlinken.
Habe ich was übersehen und nicht verstanden?
Gruß
Bernhard
AW: Spalten bei Klick auf Werkzeug Nr. Ein/Aus blenden
07.01.2020 12:38:43
Jürgen
Hallo Bernhard,
das ist ein "Worksheet"-Code, der gehört nicht in ein Modul,
sondern in das MicrosoftExcel Objekt des Tabellenblatts in dem die Werkzeugnummern stehen.
Gruß
Jürgen
AW: Spalten bei Klick auf Werkzeug Nr. Ein/Aus blenden
07.01.2020 12:40:21
Bernhard
Hallo Werner,
ich habs hinbekommen, der Code muss direkt ins Worksheet.
Vielen herzlichen Dank!!!
Gruß Bernhard
Anzeige
Gerne u. Danke für die Rückmeldung. o.w.T.
07.01.2020 12:57:04
Werner
AW: Spalten bei Klick auf Werkzeug Nr. Ein/Aus blenden
07.01.2020 12:40:43
UweD
Hallo
nicht in ein Modul...
- mache einen Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- im rechten Fenster einfügen
LG UweD
AW: Spalten bei Klick auf Werkzeug Nr. Ein/Aus blenden
10.01.2020 14:09:08
Bernhard
Hallo zusammen,
ich habe noch eine Frage zum erstellten Code. (dieser Funktioniert super)
Wenn ich in der Liste einen Filter setzte und diesen dann wieder entferne, sind alle Spalten wieder offen. Ich möchte aber das Sie weiterhin geschlossen sind oder die Möglichkeit haben diese per Klick alle zu schließen.
Könnt Ihr mir hiermit evtl. auch weiterhelfen?
Vielen Dank im Voraus
Bernhard
zu, weiter in deinem neuen Beitrag. o.w.T.
10.01.2020 22:09:01
Werner
Das Problem ist wohl extrem wichtig...
13.01.2020 19:13:16
Werner
Hallo,
...so dass man einen neuen Beitrag eröffnen muss. Aber für eine Reaktion auf die angebotene Hilfe reicht es dann wohl nicht mehr.
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