Anhand einer ListboxAuswahl möchte ich auf eine Zeile in TB zugreifen. Dazu habe ich jetzt in der Listbox in Spalte 7
".List(Zeile1, 7) = C.Row" eingefügt und dann den
"Cells(Me.ListBox2.Column(7), 1)" in Code übergeben.
Im nachfolgenden Code wollte ich nun die ausgelesene ZeilenZahl in der intRow -Anweisung weiterverwenden. In der Zeile "intRow = Cells(Me.ListBox2.Column(7), 1)" erhalte ich die korrekte ZeilenZahl aber in der Zeile "Sheets_("Speicher").Range(Sheets("Speicher").Cells(intRow, i - 4),_ Sheets("Speicher").Cells(intRow, i)).Copy " wird für intRow der Wert 0 angezeigt. Wo liegt der Fehler und wer kann mir dabei helfen diesen zu beheben.
Private Sub CommandButton7_Click()
Dim intRow As Integer, i As Integer
intRow = Cells(Me.ListBox2.Column(7), 1)
For i = 5 To 255 Step 5
Sheets("Speicher").Range(Sheets("Speicher").Cells(intRow, i - 4), Sheets("Speicher").Cells(intRow, i)).Copy
Sheets("Rechnung").Range("A" & i / 5 + 1).PasteSpecial Paste:=xlValues
Next
End Sub