Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 01:34:12
Userform aus ListBox Zeile in Tabelle farbig markieren
27.04.2024 20:04:34
Excel in Formen z.b Rechteck, eine Tabelle einfügen?
27.04.2024 19:23:05
Passwortabfrage für verschiedene tabellenblätter
27.04.2024 16:48:06
Formel gibt Falsch aus und ich weiß nicht warum - VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1840to1844
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
1840to1844
1840to1844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Worksheet_BeforeDoubleClick problem

Worksheet_BeforeDoubleClick problem
05.08.2021 11:46:44
Norbert
Hallo
habe ein Problem und hätte bitte eure Hilfe gebraucht
Wenn ich mit private sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) arbeite und die Blätter geschützt sind und während des ausgeführten Makros die Blätter "aufgesperrt" werden, es in eine anderes Blatt spring und dieses als Target nimmt.
Wenn Blätter nicht geschützt, ist das Problem nicht. Aber ohne Schutz will ich das Projekt nicht lassen.
Danke
mfg
Norbert

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Blattschutz_aus
Cancel = True
Dim i
'On Error GoTo ende
Blattschutz_aus
If Not Intersect(Target, Me.Range("A2:A1002")) Is Nothing Then  'Application.Intersect(Target, Me.Range("A2:A1002")) Is Nothing Then
'Sheets("Gesamtliste").Range("BY1").Value = Target.Address
'Sheets("Gesamtliste ").Select"
frm_Kalender.Show
'Blattschutz_aus
Alles_anzeigen_G   'hier wird die Gesamtliste nur neu sortiert
Else
End If
If Not Intersect(Target, Me.Range("B2:C1002")) Is Nothing Then   'Application.
UserForm3.Label3.Caption = Target.Column 'ActiveCell.Column
UserForm3.Label4.Caption = Target.Row 'ActiveCell.Row
UserForm3.Show
i = ActiveCell.Row
i_Aktive_row_ = ActiveCell.Row
If Range("A" & i).Value = "" Then
If Range("B" & i).Value = Range("C" & i).Value Then
If Range("H" & i).Value = 0 Then
If Range("D" & i).Value = "" Then
Alles_anzeigen_G ' Sortieren
Else
End If
Else
End If
Else
End If
Else
End If
Else
End If
If Not Application.Intersect(Target, Me.Range("D2:D1002")) Is Nothing Then
'aktuelles_Ziel = Target.Address
'MsgBox (aktuelles_Ziel)
UserForm2.Label1.Caption = ActiveCell.Column
UserForm2.Label2.Caption = ActiveCell.Row
UserForm2.Show
Else
End If
ende:
Blattschutz_ein
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
und warum....
05.08.2021 12:04:31
Werner
Hallo,
....ein neuer Beitrag zum gleichen Thema, statt im anderen Beitrag weiter zu machen?
Gruß Werner
und warum ...
05.08.2021 12:20:27
Rudi
lässt du Blattschutz_ein/aus über alle Blätter laufen?
Um die UF anzuzeigen musst du den Schutz nicht aufheben.
Gruß
Rudi
AW: und warum ...
05.08.2021 13:02:27
Norbert
Mir hat es in der Nacht das nicht angezeigt, das es zum Forum hinzugefügt wurde. Daher probierte es ich es noch einmal. Das habe ich übersehen.
Kann man eigentlich einen Beitrag / Thread löschen in diesem Forum?
Habe mit Eigenschaften herumgespielt und folgendes (Fett) hinzugefügt

Sheets("Gesamtliste").Protect Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True
Habe mehrere Varianten probiert. alle mit einer For each schleife und jedes direkt angesprochen.... beide mit dem selben Ergebnis.

