Dank
Nico
Dank
Nico
Gruss
Lothar
for i = 1 to 500
listbox.additem sheets(1).cells(i,1).value
next
Danke
Nico
Gruss
Lothar
Das ist auch nicht motivierend ! (hattest du ja heute schon mal, oder?)
Ciao Peter
... das Prinzip was hinter der Übergabe von Parametern zwischen Prozeduren und Funktionen stekt habe ich mittlerweile verinnerlicht. Solange sich ein solches "Vorhaben" innerhalb einer Mappe aspielt, klappt das auch. Mein Problem ist aber die Parameterübergabe an eine andere Mappe (andere Datei). Eigentlich sollter folgender Code funktionieren:
a.xls in Modul1
Dim a As String
Sub quelle()
Dim Ergebnis As Variant
a = "Mickey Duck"
Application.Run ("d:\b.xls!ziel"), a
End Sub
b.xls in Modul1
Dim a As String
Function ziel(a As String)
MsgBox a
End Function
Klappt aber leider nicht ... Laufzeitfehler 1004 ...
Danke
Nico