Eingelesene Tabelleninhalte übergeben
24.01.2005 13:38:07
Oliver A.
Ich habe in einer Tabelle eine Maske in die ich Werte, die ich aus einer anderen Tabelle übergeben möchte. Maske=Tabelle 1
Werte stehen in Tabelle 3.
Einlesen tu ich hoffentlich richtig mit:
Sheets("Tabelle3").Select
ChDir "C:\Dokumente und Einstellungen\RE16524\Desktop\TEST-Auto-Auswert"
'Die 65 in Dim inh habe ich einfach vorgegeben, die 3 ist bindend.
Dim inh(65, 3)
sp = 1
Do While Cells(1, sp) <> ""
z = 1
Do While Cells(z, 1) <> ""
inh(z, sp) = Cells(z, sp)
z = z + 1
Loop
sp = sp + 1
Loop
Wie übergebe ich jetzt die Werte nach Tabelle 1?
Kann ich Werte aus Spalte A,B,C(Tabelle3) damit nach Tabelle 1 ab einer Betimmten Zeile schreiben(meinetwegen ab A22,B22,B23 abwärts)?
Danke für Eure Aufmerksamkeit
Oliver