Sub Blattschutz_ein()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
'Dim Blatt As Worksheet
'For Each Blatt In ActiveWorkbook.Sheets
'    Blatt.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
'Next
Sheets("Gesamtliste").Protect Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True
Sheets("Druckvorschau").Protect Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True
Sheets("Übersicht").Protect Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True
Sheets("Optionen").Protect Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True
Sheets("Vorlagen").Protect Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
  • Um die UF anzuzeigen musst du den Schutz nicht aufheben.

    • Das weiss ich, aber das UF gibt werte in Tabellen zurück und z.B: Zeit Rechen Vorgänge habe ich mit Formel einfacher gefunden als in VBA und dann wieder in eine Listbox zu bekommen. Daher schreibt die Listbox click in eine Tabelle und die andere listbox aktualisiert wieder mit den Daten aus der Tabelle. Wie gesagt war für mich leichter. Und daher müssen die Tabellen offen sein. Aber mit den .Protect Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True geht es im Moment.
    Danke
    mfg
    Norbert
    Anzeige
    AW: und warum ...
    05.08.2021 14:22:34
    Werner
    Hallo,
    weshalb im Code mit einer Zeilenvariablen und ActiveCell rumhandtieren?
    Du hast doch alles was du brauchst in Target (Target.Row, bzw. Target.Column)
    
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A2:A1002")) Is Nothing Then
Cancel = True
frm_Kalender.Show
Alles_anzeigen_G
End If
If Not Intersect(Target, Range("B:C")) Is Nothing Then
UserForm3.Show
UserForm3.Label3.Caption = Target.Column
UserForm3.Label4.Caption = Target.Row
If Cells(Target.Row, "A") = "" Then
If Cells(Target.Row, "B") = Cells(Target.Row, "C") Then
If Cells(Target.Row, "H") = 0 Then
If Cells(Target.Row, "D") = "" Then
Alles_anzeigen_G
End If
End If
End If
End If
End If
If Not Intersect(Target, Range("D2:D1002")) Is Nothing Then
UserForm2.Show
UserForm2.Label1.Caption = Target.Column
UserForm2.Label2.Caption = Target.Row
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.CountLarge = 1 Then
If Target.Column = 1 Then
Cells(Target.Row, "AN") = "o"
If Target = "" Then
Cells(Target.Row, "AN") = ""
If Cells(Target.Row, "B") = Cells(Target.Row, "C") Then
If Cells(Target.Row, "H") = 0 Then
If Cells(Target.Row, "D") = "" Then
Alles_anzeigen_G
End If
End If
End If
End If
End If
If Target.Column = 4 Then
If Target = "Werkstatt" Then
With Target.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
UserForm1.Show
Else
With Target.Interior
.ColorIndex = xlNone
.Pattern = xlSolid
End With
End If
End If
End If
End SubPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A2:A1002")) Is Nothing Then
Cancel = True
frm_Kalender.Show
Alles_anzeigen_G
End If
If Not Intersect(Target, Range("B:C")) Is Nothing Then
UserForm3.Show
UserForm3.Label3.Caption = Target.Column
UserForm3.Label4.Caption = Target.Row
If Cells(Target.Row, "A") = "" Then
If Cells(Target.Row, "B") = Cells(Target.Row, "C") Then
If Cells(Target.Row, "H") = 0 Then
If Cells(Target.Row, "D") = "" Then
Alles_anzeigen_G
End If
End If
End If
End If
End If
If Not Intersect(Target, Range("D2:D1002")) Is Nothing Then
UserForm2.Show
UserForm2.Label1.Caption = Target.Column
UserForm2.Label2.Caption = Target.Row
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.CountLarge = 1 Then
If Target.Column = 1 Then
Cells(Target.Row, "AN") = "o"
If Target = "" Then
Cells(Target.Row, "AN") = ""
If Cells(Target.Row, "B") = Cells(Target.Row, "C") Then
If Cells(Target.Row, "H") = 0 Then
If Cells(Target.Row, "D") = "" Then
Alles_anzeigen_G
End If
End If
End If
End If
End If
If Target.Column = 4 Then
If Target = "Werkstatt" Then
With Target.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
UserForm1.Show
Else
With Target.Interior
.ColorIndex = xlNone
.Pattern = xlSolid
End With
End If
End If
End If
End Sub
    Ich habe die Zielzellen hier jetzt mit Cells(Target.Row, ....) angesprochen. Das ist für dich vielleicht leichter zu lesen/verstehen. Man könnte das auch über einen Offset regeln.
    Und dann im Workbook.Open noch diesen Code:
    
Private Sub Workbook_Open()
Dim Blatt As Worksheet
For Each Blatt In ThisWorkbook.Worksheets
Blatt.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, userinterfaceonly:=True
Next
End Sub
    Damit werden beim Öffnen der Datei alle Blätter mit einem Blattschutz versehen. Der Zusatz UserInterFaceOnly = True bewirkt, dass Änderungen durch Makros durchgeführt werden können, obwohl das Blatt geschützt ist. Somit brauchst du dann im weiteren Code nicht dauern den Blattschutz aufzuheben und anschließend wieder zu setzen.
    Teste mal.
    Gruß Werner
    Anzeige
    AW: und warum ...
    05.08.2021 23:55:11
    Norbert
    Danke für die Mühe....
    Es Funktioniert. Musste nur folgendes umdrehen. Und meine etwas "schlampige" Programmierung anpassen....
    
UserForm2.Show
UserForm2.Label1.Caption = Target.Column
UserForm2.Label2.Caption = Target.Row
    zu
    
