Kopieren ohne Formatierung
31.05.2005 08:53:01
Gregor
Mit folgendem Makro kopiere ich Zelleinträge in eine andere Tabelle.
Nun will ich dasselbe tun, aber ohne die jeweilige Formatierung zu übernehmen.
Wie passe ich mein Makro am einfachsten an?
Sub Kopieren_mit_Formatierung()
Dim intLastRow As Integer
Dim intCounter As Integer
Workbooks("P-Liste-BLZ.xls").Worksheets("Master Datei").Activate
intLastRow = Worksheets("Master Datei").Cells(Rows.Count, 2).End(xlUp).Row
Workbooks("P-FV-Liste-BLZ.xls").Worksheets("Master Datei").Activate
For intCounter = 5 To intLastRow
If Worksheets("Master Datei").Cells(intCounter, 12) <> "" Then
ActiveSheet.Cells(intCounter, 12).Copy Destination:=Workbooks("P-Liste-BLZ.xls") _
.Worksheets("Master Datei").Cells(intCounter, 12)
End If
Next intCounter
End Sub
Vielen Dank
Gregor