Werte kopieren
05.12.2005 12:40:09
F
ich möcht das bei betätigen eines Buttons
Werte die in Reihe B Zeilen 3-5 stehen,
kopiert werden, und in ein anderes Blatt,
am ende der Reihe B eingefügt werden.
Dazu habe ich mir folgendes überlegt:
Private Sub CommandButton1_Click()
Dim ende2 As Variant
ende2 = 0
Sheets(1).Range("b3:b5").Copy
Sheets("Sheet2").Activate
ende2 = Sheets(2).Cells(Rows.Count, 2).End(xlUp).Row
ActiveSheet.Cells(ende2 & ",2").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sheet1").Activate
Range("A3").Select
Cells(2, 1) = ende2
ende2 = 0
End Sub
Das kopieren klappt auch, aber die Werte werden
im zweiten Blatt nach L 1-3 geschrieben.
Ich lasse den Wert von ende2 anzeigen, und der
wird richtig erkannt. Also stimmt wohl im Teil:
ActiveSheet.Cells(ende2 & ",2").Activate
etwas nicht. Aber was ?
Mit freundlichen Grüßen
Frank
Anzeige