Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1692to1696
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
1692to1696
1692to1696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Workbook_SheetSelectionChange -> copy/paste

Workbook_SheetSelectionChange -> copy/paste
20.05.2019 11:10:47
WGR
Hallo,
wenn ich Workbook_SheetSelectionChange verwende habe ich das Problem, dass in dem Excel Sheet das normale "copy / paste" nicht mehr funktioniert.
Copy scheint normal zu funktionieren. Das ausgewählte Feld erhält den gestrichelten Rahmen.
Wenn ich nun die Zelle wechsle (Workbook_SheetSelectionChange wird ausgeführt) geht dieser Bezug verloren - der gestrichelte Rahmen verschwindet.
Somit funktioniert auch "paste" nicht mehr ...
Frage: Gibt es eine Möglichkeit diesen Bezug zu erhalten?

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

Betreff
Datum
Anwender
Anzeige
AW: Workbook_SheetSelectionChange -> copy/paste
20.05.2019 11:42:10
Torsten
Hallo,
was passiert denn in deinem SelectionChange?
AW: Workbook_SheetSelectionChange -> copy/paste
20.05.2019 12:26:18
WGR 

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ResetTimer
End Sub


Sub ResetTimer()
On Error Resume Next
Zeitpunkt_Programm_schliessen = Now + TimeValue(SchließenNach)
Zeitanzeige_in_Statusbar
Projektplan_kann_geschlossen_werden = False
'MsgBox ("timer erneut gestartet     " & Zeitpunkt_Programm_schliessen)
End Sub

AW: Workbook_SheetSelectionChange -> copy/paste
20.05.2019 12:32:08
WGR
Hallo Torsten,
wenn ich den Code direkt bei ResetTimer anhalte, dann ist direkt nach dem Aufruf Woorkbook_SheetSelectionChange der Fokus verloren, dh. der gestrichelte Rahmen auch nicht mehr da.
Hatte diesen Code noch vergessen: 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ResetTimer
End Sub

Anzeige
AW: Workbook_SheetSelectionChange -> copy/paste
20.05.2019 13:22:25
Torsten
Hallo,
ja das liegt an dem Timer. Warum wird der eigentlich bei jedem Wechsel der Zelle neu gestartet?
AW: Workbook_SheetSelectionChange -> copy/paste
20.05.2019 14:50:56
WGR
ok, habs ausprobiert. Bisher hatte ich angenommen, dass es ausschließlich an Workbook_SheetSelectionChange liegt.
Aber bei einer sonst leeren Datei wird mit diesem Code der Fokus nicht aufgelöst:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox "Hallo"
End Sub

Die Datei soll nach einer gewissen inaktiven Zeit automatisch gespeichert und geschlossen werden. Hierzu setze ich bei Zellwechsel den Timer wieder zurück.
Wenn es an dem Timer liegt, dann stellt sich die Frage an welcher Stelle der Fokus verloren geht.
Anzeige
AW: Workbook_SheetSelectionChange -> copy/paste
20.05.2019 15:01:56
WGR
hab noch weiter im Code gesucht und Zeile für Zeile getestet ...
Sub Zeitanzeige_in_Statusbar()
Dim Text_fuer_Statusbar As String
Application.DisplayStatusBar = True 'dies verursacht einen Fokusverlust ...
Text_fuer_Statusbar = "Das Programm wir um " & CStr(FormatDateTime( _
Zeitpunkt_Programm_schliessen, vbShortTime)) & " automatisch geschlossen"
Application.StatusBar = Text_fuer_Statusbar
End Sub

Application.DisplayStatusBar = True scheint den Fokusverlust zu verursachen ...
Danke Torsten
Wenn Du noch Anregungen zu "nach einer gewissen Zeit soll Excel geschlossen werden" hast ... gerne.
Anzeige

275 Forumthreads zu ähnlichen Themen

VBA-Problem Change-Event/UDF/Gültigkeit
Erich

