Werte aus Zeile der aktiven Zelle kopieren
08.02.2004 20:48:37
Armin
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
Anzeige