folgendes Problem macht mich verrückt:
Ich habe ein Programm im File "codeneu" (es ist sehr umständlich geschrieben, ich weiß), das im Grunde nachschaut, ob in der Tabelle Master in gewissen Zellen ein Wert drinsteht (es kommen im Programm weitere Bedingungen dazu) und falls einer drinsteht, dann wird in einer anderen Tabelle das heutige Datum in der dazugehörigen Spalte geschrieben. Das funktioniert soweit.
Nun habe ich ein weiteres Programm geschrieben, das in der Tabelle Master in Betracht kommende Spalten mit ihren Spaltennamen durch das Programm gefunden werden, falls die Spalten in der Tabelle Master, die ich brauche verschoben werden.
Davor habe ich die Zelle, in der nachgeschaut werden soll, genau definiert, also beispielsweise Cells(i,9). Jetzt soll der Column-Wert aber von dem zweiten Programm (File spaltefinden) geliefert werden.
Wenn ich aber in meinem Hauptprogramm folgenden Code schreibe:
Dim spaltenindex as Integer
spaltenindex = spaltefinden(spaltenindex = spaltefinden("Teile-Typ", Range("A8:CT8"))
Dann bekomme ich einen Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler.
Mit der Sub Aufruf in spaltefinden liefert das Programm den richtigen Wert, sobald ich die Funktion spaltefinden jedoch in dem Programm in "codeneu" benutzen möchte, liefert spaltefinden einen falschen Wert.
Kann mir jemand helfen? Vielen Dank!
spaltefinden: https://www.herber.de/bbs/user/107866.txt
codeneu(Hauptprogramm): https://www.herber.de/bbs/user/107867.txt