Liste ausfüllen
26.08.2004 15:13:52
Erich
ich springe mit Range("D254").End(xlDown).Offset(1,0).select auf die nächste freie Zelle D... Nach Eingabe des Wertes in D soll der Cursor nach E springen.
Dabei soll über ein Formularfenster eine Auswahl von Mannschaften erscheinen, aus denen ich die entsprechende aussuchen kann.
Was fehlt in untenstehendem Makro ?
Sub Selbsttore()
Range("D254").End(xlDown).Offset(1,0).select
'Jetzt tätige ich die Eingabe in D und der Cursor nach der Eingabe in D auf E springen
Vereine.Show
?E?.Value=Vereine.Vereinsnamen.Value
End Sub
Gruß Erich Müller