ich habe folgendes Problem: über DDE-Schnittstelle erhalte ich selbstaktualisierende Daten in Tabelle1. Diese Daten möchte ich gerne in Tabelle2 zeilenweise untereinander protokollieren.
´Code Übergabe der einzelnen Messdaten
Messpunkt1 = Tabelle1.Range("B3")
Messpunkt2 = Tabelle1.Range("C3")
Messpunkt3= Tabelle1.Range("D3")
Messpunkt4 = Tabelle1.Range("E3")
´Code Protokoll
Tabelle2.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = Messpunkt1
Tabelle2.Cells(Rows.Count, 4).End(xlUp).Offset(1, 0) = Messpunkt2
Tabelle2.Cells(Rows.Count, 5).End(xlUp).Offset(1, 0) = Messpunkt3
Tabelle2.Cells(Rows.Count, 6).End(xlUp).Offset(1, 0) = Messpunkt4
Die Protokollierung klappt damit hervorragend. Da ich aber eine grosse Zahl von Messstellen (mit jeweils einer ganzen Reihe von Messpunkten) habe, möchte ich gerne die jeweiligen Laufzeiten verkürzen, da die Leistung des Rechners künftig nicht mehr reichen wird.
Statt einzelner Daten sollen statt dessen Arrays übergeben werden.
´Code Übergabe der einzelnen Messdaten als Arrays
Messdaten(3) = Tabelle1.[B3:E3]
So weit, so gut. Beim Protokollieren gibts dann aber leider Probleme.
Unter Verwendung des Codes: Tabelle2.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = Messdaten(3)
protokolliert Excel nur jeweils den ersten Parameter in die Zelle.
Als Test, ob überhaupt die richtigen Einzeldaten als Arrays übertragen werden, habe ich zunächst den Code: Tabelle2.Range(Cells(2, 3), Cells(2, 6)) = Messdaten(3)
laufen lassen. In Zeile 2 wird nun das Datenfeld (Array) komplett eingetragen.
Trotz zahlreicher Versuche habe ich aber leider keinen funktionierenden Code in Anlehnung an die beiden oben genannten hinbekommen. Eine Schleife kann ich aus verschiedenen Gründen nicht verwenden, muss also bei einer Lösung unter Verwendung von SpecialCells bleiben.
Vielleicht hat jemand einen Tip oder eine Anregung?
Vielen Dank im voraus!
Rafael