der nachfolgende Code soll eine Zelladressierung auf die Spalten von C bis W bewerkstelligen,
die Adressierung erfolgt aber nur für im ersten Durchlauf = 1 = A und nicht auf C
Was mache ich da falsch?
'Definition der Eingabespalten für das zu suchende x als Array
Spalte = Array(3, 5, 7, 11, 13, 15, 17, 19, 21, 23)
'Spalte = Array("C", "E", "G", "K", "M", "O", "Q", "S", "U", "W") funzt Ø
For Spalte = 1 To 10 'hier sollen die Spalten von C bis W übergeben werden
For i = 6 To imax Step 1 '
Zelle = wks.Cells(i, Spalte) ' Zeilen-Spaltendurchlauf x in Spalten 3-23 = C-W
GelbeZelle = Cells(i, 1)
Next Spalte 'Spaltenarray
Gruss Ha-Jü.