Addin Funktion mit Output an andere Zellen
Sönke
wie kann ich es zur "Laufzeit" es schaffen, dass die Funktion nicht nur an sich selbst ein Rückgabewert gibt, sondern z.b. auch an einen anderen Zellbereich im gleichen Tabellenblatt?
Beispiel:
Funktion wird in Zelle A1 aufgerufen -> =MeineFunktion(A20)
Im VBA:
Function MeineFunktion(pRange as range)
'Ermittle die Daten aus einer anderen Tabelle bzw. Datenbank
Set r = pRange
For Each x In .fields
r = x.Name
r.Font.Bold = True
Set r = r.Offset(, 1)
Next
r.Offset(1,0).CopyFromRecordset rssql
End Function
Das ganze passiert dann in einem Addin, ist momentan aber Egal...
thx
Sönke
Anzeige