VBA - array - Ergebnisausgabe
12.09.2008 10:04:00
Jana
Nach den zahlreichen Hilfen kennt ihr bestimmt auch eine Antwort auf folgendes:
Ich arbeite auf einem Tabellenblatt (Tabelle1) und möchte die via VBA errechneten Variablen an das Ende einer Tabelle auf ein weiteres Tabellenblatt "Test" (Tabelle3) schreiben.
Mit der Funktion Cells(Rows.Count, 1).End(xlUp).Row)+1 ermittel ich ja die letzte beschriebene Zeile in Spalte A und gehe dann in die nachfolgend leere Zelle. Diesen Platz der Zelle möchte ich dann nämlich in die Variable "i_laenge" einlesen, damit ich anschließend die berechneten Daten hardcopy in Tabelle 3 in die erste Leere Zeile am Ende einer Tabelle reinschreiben lassen kann.
So habe ich mir das erstmal gedacht. Aber wie kann ich in der With-Schleife i_laenge adressieren?, um das Ergebnis ausgeben zu lassen.
With Tabelle3
.(Cells(Rows.Count, 1).End(xlUp).Row) + 1 = i_laenge
End With
Worksheets("TEST").Range(Worksheets("TEST").Cells(ilaenge, 1), Worksheets("TEST").Cells(i_laenge, 1)) = i_test1
Oder gibt es vielleicht eine viel interessantere Lösung?
Vielen Dank!!
Jana