Definierten Zellbereich mit VBA transponieren
19.05.2016 19:33:02
Thomas
ich möchte die Werte einer Liste in eine Spalte auf einem anderen Tabellebblatt transponieren. Dabei stehen Quell und Zielrange fest. Ich habe es so versucht, aber laufe immer auf einen Laufzeitfehler (1004).
Wo ist denn mein Denkfehler?
Viele Grüße,
Thomas
Private Sub Worksheet_Activate()
Dim i As Integer
Dim q As Integer
Dim quelle As Range
Dim ziel As Range
Set quelle = Worksheets("Schülerliste").Range(Cells(q, 5), Cells(q, 5))
Set ziel = Worksheets("Fehltagedatenbank_entsch").Range(Cells(3, i), Cells(3, i))
For i = 1 To 31
q = 7
ziel = quelle.Value
q = q + 1
Next
End Sub