Hallo Wolfgang,
in der Sub CheckArray wird das Ereignis AddLine Index nicht ausgelöst, wenn z. B. N2 WAHR ist. Haltepunkt vor AddLine setzen, F5. Diese Zeile
Zitat:
Eventuell hätte ich gerne noch einen Hinweis wie ich am Besten 2 bestimmte Spalten (TWB & TB) auslese und die gefundenen Zeilen jeweils in eine eigene Tabelle zurückschreibe.
Die Spalten N und O sind bekannt, k=14 bzw. k=15. Die Variable
i in
SearchCells enthält die Zeilennummer (wird zu
Index in
CheckArray). Das
k kannst Du "einfrieren" bzw. vorgeben, da die Spalte immer fest ist.
Meine Überlegung: Subroutine AdressenAuslesen basteln, welche die Adressen in eine extra Tabelle schreibt; ausgelöst wird diese Sub, wenn AddLine Index ausgeführt wird. Index und k sind zu diesem Zeitpunkt bekannt, die Zelle mit dem korrekten Inhalt ist adressiert - also etwa so (ungetestet!):
Code:
If InStr(1, CStr(aSource(Index, k)), sSearch) > 0 Then
AddLine Index
AdressenAuslesen
Exit Sub
End If
Frederik[Edit: Vielleicht lässt sich die erste Frage lösen, indem Du zusätzlich prüfst: if aSource(Index, k) = True... - dies entspricht WAHR. Bei AdressenAuslesen noch Index und k mit übergeben /Edit]
------------------
DIN1055.de | Lastannahmen für Anwender NEU: Foren zu DIN 1055
[Diese Nachricht wurde von Paulchen am 22. Jan. 2009 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP