Aufruf Eingabemaske ShowDataForm mit Vorbelegung

[Gast2020]

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ß

[schauan]

Hallöchen,

da solltest Du Dir wohl besser ein Userform programmieren (lassen) ...

Ansonsten, probiere es mal so:

Sub MaskeAufrufen()
Application.SendKeys "%K"
Application.SendKeys "Müller"
Application.SendKeys "%t"
ActiveSheet.ShowDataForm
End Sub

[Gast2020]

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

[schauan]

Hallöchen,

statt
"Müller"
dann
Range("A100").Value

[Gast2020]

Du bist ein Genie!!!!

funktioniert super, vielen lieben herzlichen Dank!!!!!

[Elex]

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

[Gast2020]

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

[schauan]

Hallöchen,

deswegen auch mein Hinweis mit dem Userform