Zelle zur Eingabe aktivieren...

[radagast]

Heje Excelfreunde, VBAler,

folgende Situation:

- Ein Tabellenblatt ("WSDE") und ein Userform ("1") werden gleichzeitig geöffnet. Tabellenblatt komplett gesperrt.
- Auf Userform wird ein Button gedrückt und ein Listenfeld wird geöffnet.
- Auswahl in einem Listenfeld wird getroffen, nach Userform ("1") übertragen und zum Userform ("1") zurückgekehrt.
  Das Tabellenblatt ("WSDE") wir für einen Eingabebereich (20x15 Zellen) entsperrt und die linke, ober Ecke ("F9") seletiert.
  Der Focus liegt immer noch bei Userform ("1").

Um Daten eingeben zu können, muss zur Zeit mit der linken Maustaste das selektierte Feld ("F9") quasi aktiviert werden, um im
freigeschalteten Bereich (20x15 Zellen) der Tabelle ("WSDE") Daten eingeben zu können.

Wie muss der Vorgang durch ein VBA-"Schnipsel" ergänzt werden, dass nach der Auswahl im Listenfeld und Rückkehr zur Userform ("1")
die Dateneingabe direkt auf dem Tabellenblatt (WSDE) (""F9) fortgesetzt werden kann, ohne zuvor die linke Maustaste zu betätigen...

[Kuwer]

Hallo,

Wie muss der Vorgang durch ein VBA-"Schnipsel" ergänzt werden, dass nach der Auswahl im Listenfeld und Rückkehr zur Userform ("1")
die Dateneingabe direkt auf dem Tabellenblatt (WSDE) (""F9) fortgesetzt werden kann, ohne zuvor die linke Maustaste zu betätigen...

Unload Me

Gruß Uwe

[radagast]

Heje Excelfreunde, VBAler,

(mea culpa), vergessen zu erwähnen.

zur Ergänzung: Das Tabellenblatt ("WSDE") und die Userform ("1") müssen weiter zusammen geöffnet bleiben.
- nach der Dateneingabe auf Tabelle ("WSDE") werden über ein Button auf Userform ("1") die Daten übertragen.
- anschließend nehmen Tabellenblatt ("WSDE") und Userform ("1") ihren Anfangszustand ein...

[schauan]

Hallo Janosch,

eventuell hast Du über dem mea culpa Uwe's Antwort übersehen - ist die Frage damit erledigt?

[radagast]

Heje Excelfreunde, schauan,

habe die Antwort nicht überlesen, sondern im anschließenden Beitrag meinen Anfangsbeitrag ergänzt...
Scheinbar lässt sich der von mir gewünschte Zustand nicht realisieren...

[schauan]

Hallöchen,

trotzdem erst mal in Anlehnung an Uwe's Antwort der Vorschlag, das UF mit Me.Hide kurz auszublenden und nach der Änderung in einem WorksheetChange wieder einblenden. Dann sind die Eingaben im UF nicht verloren.


Private Sub UserForm_Click()
Range("B2").Select
Me.Hide
End Sub

Eventuell noch mit einem
SendKeys "{F2}", True