Zellenwert in anderes Arbeitsblatt kopieren mittel
09.03.2017 17:22:13
Philip
ich habe nicht so gute VBA Kenntnisse, aber ich glaube es ist nur ein kleiner Fehler in meinem Code und ich komme nicht weiter.
Ich möchte Werte von einem Tabellenblatt in das nächste kopieren. Dies soll mit einem CommandButton ausgeführt werden.
Aus dem aktiven Tabellenblatte erstelle ich vorab einen Array von Werten, die ich später nebeneinander in eine Zeile kopieren möchte. Bei einem weiteren Klick auf den Button werden die Werte nochmals unterhalb der letzten Zeile eingefügt usw..
Mein Problem besteht darin, dass ich in Tabelle2 nicht mit Zeile D2 starten möchte zu kopieren, sondern erst ab Zeile D23 und ab da darunter. In Tabelle2 stehen dann auch ab D33 andere Werte, deshalb funktioniert die Suche nach der Letzten Zeile nicht.
Private Sub cmdKopieren_Click()
Const cstrRange As String = "E5,E7,E13,E15,E17,E19"
Dim lngZeile As Long
Dim intSpalte As Long
Dim rngCell As Range
With Worksheets("Tabelle2")
lngZeile = .UsedRange.Row + .UsedRange.Rows.Count
intSpalte = 4
For Each rngCell In Range(cstrRange)
.Cells(lngZeile, intSpalte) = rngCell.Value
intSpalte = intSpalte + 1
Next
Worksheets("Tablle2").Activate
End With
End Sub
Grüße Philip