Bereich zum kopieren festlegen
Sabine
habe mal wieder ein, für Euch, klitzekleines Problem. Ich möchte von "Tabelle1" die Zelleninhalte aus A20:A23, nach "Tabelle2" ab Zelle C15 kopieren. Wenn eine Zelle ab C15 bereits gefüllt ist, sollen die nächsten freien Zellen darunter befüllt werden. Ich habe folgenden Code gefunden, der auch gut funktioniert außer, dass er mir nur die Zelle A20 kopiert und nicht den Bereich A20:A23. Wie bekomme ich das hin, dass er mir den ganzen Bereich kopiert? Ganz vielen Dank schonmal für Eure Unterstützung.
Viele Grüße, Sabine
Private Sub CommandButton3_Click()
Dim wsQuelle, wsZiel As Worksheet
Dim lgSpalteQuelle, lgZeileQuelle As Long
Dim lgSpalteZiel, lgZeileZiel, lgMaxZeile As Long
Set wsQuelle = ThisWorkbook.Worksheets("Tabelle 1")
Set wsZiel = ThisWorkbook.Worksheets("Tabelle2")
lgSpalteQuelle = 1 '
lgZeileQuelle = 20
lgSpalteZiel = 3
lgZeileZiel = 15
lgMaxZeile = wsZiel.Rows.Count
Do While True
If wsZiel.Cells(lgZeileZiel, lgSpalteZiel).Formula = "" Then
wsQuelle.Cells(lgZeileQuelle, lgSpalteQuelle).Copy Destination:=wsZiel.Cells( _
lgZeileZiel, lgSpalteZiel)
Exit Do
End If
lgZeileZiel = lgZeileZiel + 1
If lgZeileZiel > lgMaxZeile Then
MsgBox "keine frei Zelle gefunden"
Exit Do
End If
Loop
End Sub
Anzeige