Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte kopieren

Werte kopieren
05.12.2005 12:40:09
F
Hallo,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte kopieren
05.12.2005 13:59:31
haw
Hallo Frank,
so z.B.

Private Sub CommandButton1_Click()
Dim ende2 As Long
ende2 = Sheets(2).Cells(Rows.Count, 2).End(xlUp).Row
Sheets(1).Range("b3:b5").Copy Sheets("Sheet2").Cells(ende2 + 1, 2)
Sheets("Sheet1").Cells(2, 1).Value = ende2
End Sub

Gruß
Heinz
AW: Werte kopieren
05.12.2005 14:28:39
F
Hallo Heinz,
das funktioniert, vielen Dank.
Mit freundlichen Grüßen
Frank
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige