Office: zellen einer aktiven zeile kopieren in ein anderes tabellenblatt

Mik_Don · 18. Mai 2009

hallo und guten morgen,
ich möchte zellen von a-g in das tabellenblatt m1 kopieren und zwar immer aus der zeile, in der eine zelle oder die komplette zeile markiert ist. eingefügt in das tabellenblatt m1 - jedoch ab zeile 521 und dann in die erste freie zeile....
kann mir da jemand weiterhelfen- wie müsste der code aussehen?
lg michael

:)

jinx · 20. Mai 2009

Moin, Michalel,

wenn der Bereich bis 520 gefüllt ist:

Code:

With Sheets("m1")
.Cells(.Rows.Count, "A").End(xlUp).Offset(1).Resize(, 7).Value = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 7)).Value
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Dim lngFF As Long
With Sheets("m1")
lngFF = .Rows.Count
If .Cells(lngFF, "A").Value = "" Then lngFF = .Cells(Rows.Count, "A").End(xlUp) + 1
If lngFF < 521 Then lngFF = 521
.Cells(lngFF, "A").Resize(, 7).Value = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 7)).Value
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: zellen einer aktiven zeile kopieren in ein anderes tabellenblatt

zellen einer aktiven zeile kopieren in ein anderes tabellenblatt

zellen einer aktiven zeile kopieren in ein anderes tabellenblatt

zellen einer aktiven zeile kopieren in ein anderes tabellenblatt - Similar Threads - zellen aktiven zeile

Zellen aus Aktiver Zeile kopieren

Aktive Zeile dauerhaft markieren

VBA: Text in Aktiver Zelle finden

CommandButton1 nur aktiv wenn Zelle gefüllt.

Aktive Zeile, Textbox

Bestimmte Zellen aus aktiver Zeile kopieren und Differenzberechnung

Aktive Zelle