Thema Datum  Von Nutzer Rating
Antwort
20.10.2020 13:13:28 Gerd_VBA-Neuling
Solved
20.10.2020 14:36:22 Gast19997
NotSolved
20.10.2020 14:48:27 volti
NotSolved
20.10.2020 14:57:38 volti
NotSolved
20.10.2020 15:08:25 Gast1431
NotSolved
20.10.2020 15:02:56 Gerd_VBA-Neuling
NotSolved
20.10.2020 15:07:16 volti
NotSolved
20.10.2020 15:46:04 GERD_VBA-Neuling
NotSolved
20.10.2020 17:48:19 xlKing
NotSolved
20.10.2020 17:58:38 Gerd_VBA-Neuling
NotSolved
Rot Zeile einfügen mit Doppelclick mittels Modul oder Klassenmodul
 20.10.2020 18:26:54 xlKing
Solved
20.10.2020 18:34:46 Gerd_VBA-Neuling
NotSolved
20.10.2020 18:39:45 xlKing
Solved
20.10.2020 18:54:28 Gerd_VBA-Neuling
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
20.10.2020 18:26:54		 Views:
1044		 Rating:
     
Antwort:
 Nein
Thema:
Zeile einfügen mit Doppelclick mittels Modul oder Klassenmodul

So, hier der Prozess:

Öffne ein neues Workbook (neue leere Excel-Datei) und entferne alle Tabellenblätter mit Ausnahme von Tabelle1. Speichere die Datei dann über Speichern unter als Excel-Addon (*.xla) Gib der Datei dabei einen aussagekräftigen Namen z.B. "Doppelklickereignis.xla". Aktiviere sogleich dieses Addin über den Add-In Manager Ggf. musst du zuvor über Durchsuchen das eben gespeicherte Add-In erst der Liste hinzufügen. Öffne nun den VBA-Editor (z.B. über Alt+F11) und suche das VBA Projekt mit deinem Addin Namen. Dort fügst du zunächst ein neues Klassenmodul (z.B. Klasse1) ein und benenne dieses sogleich um. z.B. in "EvtModule", Diesese EvtModule erhält nun folgenden Code:

?
1
2
3
4
5
6
7
8
9
10
Public WithEvents app As Application
 
Private Sub app_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
 
Sh.Rows(Target.Row).Copy
Sh.Rows(Target.Row + 1).Insert Shift:=xlDown
Application.CutCopyMode = False
Sh.Cells(Target.Row + 1, Target.Column).Select
 
End Sub

Anschließend klickst du im gleichen Projekt auf "DieseArbeitsmappe" und gibst diesen Code ein.

?
1
2
3
4
Dim xapp As New EvtModule
Private Sub Workbook_Open()
  Set xapp.app = Application
End Sub

Drücke nun auf Speichern und schließe Excel. Nach dem erneuten öffnen reagiert das Event auf jeden Doppelklick in jeder Tabelle von jeder Excel-Datei. Wenn du das nicht willst kannst du den Code weiter einschränken. z.B. auf Dateien die einen bestimmten Text im Dateinamen enthalten.

Gruß Mr. K.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
20.10.2020 13:13:28 Gerd_VBA-Neuling
Solved
20.10.2020 14:36:22 Gast19997
NotSolved
20.10.2020 14:48:27 volti
NotSolved
20.10.2020 14:57:38 volti
NotSolved
20.10.2020 15:08:25 Gast1431
NotSolved
20.10.2020 15:02:56 Gerd_VBA-Neuling
NotSolved
20.10.2020 15:07:16 volti
NotSolved
20.10.2020 15:46:04 GERD_VBA-Neuling
NotSolved
20.10.2020 17:48:19 xlKing
NotSolved
20.10.2020 17:58:38 Gerd_VBA-Neuling
NotSolved
Rot Zeile einfügen mit Doppelclick mittels Modul oder Klassenmodul
 20.10.2020 18:26:54 xlKing
Solved
20.10.2020 18:34:46 Gerd_VBA-Neuling
NotSolved
20.10.2020 18:39:45 xlKing
Solved
20.10.2020 18:54:28 Gerd_VBA-Neuling
NotSolved