Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

undo

Forumthread: 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

Anzeige

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) ?
Anzeige
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) ?
Anzeige
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
Anzeige
AW: undo
28.03.2020 10:58:56
Rudi
Gm Daniel
Wunderbar, es klappt perfekt ! Vielen Dank, der Code ist toll.
Gruss, Rudi
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige