Hallo zusammen,
ich weiß nicht, wie ich zwei Arrays verbinden kann.
Ich möchte in einem Vektor Monat und Firma zusammen nebeneinander stehen haben, z. B. 2007Adidas. In meinem Excel-Tabellenblatt habe ich in einer Spalte die Monate, in der anderen die Firmen stehen.
Leider erhalte ich bei meinem Code die Fehlermeldung: Laufzeitfehler 424, Objekt erforderlich. Die Fehlermeldung erhalte ich bei Zeile
Set Vektor(v) = Monat(m) & Firma(f)
Weiß jemand, was ich falsch gemacht habe?
Sub Makro3()
Dim m As Integer 'Monat
Dim f As Integer 'Firma
Dim v As Integer 'Monat und Firma
v = 1
Dim Monat(1 To 60) As Range
Dim Firma(1 To 3) As Range
Dim Vektor(1 To 180) As Range
For m = 1 To 60 'Monate in Vektor schreiben
Set Monat(m) = Cells(m, 10) 'in Cells(m,60) stehen 60 Monate
Next m
For f = 1 To 3 'Firmen in Vektor schreiben
Set Firma(f) = Cells(f, 11) 'in Cells(f,11) stehen 3 Firmen (später werden es mehr sein)
Next f
For f = 1 To 3
For m = 1 To 60
Set Vektor(v) = Monat(m) & Firma(f) 'Monate mit Firmen verbinden
v = v + 1
Next m
Next f
End Sub
Viele Grüße,
Christina
|