Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ShowModal+Tabelle

Forumthread: ShowModal+Tabelle

ShowModal+Tabelle
06.11.2006 21:36:10
SteffenS
Hallo und guten Abend.
Ich rufe per: LG_Diff.Show eine UF aus bei der die ShowModal auf False gesetzt ist auf.
Dies funktioniert auch, nur keine ich in der Tabelle ich mich nicht mehr mit den Cursortasten in der Tabelle bewegen.
Klicke ich eine andere Zeile an, so kann ich mich wieder bewegen.
Ich habe es schon mit Target.Activate probiert bringt aber alles nichts.
Was muss ich tun ich mich ganz normal in der Tabelle bewegen kann?
Danke Euch im Voraus.
MFG
Steffen Schmerler
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ShowModal+Tabelle
06.11.2006 21:45:53
K.Rola
Hallo,
kopier das ins Modul deines Userforms:
Option Explicit
Private Declare Function SetActiveWindow Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub UserForm_Activate()
SetActiveWindow FindWindow("xlMain", vbNullString)
End Sub

Gruß K.Rola
Anzeige
AppActivate
06.11.2006 23:23:28
Beate
Hallo Steffen,
oder so:
Private Sub UserForm_Activate()
'Code von Uwe Küstner
'aus Thread: http://www.herber.de/forum/archiv/792to796/795690
ActiveCell.Activate
AppActivate Application.Caption
End Sub
Gruß,
Beate
Anzeige
Danke Euch....
09.11.2006 20:15:56
SteffenS
ihr seit die Besten
MFG
Steffen
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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