mehrere Zellen kopieren per Makro

22/07/2011 - 19:33 von Peter | Report spam
Hallo,
ich möchte von Tabelle T1 mehrere Zellen nach Tabelle T2 kopieren per
Makro.T1 Spalte B,D;F;H Zeile in der die aktive Zelle ist,kopieren und
in T2 einfügen in die Zeile nach den vorhandenen Daten in die Spalten
C,E,F;J

wer hilft ?

mfg
Peter
 

Lesen sie die antworten

#1 Claus Busch
22/07/2011 - 20:03 | Warnen spam
Hallo Peter,

Am Fri, 22 Jul 2011 19:33:43 +0200 schrieb Peter:

ich möchte von Tabelle T1 mehrere Zellen nach Tabelle T2 kopieren per
Makro.T1 Spalte B,D;F;H Zeile in der die aktive Zelle ist,kopieren und
in T2 einfügen in die Zeile nach den vorhandenen Daten in die Spalten
C,E,F;J



probiers mal so ( Blatt T1 aktivieren und gewünschte Zeile
selektierenund dann Makro aufrufen):
Sub Kopieren()
Dim FRow As Long

With ActiveSheet
FRow = Sheets("T2").Cells(Rows.Count, 3).End(xlUp).Row + 1
Sheets("T2").Cells(FRow, 3) = .Cells(ActiveCell.Row, 2)
Sheets("T2").Cells(FRow, 5) = .Cells(ActiveCell.Row, 4)
Sheets("T2").Cells(FRow, 6) = .Cells(ActiveCell.Row, 6)
Sheets("T2").Cells(FRow, 10) = .Cells(ActiveCell.Row, 8)
End With

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen