Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1748to1752
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
Inhaltsverzeichnis

undo

undo
27.03.2020 18:21:34
Rudi
Hallo alle
Im unten stehenden Code würde ich gerne nach der MsgBox, in die vor dem Selection-Ereignis
zufällig oder bewusst markierte Zelle, zurückspringen, statt nach A1. Gäbe es in diesem Fall eine Lösung ?
Besten Dank und Gruss
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B3:C32")) Is Nothing Then
MsgBox "Bitte den Button benutzen!", vbInformation
Application.Goto Worksheets("Tabelle1").Range("A1")
End If
End Sub

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Application.Goto weglassen! (owT)
27.03.2020 20:39:18
EtoPHG

AW: Application.Goto weglassen! (owT)
27.03.2020 22:56:57
Rudi
Hi EtoPHG
(owT) ?
AW: Application.Goto weglassen! (owT)
27.03.2020 22:56:59
Rudi
Hi EtoPHG
(owT) ?
AW: Application.Goto weglassen! (owT)
27.03.2020 22:56:59
Rudi
Hi EtoPHG
(owT) ?
AW: Application.Goto weglassen! (owT)
27.03.2020 22:57:00
Rudi
Hi EtoPHG
(owT) ?
AW: Application.Goto weglassen! (owT)
27.03.2020 22:57:01
Rudi
Hi EtoPHG
(owT) ?
AW: undo
27.03.2020 22:14:20
Daniel
HI
im prinzip so:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static SelAlt as range
If Not Application.Intersect(Target, Range("B3:C32")) Is Nothing Then
MsgBox "Bitte den Button benutzen!", vbInformation
Application.EnableEvents = False
if  SelAlt is nothing then
Range("B3").Select
else
selAlt.Select
end if
else
set SelAlt = Intersect(Target, Range("B3:C32"))
End If
End Sub
Gruß Daniel
Anzeige
AW: undo
27.03.2020 22:50:50
Rudi
Hallo Daniel
Danke, aber es findet kein Rücksprung statt, die slektierte Zelle im Range bleibt selektiert...
AW: undo
27.03.2020 23:00:28
Daniel
ah sorry.
so sollte es gehen.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static SelAlt As Range
If Not Application.Intersect(Target, Range("B3:C32")) Is Nothing Then
MsgBox "Bitte den Button benutzen!", vbInformation
Application.EnableEvents = False
If SelAlt Is Nothing Then
Range("A1").Select
Else
SelAlt.Select
End If
Application.EnableEvents = True
Else
Set SelAlt = Target
End If
End Sub
Gruß Daniel
AW: undo
28.03.2020 10:58:56
Rudi
Gm Daniel
Wunderbar, es klappt perfekt ! Vielen Dank, der Code ist toll.
Gruss, Rudi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige