Hallo Kim,
Danke für deine Antwort.
Ich habe deine ersten drei Schritte befolgt, leider kommt erneut die Fehlermeldung "#Wert!"......
Im Modul1 habe ich folgendes stehen:
Function getstringfunc() As String
''Workbooks("kalle.xlsm").Activate
''Worksheets("Tabelle1").Activate
''Range("A1").Select
''Selection.Copy
''Range("A2").Select
''ActiveSheet.Paste Link:=True
getstringfunc = Range("A1").Value
End Function
in der Excel Tabelle habe ich folgendes Stehen:
=WENN(C4:G4="A";getstringfunc();0)
Das Problem hält mich seit gestern abend auf und ich kann an diesem "excel basierten tool" nicht weiterbasteln, solange ich das nicht gelöst habe.
In dem Sinne, vielen Dank für die Hilfe.
|