first in first out
18.04.2007 17:00:00
siaj
Hallo Franz,
grundsätzlich kein Problem.
Es bleiben aber ein paar Fragen:
1. Beispieltabelle mit Daten wäre sehr hilfreich, wie sehen die eingelesenen Daten aus? Wie sollen sie in der Tabelle 2 stehen?
2. Sollen die Daten immer durch manuelle Eingabe (Makro-Button) aus der Tabelle 1 in die Tabelle 2 übertragen werden? Oder soll hier eine zeitgesteuerte Übertragung erfolgen bzw. immer dann wenn ein neuer Datensatz übertragen wurde?
3. Wird immer nur 1 Datensatzt von 1 nach 2 übertragen? Oder variert die Zahl der Datensätzte?
4. In der Tabelle2 stehen immer 10 Datensätze? Wird ein neuer Datensatz eingelesen, dann wird der 10. Datensatz gelöscht, die Datensätze 1 bis 9 wandern eine Zeile nach unten und der neue Datensatz wird in der 1. Position eingefügt?
Nach Klärung dieser Fragen kann man nach einer Lösung suchen, wobei ich ähnliches schon gemacht habe, allerdings ohne die first in/first out Variante, sondern mit ständigen anfügen neu eingelesener Daten in einer 2. Tabelle.
zu 1. Die daten sind wie in der beispiel Tabelle (Tabelle 2), werden eingelesen als txt Datei zerlegt und dann in die die zweite Tabelle (Tabelle 1) in die Spalten A und B koppiert . Die Koordinaten X,Y in die Spalten F und G stehen sollen dann in die zweite Tabell (D30; E39) koppiert. aus die ersten 5 zeilrn in diese Tabelle ensteht mein diagramm.
2. Die Daten Übertragung erfolgt immer dann wenn ein neuer Datensatz übertragen wurde.
3. Es wird nur einen Datensatz übertragen .
4. Genau so soll es sein.
mit dem code von Figro kann ich nur die ersten 10 daten kopieren aber nicht die nachfolgenden.
MfG
Siaj
Beispiel Tabelle : https://www.herber.de/bbs/user/41818.xls
Sub test()
strQuellTabelle = "Tabelle1"
intQuellSpalte = 1 '(=A)
intQuellZeileStart = 1
intQuellZeileEnde = 10
strZielTabelle = "Tabelle2"
intZielSpalte = 2 '(=B)
intZielZeileStart = 1
For intZeile = intQuellZeileStart To intQuellZeileEnde
intNeueZeile = intQuellZeileEnde - intZeile + intZielZeileStart
Worksheets(strZielTabelle).Cells(intNeueZeile, intZielSpalte) = Worksheets(strQuellTabelle). _
_
_
Cells(intZeile, intQuellSpalte)
Next intZeile
End Sub