Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1516to1520
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
1516to1520
1516to1520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA DoubleClick und Befehlsschaltfläche zusammen

VBA DoubleClick und Befehlsschaltfläche zusammen
24.09.2016 23:16:26
Andreas
Guten Abend,
Wollte in meiner Userform eine Befehlsschaltfläche für einen Befehl, den ich bereits mit DoubleClick ausführen kann, auch dort ausführen.
Wie kann ich dies programmieren?
Dies geht schon wunderbar- jedoch muss ich dazu immer die Userform schließen.
Option Explicit 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then
Range(Cells(Target.Row, 2), Cells(Target.Row, Columns.Count)).Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromLeftOrAbove
'      Target.Offset(-1, 0).Formula = "=Row()-4"
Cancel = True
End If
End Sub
Danke im Vorraus.
Mit freundlichen Grüßen, Andreas D.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA DoubleClick und Befehlsschaltfläche zusammen
25.09.2016 01:07:33
Mullit
Hallo,
z.B. so, Deine Event-Prozedur mußt Du dafür Public oder Friendly stellen: 
Option Explicit
Private Sub CommandButton1_Click()
Call Tabelle1.Worksheet_BeforeDoubleClick(Target:=ActiveCell, Cancel:=False)
End Sub

Option Explicit

Friend Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 3 Then
        Range(Cells(Target.Row, 2), Cells(Target.Row, Columns.Count)).Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromLeftOrAbove
  '      Target.Offset(-1, 0).Formula = "=Row()-4"
        Cancel = True
    End If
End Sub

Gruß, Mullit
Anzeige
AW: VBA DoubleClick und Befehlsschaltfläche
25.09.2016 10:17:02
Andreas
Hallo Mullit, danke für die Lösung.
Zur Zeit aber funktioniert das ganze nur, wenn ich folgendes- was in einem Modul gespeichert ist- Kopiere und in die Excel Objekte unter meiner erstellten Tabelle "Bearbeiten" Einfüge.
Jedoch soll die Funktion immer in der Tabelle"Bearbeiten" verfügbar sein. Die Tabelle wird immer erst Erzeugt.
Option Explicit 
Public Sub Worksheet_BeforeDoubleClick1(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then
Range(Cells(Target.Row, 2), Cells(Target.Row, Columns.Count)).Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromLeftOrAbove
'      Target.Offset(-1, 0).Formula = "=Row()-4"
Cancel = True
End If
End Sub

Wo und wie muss denn das Modul hin, das es immer gleich aktiv ist, wenn die Tabelle "Bearbeiten" erstellt wurde.
Danke für Eure Hilfe.
LG Andreas D.
Anzeige
AW: VBA DoubleClick und Befehlsschaltfläche
25.09.2016 15:19:53
Mullit
Hallo,
okidoki, von erzeugten TabBlättern haste vorher nichts geschrieben, aber im Prinzip so:
Option Explicit
Private Sub CommandButton1_Click()
Call DieseArbeitsmappe.Workbook_SheetBeforeDoubleClick( _
Sh:=ActiveSheet, Target:=ActiveCell, Cancel:=False)
End Sub

Code in Dein Arbeitsmappen-Modul: 
Option Explicit
Friend Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As  _
Boolean)
If Sh.Name = "Bearbeiten" Then
If Target.Column = 3 Then
Range(Cells(Target.Row, 2), Cells(Target.Row, Columns.Count)).Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromLeftOrAbove
'      Target.Offset(-1, 0).Formula = "=Row()-4"
Cancel = True
End If
End If
End Sub

Gruß, Mullit
Anzeige
AW: VBA DoubleClick und Befehlsschaltfläche
25.09.2016 15:25:17
D,
War mein Fehler- jetzt geht es. Danke
AW: VBA DoubleClick und Befehlsschaltfläche
25.09.2016 16:11:39
Mullit
Hallo Andreas,
null Problemo, alles klar, Danke für die Rückmeldung...
Gruß, Mullit
AW: VBA DoubleClick und Befehlsschaltfläche
25.09.2016 17:05:12
Mullit
Hallo,
hmmm ich sehe mein Dank war verfrüht, Du warst woanders schon im Geschäft , doppelte Arbeit is nich so mein Ding, merk ich mir für die Zukunft...
Gruß, Mullit
AW: VBA DoubleClick und Befehlsschaltfläche
25.09.2016 17:26:26
Andreas
Aber Deine Lösung hat mir geholfen- Mullit. Und Bedankt hab ich mich auch. Du hattest keine doppelte Arbeit. Die hatte ich- Nee - Spaß beiseite- Super Arbeit und Danke nochmal.

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

CommandButton UserForm

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