als erstes möchte ich mich herzlich über das Forum bedanken. Ich habe in letzter Zeit sehr viele Dinge daraus gelernt und konnte diese auch gut auf meine Projekte übertragen.:)
Nun habe ich leider ein kleines Problem, wo ich noch keine Lösung dafür gefunden habe.
Es geht darum einen Bereich aus einem tabellenblatt in ein anderes zu kopieren und dabei zu formatieren.
Ausgang: Tabelle3 -> Werte in "B4:D11"
diese sollen in Tabelle2 in den Bereich "E1:E25", und zwar spaltenweise
(bei den orginalen Werten handelt es sich natürlich um viele mehr)
Problem: es läuft alles soweit außer die Zeile mit den Bereichen
Code:
Sub test()
Dim i As Integer
Dim j As Integer
Set wsz = Sheets("Tabelle2")
Set wsq = Sheets("Tabelle3")
j = 16
For i = 2 To 4
wsz.Range(Cells(16, 5), Cells(23, 5)).Value = wsq.Range(Cells(4, i),_ Cells(11, i)). _
Value
'Fehler bei zweiter range, ersetzt durch "range("x:y")"-> funzt
j = j + 8
Next
End Sub
Es wäre schön wenn jemand mir erklären könnte warum ich bei der zweiten Range nicht diie Cells verwenden kann.
Danke schon mal im Vorraus.