Registriert seit: 17.12.2020
Version(en): 2010
17.12.2020, 15:34
(Dieser Beitrag wurde zuletzt bearbeitet: 18.12.2020, 17:53 von schauan.
Bearbeitungsgrund: Titel geändert
)
Hallo,
folgendes Problem nach 2 Wochen selber versuchen:
Ich öffne das Excel-Dateneingabeformular über ein Makro (Button - ActiveSheet.ShowDataForm). Nun startet das Formular immer mit dem ersten Wert in der Tabelle.
Ich möchte, dass das Formular mit einem bestimmten vorselektierten Wert startet.
z.B. Feldwert (separat): Müller oder eine Kundennummer. Ich möchte nun dass das Formular mit diesem Eintrag startet.
Ich bin kein Profi und bin für jeden Denkanstoß dankbar.
Herzlichen Dank & Gruß
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
da solltest Du Dir wohl besser ein Userform programmieren (lassen) ...
Ansonsten, probiere es mal so:
Zitat:Sub MaskeAufrufen()
Application.SendKeys "%K"
Application.SendKeys "Müller"
Application.SendKeys "%t"
ActiveSheet.ShowDataForm
End Sub
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 17.12.2020
Version(en): 2010
Herzlichen Dank, der Application.SendKeys "Müller" funktioniert sehr gut.
Was ich aber benötige anstatt eines hart codierten "Müller", ist eine variable Zelle, z.B. A100
D.h. das Datenformular öffnet mit dem Eintrag in der Zelle A100, z.B. Müller oder Schmitz
Ich hoffe das ist möglich
Danke noch mal
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
statt
"Müller"
dann
Range("A100").Value
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 17.12.2020
Version(en): 2010
Du bist ein Genie!!!!
funktioniert super, vielen lieben herzlichen Dank!!!!!
Registriert seit: 16.08.2017
Version(en): 2007 / 2010 / Web
Hi
SendKeys ist nicht gerade als empfohlen bekannt. Immer wieder von unerwünschten und nur schwer erkennbaren Effekten begleitet.
Der Code z.B. bewirkt in Excel 2010 das sich das Verhalten des NumLook umkehrt.
Code:
Sub MaskeAufrufen()
Application.SendKeys "%K"
Application.SendKeys "Müller"
Application.SendKeys "%t"
ActiveSheet.ShowDataForm
End Sub
Also Code ausführen Maske wieder schließen. Numlook steht laut Anzeige noch auf Num/on. Verhält sich aber wie Num/off. Code zweite mal. Verhalten Numlook wieder normal.
SendKeys ungern.
Gruß Elex
Registriert seit: 17.12.2020
Version(en): 2010
Vielen Dank!
Du hast Recht, ganz schön unberechenbar das "Biest". Es erfüllt erstmal seinen Zweck, merke ich mir aber für die Zukunft! Danke noch mal
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
deswegen auch mein Hinweis mit dem Userform
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)