|
Sehr geschätztes Forum,
Ich beschäftige mich seit gestern mit VBA. Habe nun einen Fehler, den ich nicht zu beheben weiß. Vorab der Code:
Sub ZeileKopieren()
Dim i As Integer
Sheets("Tabelle1").Activate
For i = 2 To 1200
If Cells(i, 1).Value = "Test" Then
Range(Cells(i, 1).Value, Cells(i, 256)).Select
Selection.Copy
Sheets("Tabelle7").Range("A1:A1200").Find("").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Sheets("Tabelle1").Activate
ActiveCell.Offset(i + 1, 2).Select
Next i
End Sub
Nun die Fehlermeldung:
Index außerhalb des gültigen Bereichs
Sinn und Zweck der ganzen Geschichte ist, das ich eine Tabelle mit etlichen Datensätzen habe. Diese Datensätze haben sehr viele Leerstehende Attribute (Spalten). Damit man einen schnelleren und besseren Überblick bekommt, versuche ich nun einen Datensatz zu filtern, indem die leerstehenden Attribute wegfallen. Als Ansatz hierfür habe ich mir zunächst überlegt einen ganzen Tupel der einer Bedingung (In diesem Fall "Test" irgendwo in Spalte1) entspricht, herüber zu kopieren.
Vielen Dank für eure Hilfe!
Visit Me at http://www.amenger.de
|