vertikal und horizontal
15.03.2009 10:58:27
ludmila
In der Tabelle "Liste" sind Daten horizontal eingetragen.
Diese sollen nun in der Tabelle "Projekt" vertikal eingetragen werden.
Nachstehendes makro ließt jedoch nur das Datum ab der Zelle A 63 ein.
wo liegt der Fehler?
Danke!
LG Ludmila
Sub Lieferung()
Dim Datum1(2000) As Date
Dim Netto(2000) As Variant
Dim Mwst2(2000) As Variant
Dim Mwst3(2000) As Variant
Dim Brutto(2000) As Variant
Dim Lief(2000) As String
Dim Pos1 As Integer
Dim X As Integer
Dim I As Integer
Dim SP As Integer
Dim wks As Worksheet
Dim wks1 As Worksheet
Set wks = Worksheets("Liste")
Set wks1 = Worksheets("Projekt")
SP = 1 'wks.Cells(2, 9)
Pos1 = 11 'wks.Cells(1, 18)
X = 63 'wks.Cells(6, 9)
With wks 'Liste
For I = 1 To Pos1 - 1
Datum1(I) = .Cells(I, 11)
Lief(I) = .Cells(I, 12)
Netto(I) = .Cells(I, 13)
Mwst2(I) = .Cells(I, 14)
Mwst3(I) = .Cells(I, 15)
Brutto(I) = .Cells(I, 16)
Next I
End With
With wks1 ' Projekt
For I = X To X + Pos1 - 1
.Cells(X, SP) = Datum1(I)
.Cells(X + 1, SP) = Lief(I)
.Cells(X + 2, SP) = Netto(I)
.Cells(X + 3, SP) = Mwst2(I)
.Cells(X + 4, SP) = Mwst3(I)
.Cells(X + 5, SP) = Brutto(I)
X = X + 6
Next I
End With
End Sub
Anzeige