UserForm2.Label1.Caption = Target.Column
UserForm2.Label2.Caption = Target.Row
UserForm2.Show
    weil es vorher in die label geschrieben werden muss.
    Mein grösstes Problem war eigentlich das mit dem Blattschutz. und das funktioniert jetzt.
    Danke
    Schöne Grüsse aus dem Innviertel Österreich
    Anzeige
    Gerne u. Danke für die Rückmeldung. o.w.T.
    06.08.2021 05:58:35
    Werner

    48 Forumthreads zu ähnlichen Themen

    Worksheet_BeforeRightClick
    Timo

    Hallo,
    ich hab folgenden Code
    Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) UserForm1.Show End Sub
    Nachdem ich mir über die Userform Inhalte in die aktive Zelle geschrieben habe wird die Userform wieder geschlossen. Doch nun ist das Kontexmenu n...
    27.11.2008 14:52:00
    Thread-ID: 1028398
    3 Beiträge
    Anzeige
    BeforeDoubleClick geht nicht
    Stefan

    Hi Spezialisten
    Habe ein komisches Phänomen,
    Ich öffne von Datei a die Datei b. Es klappt alles wunderbar. Wenn ich in der Datei b bin und mich dort in den Userformen bewege ist auch noch alles gut. Gehe ich aber von der Userform in Datei b in ein Tabellenblatt und möchte zurück zu ein...
    29.03.2009 20:45:58
    Thread-ID: 1065125
    2 Beiträge
    Workbook_SheetBeforeDoubleClick - Problem mit Sh
    Peter

    Guten Tag
    Bei der Bearbeitung einer Datei lege ich mir immer wieder eine Index-Tabelle an, in denen alle Tabellennamen eingetragen werden.
    Bei Doppelklick auf einen Eintrag soll die entsprechende Tabell ausgewählt werden.
    Ich habe zwei Fragen:
    1) Weshalb läuft der untenstehende...
    28.12.2010 14:31:19
    Thread-ID: 1193070
    4 Beiträge
    Anzeige
    Worksheet_BeforeRightClick Problem
    Martin

    Hallo zusammen
    mit einem Worksheet_BeforeRightClick blende ich ein weiteres Tabellenblatt ein und selektiere es. Leider erscheint dann im selektierten Blatt immer gleich das normale Rechtsklick-Menü (mit Kopieren, Einfügen, Formatieren etc.). Wie kann ich das ausschalten trotz dem Worksheet...
    28.06.2011 09:44:21
    Thread-ID: 1219981
    4 Beiträge
    Workbook_SheetBeforeDoubleClick
    Claudia

    Hallo alle zusammen,
    ich habe eine Datei mit 21 Blätter (Masch1 - Masch21). Nun möchte ich gerne mittels Doppelklick und dann mit einer Auswahl in Spalte D in den Zellen D10 - D40 jeweils einen Buchstaben eintragen und zwar z, h, n. Mit Daten Gültigkeit möchte ich ungern arbeiten da das seh...
    16.02.2012 16:20:09
    Thread-ID: 1251031
    3 Beiträge
    Worksheet_BeforeDoubleClick
    Wolfgang

    Hallo liebe Helfer
    ich möchte in einem geschützten Tabellenblatt bei einem
    Doppelklick auf bestimmte Zellen ( F18 bis 22 )
    in der jeweiligen Reihe die Zellen B18 bis B22 von O auf 1
    oder zurück ändern.
    Egal was ich mache, ich bekomme immer die Meldung: die Zelle ist schreib...
    08.07.2013 15:22:23
    Thread-ID: 1321535
    3 Beiträge
    Worksheet_BeforeDoubleClick
    Horst

    HalloMit dem Ereigniss "Worksheet_BeforeDoubleClick" reagiere ich in dem Tabellenblatt(x) auf einen Doppelklick und wechsle mit Sheets("Tabellenblatt(y)").Select auf ein anderes Tabellenblatt, was optisch auch gelingt, das Tabellenblatt (Y) wird angezeigt.
    Aber bei allen Befehlen muss ich ex...
    21.07.2002 20:01:25
    Thread-ID: 138842
    3 Beiträge
    Uf öffnet aus Worksheet_BeforeDoubleClick
    Thorsten_Z

    Moin liebes Forum,
    Ich brauche einmal Hilfe!
    Folgender Code öffnet mir durch Doppelklick in Spalte A des Tabellenblattes die Userform5. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, [A:A]) Is Nothing Then Userform5.Show Cancel...
    12.09.2014 20:58:28
    Thread-ID: 1381413
    8 Beiträge
    Anzeige

    Links zu Excel-Dialogen

    Label ListBox

    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
    2
    4
    1
    3
    5
    3
    2
    2
    2
    7
    11
    7
    11
    5
    3
    1
    2
    5
    5
    1
    2
    2
    2
    2
    2