2.Versuch: Werte Aktive Zeile kopieren
08.02.2004 23:45:50
armin
leider kann ich den Tipp von Beni zu nachfolgenden Problem nicht umsetzen. (Laufzeitfehler 1004: Bereich Kopieren und Bereich Einfügen stimmen nicht übereinander...)
Mein Lösungsversuch sieht so aus( und geht nicht):
Private Sub CommandButton1_Click()
Dim wks As Worksheet
Dim iRow As Integer
Set wks = Worksheets("Export")
iRow = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
r = ActiveCell.Row
Range(Cells(r, 2), Cells(r, 6)).Copy wks.Rows(iRow)
ActiveCell.Activate
End Sub
Bezieht sich ursprünglich auf diese Nachricht:
Hallo Excel & VBA Spezialisten,
habe folgendes Problem:
Bislang habe ich nur ein Makro mit dem die ganze Zeile in Abbhänigkeit von der aktiven Zelle per Button kopiert wird. Wie muß der Code lauten, das nur bestimmte Werte z.B.
Spalten B bis F aus der Zeile der aktiven Zelle in ein zweites Tabellenblatt kopiert wird. Am besten startet der Kopiervogang bei Doppelklick und die Werte werden in die nächste
freie Zeile der zweiten Tabelle kopiert und sodann die zweite Tabelle neu alphabetisch sortiert.
Danke im Voraus für jede Hilfe!
Mit freundlichen Grüßen
Armin
Der Code für den Kopiervorgang ganze Zeile lautet:
Private Sub CommandButton1_Click()
Dim wks As Worksheet
Dim iRow As Integer
Set wks = Worksheets("Export")
iRow = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(ActiveCell.Row).Copy wks.Rows(iRow)
ActiveCell.Activate
End Sub
Danke für jede Hilfe.
Grüße das Forum, armin