Werte von Blatt 2 nach Blatt 1 kopieren
30.11.2005 15:57:22
Blatt
Meine Arbeitsmappe enthält zwei Blätter.
Auf Blatt 1 ist ein CommandButton der bei
betätigen Werte von Blatt 2 nach Blatt 1
kopieren soll.
Mit meinem Macro funktioniert das aber nicht.
Private Sub CommandButton1_Click()
Dim ende As Integer
Worksheets("Sheet2").Activate
MsgBox "Der Kopiervorgang kann eine Weile dauern.", vbExclamation
ende = Cells(Rows.Count, 2).End(xlUp).Row
For a = 3 To ende
Worksheets("Sheet1").Range("a" & a).Value = Worksheets("Sheet2").Range("a" & a).Value
Worksheets("Sheet1").Range("b" & a).Value = Worksheets("Sheet2").Range("b" & a).Value
Next a
Worksheets("Sheet1").Activate
MsgBox "fertig", vbInformation
End Sub
Aber wenn ich das gleiche Macro von Blatt 2
aus starte funktioniert es.
Ich habe die Datei auch auf dem Server abgelegt.
https://www.herber.de/bbs/user/28851.xls
Für Eure Hilfe im voraus schon einmal vielen Dank
Gruß
Frank