Hallo zusammen!

Ich bin neu beim VBA-Programmieren und habe jetzt ein Problem.

Ich habe in Excel ein Tabellenblatt 2 in dem in den Spalten B4 bis G114 Werte eingetragen sind und möchte eine Funktion programmieren, die einen Eingabewerte z bekommt (Integer) und dann den Wert der Zelle B(4+z) in den Vektor q speichert (an 1. Stelle). Danach soll der Wert der Zelle C(4+z+1) ausgelesen werden und so weiter bis G(4+z+5). Die Werte sollen alle nacheinander in den Vektor q gespeichert werden. Wenn ich in der Spalte G angekommen bin, dann soll nach dem Wert G(4+z+5) der Wert G(4+z+6) in den Vektor gespeichert werden. Das geht so weiter bis zu G114.

(Also die ersten 6 Spalten diagonal nach unten ab dem Startwert und ab Spalte G dann nach unten fortsetzen.)

Kann mir dabei jemand helfen? Ich komme mit der Indizierung leider nicht klar.

Ich habe es bisher mit:

Dim q_mat As Variant

q_mat=ThisWorkbook.Worksheets("Tabelle2").Range("B4:G114").Value

probiert und dann wollte ich den Vektor q aus der Matrix nehmen.

Dann bringt mir VBA eine Fehlermeldung, dass das mit dem Datenfeld nicht funktioniert.

Das Ganze müsste doch sicher einfach zu lösen sein, oder? Kann mir da jemand helfen? Das wäre echt genial!!!!!

Vielen Dank

Lena