Listenfeld
15.07.2003 08:03:58
Heidi
Habe ein Listenfeld erstellt. Wo A1:A53 die Daten stehen.
wenn ich den u.a. Code benutze bekomme ich immer die Fehlermeldung "Typen unverträglich"
Was mache ich falsch??
Sub Name_eintragen()
Sheets("Tabelle1").Activate
Sheets("Tabelle1").Visible = True: AUSWAHL = Range("Tabelle1!A1") + 4
ActiveCell = Range("Tabelle1!D" & AUSWAHL)
End Sub
Danke