Anzeige
Archiv - Navigation
376to380
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
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte aus Zeile der aktiven Zelle kopieren

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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte aus Zeile der aktiven Zelle kopieren
08.02.2004 21:15:00
Beni
Hallo Armin,
versuche es mit dem.
Gruss Beni
r = ActiveCell.Row
Range(Cells(r, 2), Cells(r, 6)).Copy
AW: Werte aus Zeile der aktiven Zelle kopieren
08.02.2004 21:52:34
Armin
Danke Beni!
leider überschätzt Du meine VBA Kenntnisse. Ich habe mir den Code mal so zurchtgebastelt, empfange dann aber die Medlung "Laufzeitfehler 1004" der Bereich zum Kopieren und der bereich zum einfügen stimmen nicht überein...
Kannst du mir bitte weiterhelfen? :-)
Viele grüße
Armin

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

Anzeige
AW: Werte aus Zeile der aktiven Zelle kopieren
09.02.2004 05:18:45
Fritz SaneSanne
Morgen.


Sub Kopieren()
Dim r As Integer
r = ActiveCell.Row
Worksheets(1).Range(Cells(r, 2), Cells(r, 6)).Copy Worksheets(2).Range("B1")
End Sub

Vielleicht hilft's ja weiter.
Fritz

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige