Mein bisheriger Code:
Private Sub Button_Speichern_Click()
Dim T_Rech As Worksheet
Dim T_List As Worksheet
Dim Rech_Zelle As Long
Dim List_Zelle As Long
Dim arrTemp(), arrCopy()
Dim i As Long, j As Long: j = 2
Set T_Rech = ActiveWorkbook.Worksheets("Rechnung")
Set T_List = ActiveWorkbook.Worksheets("List")
List_Zelle = 2
arrTemp = T_Rech.Range("A11:E30")
For i = 1 To UBound(arrTemp)
If arrTemp(i, 1) <> "" Then
ReDim Preserve arrCopy(1 To 5, 1 To j)
arrCopy(1, j) = arrTemp(i, 1)
arrCopy(2, j) = arrTemp(i, 2)
arrCopy(3, j) = arrTemp(i, 3)
arrCopy(4, j) = arrTemp(i, 4)
arrCopy(5, j) = arrTemp(i, 5)
j = j + 1
End If
Next i
With T_List
Sheets("List").Range("A2") = Sheets("Rechnung").Range("C6")
.Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 4).Resize(UBound(arrCopy, 2),
5) = Application.Transpose(arrCopy)
End With
Range("C4").ClearContents
Range("C6").ClearContents
Range("A11:B30").ClearContents
Range("C4").Select
End Sub
Meine Frage
Die Liste in Tabelle Rechnung wird super in Tabelle List überommen und zwar in die
Spalte D bis H. Das ist Super.
Nun möchte ich jedoch in Spalte A in der Tabelle List noch eine fixe Re-Nummer aus
der Tabelle Rechnung welches immer in der Zelle C6 steht mitgeben. Was muss dazu
noch geändert werden?