ich habe ein problem:
ich möchte mit hilfe eines makros daten aus einer xls datei1:
(sieht so aus:)
1 2 3 4 5
a b c d e
in eine andere speichern (datei2):
(soll so aussehen:)
1 a
2 b
3 c
4 d
5 e
--
um die daten aus der zeilenschreibweise in die spaltenschreibweise zu bekommen, hab ich mir schon was gebastelt:
...
Dim i%, R%, C%, j%
j = 1
Do Until IsEmpty(Cells(j, 1))
i = 1: R = 0: C = 0
Do Until IsEmpty(Cells(j, i))
R = R + 1
Tabelle2.Cells(R, C + j) = Cells(j, i)
If R = 256 Then
R = 1
C = C + 1
End If
i = i + 1
Loop
j = j + 1
Loop
...
dieses makro schreibt die zeilenweise daten aus tabelle1 spaltenweise in tabelle2.
wie schaffe ich es jetzt, dass die zeilenweise daten aus Datei1.tabelle1 kommen und in Datei2.tabelle2 geschrieben werden?
gruss
felix