Hallo zusammen,
Markus hat in https://www.herber.de/forum/archiv/1012to1016/t1013729.htm ein IMHO interessantes Problem gepostet.
Da der Thread jetzt bald ins Archiv wandert, wir aber noch keine Erklärung gefunden haben,
stelle ich die Frage hier nochmal ein.
In der Beispielmapp...
05.10.2008 11:52:00
Thread-ID: 1014215
2 Beiträge
Anzeige
Worksheet_Change(ByVal Target As Range)
Axel


Hallo Könner,
mal wieder an einem Punkt angekommen, wo ich echt nicht weiß, ob die PCs was Magisches können.
Das Makro unten ist prima gelaufen. Und dann mal wieder nicht. Jetzt gerade mal wieder nicht, daher mein Hilferuf. Als mir das das erste Mal passiert ist, habe ich den ganze...
13.03.2009 12:08:19
Thread-ID: 1059821
5 Beiträge
VBA calculate/change event
Frank

Guten Tag allerseits,
ich hoffe es ist jemand so nett, sich meiner anzunehmen und unterstützt mich bei der Lösung folgenden Problems:
Ich möchte ein Excel-Diagramm (2003) dynamisch über veränderbare Werte aus bestimmten Zellen skalieren. Es handelt sich um ein Diagramm mit jeweils primä...
09.04.2009 16:07:47
Thread-ID: 1068059
7 Beiträge
Anzeige
kleine Frage zu: worksheet change event
Bernd

Guten Abend!
ich versuche mich gerade ein bißchen in VBA insbesondere das worksheet change event zu vertiefen und würde mich über einen Rat freuen.
In A1:A5 habe ich sich verändernde Zahlen von 1 bis 3. Wenn sich in der Spalte A ein Wert verändert, sollen in der entsprechenden Zeile - u...
28.07.2009 19:55:23
Thread-ID: 1092055
8 Beiträge
Workbook SheetChange Änderung
amintire

Hallo, hat evtl jemand eine Lösung für mich diesen Code umzubauen. Momentan funktioniert der so dass alle Mappen in der Datei mit dem Format ausgelöst werden. Es müsste allerdings ausgesuchte Tabellen sein.
Also z.B. Tabelle 1 und 3 und 8 wird mit dem Code formatiert... alle anderen Tabelle...
22.09.2009 22:02:43
Thread-ID: 1104755
4 Beiträge
x1 = .CreateEventProc("Change", "Worksheet")
Oliver

Hallo Kollegen,
ich habe ein Problem bei der .CreateEventProc("Change", "Worksheet")
Mein Code sieht wie folgt aus
Sub Makro_in_Worksheet_zufügen() Dim x As Variant, x1 As Long, x2 As Long, Anzahl_der_Zeilen As Long, Tabellennummer As _ String DIM Tabellenname As String Applicati...
05.10.2009 20:46:33
Thread-ID: 1107220
3 Beiträge
Rückgängig Button nach Worksheet_Change
Chris

Hi,
habe in einem Sheet u.a. ein Worksheet_Change Makro laufen, das bestimmte Werte in bestimmte Zeilen kopiert.
Nachdem ich in dem Sheet ein paar Eingaben gemacht habe, kann ich leider den Rückgängig Button nicht benutzen. Das rührt wohl daher, dass nach einer jeglichen Eingabe das Mak...
21.01.2010 11:27:29
Thread-ID: 1131701
9 Beiträge
Worksheet_Change Problem, wenn Target gelöscht wir
Gianni

Guten Abend
Habe folgendes Problem, bei dem ich nicht weiterkomme. Der untenstehende Code füllt bei Eingabe einer positiven Zahl das Datum in die rechte Nachbarzelle und löscht diese, wenn in eine Targetzelle eine Null eingegeben wird. Nun könnte der Anwender eine Fehleingabe machen und die...
17.03.2010 17:49:27
Thread-ID: 1146683
7 Beiträge

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
1
6
4
6
3
7
3
2
8
6
10
4
1
2
2
3
2
5
7
1
1
10
2
5
5