AW: Daten in ein anderes Tabellenblatt kopieren VBA
13.03.2017 09:27:07
mikey20333
Hi,
danke für die vielen infos, habe nur ein problem das meine Daten nicht immer an derselben stelle
stehen, habe das makro getestet funktioniert super, aber wie passe ich das ganze an wenn ich wie ich dieses makro habe.
Private Sub CommandButton1_Click()
Dim letzte As Long
Dim spalte As Long
Dim i As Long
Dim wksQ As Worksheet
Set wksQ = Worksheets("Eingabe")
i = 0
With Worksheets("Liste").Range("Tabelle1[Datum]")
If .Cells(.Count, 0) "" Then
i = 1
Worksheets("Liste").ListObjects("Tabelle1").Resize Range("$A$9:$Z$" & 10 + .Count) 'Tabelle _
erweitern
End If
.Cells(.Count + i, 0) = .Cells(.Count, 0).Value + 1
.Cells(.Count + i, 1).Value = Format(wksQ.Range("C4").Value, "dd.mm.yyyy")
.Cells(.Count + i, 2).Value = wksQ.Range("C6").Value
.Cells(.Count + i, 3).Value = wksQ.Range("C8").Value
.Cells(.Count + i, 4).Value = wksQ.Range("E13").Value
.Cells(.Count + i, 5).Value = wksQ.Range("E14").Value
.Cells(.Count + i, 6).Value = wksQ.Range("E15").Value
.Cells(.Count + i, 7).Value = wksQ.Range("E16").Value
.Cells(.Count + i, 8).Value = wksQ.Range("F13").Value
.Cells(.Count + i, 9).Value = wksQ.Range("F14").Value
.Cells(.Count + i, 10).Value = wksQ.Range("F15").Value
.Cells(.Count + i, 11).Value = wksQ.Range("F16").Value
.Cells(.Count + i, 12).Value = wksQ.Range("F20").Value
.Cells(.Count + i, 13).Value = wksQ.Range("F21").Value
.Cells(.Count + i, 14).Value = wksQ.Range("F22").Value
.Cells(.Count + i, 15).Value = wksQ.Range("F23").Value
.Cells(.Count + i, 16).Value = wksQ.Range("F27").Value
.Cells(.Count + i, 17).Value = wksQ.Range("F28").Value
.Cells(.Count + i, 18).Value = wksQ.Range("F29").Value
.Cells(.Count + i, 19).Value = wksQ.Range("F30").Value
.Cells(.Count + i, 20).Value = wksQ.Range("F31").Value
.Cells(.Count + i, 21).Value = wksQ.Range("F32").Value
.Cells(.Count + i, 22).Value = wksQ.Range("F33").Value
.Cells(.Count + i, 23).Value = wksQ.Range("F34").Value
.Cells(.Count + i, 24).Value = wksQ.Range("F35").Value
End With
End Sub