Array Problem
09.09.2014 12:04:43
Stefanie
und zwar habe ich ein Array (arr) der die Zeile_A (z.B. Zeile 10 ist aber variabel)
mit allen vorhandenen Spalten enthält.
Zum Beispiel: arr (10,2), (10,3), (10,4) usw. so sollte dieser aussehen.
Jetzt möchte ich diesen durchlaufen und wenn ein "x" gefunden wird soll Cells(3, lSpalte + 1).Copy kopiert werden (weil dort der passende Text drin steht.
Leider klappt hier irgend etwas nicht mit dem durchlaufen. Mein Programm macht dies einmal korrekt und springt dann aber nicht in Next lSpalte und Zeile.
Ich weiß einfach nicht woran es liegt. Kann mir jemand helfen? Bitte! Vielen Dank
arr = Range(Cells(Zeile_A, 2), Cells(Zeile_A, Columns.Count).End(xlToLeft))
For lZeile = Zeile_A To UBound(arr) 'alle Zeilen
For lSpalte = 1 To UBound(arr, 1) 'alle Spalten
If arr(lZeile, lSpalte) = "x" Then
Cells(3, lSpalte + 1).Copy
Sheets("ArbeitsblattXY").Select
Cells(b, y).Select
ActiveSheet.Paste
Cells(b, y).WrapText = True
ActiveSheet.Range("A2:ED" & lSpalte).Rows.EntireRow.AutoFit
Sheets("ArbeitsblattZ").Select
Cells(1, lSpalte + 1).Copy
Sheets("Risikobeurteilung").Select
'Nächste freie Spalte ermitteln
Cells(4, IIf(IsEmpty(Cells(1, Columns.Count)), _
Cells(4, Columns.Count).End(xlToLeft).Column, Columns.Count) + 1).Select
aktuelle_spalte_annex = ActiveCell.EntireColumn.Column
Cells(b, aa).Select
ActiveSheet.Paste
Sheets("G0SA").Select
End If
Next lSpalte
Next lZeile