Microsoft Excel

Herbers Excel/VBA-Archiv

Liste ausfüllen

Betrifft: Liste ausfüllen von: Erich Müller
Geschrieben am: 26.08.2004 15:13:52

Hallo,
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


  


Betrifft: AW: Liste ausfüllen von: Wolfgang
Geschrieben am: 26.08.2004 16:38:14

hi Erich,


ungetestet:

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
    ActiveCell.Offset(0,1).Value=Vereine.Vereinsnamen.Value
End Sub


Müsste aber eigentlich funktionieren...

Gruß
Wolfgang


  


Betrifft: AW: Liste ausfüllen von: Erich Müller
Geschrieben am: 26.08.2004 17:17:27

Hallo Wolfgang,
Danke für Deine Hilfe. Leider fehlt m.E. noch eine Zeile. Bei Dir erscheint gleichzeitig mit dem Cursor in D254, auch das Fenster mit den Vereinsnamen.
Dies sollte allerdings erst nach der Namenseingabe in D254 erscheinen, da die Werte aus dem Fenster in E254 übernommen werden sollen.
Gruß Erich Müller