Daten Übertrag
20.11.2007 12:33:00
michael
Netten Gruß ins Forum.
Ich habe im Forum ein Makro gefunden das FAST genau das ausführt was ich brauche-
Nur bei mir beginnen die TabZeilen erst ab Zeile 10 und enden bei Zeile 53
(darunter sind nur Bemerkungen die Nicht übertragen werden sollen )
der Bereich ist A bis F
Also A10 F10 .bis A53 F53
kann mir bitte jemand das Makro erweitern bzw. umschreiben.
Sub MeineTabellen()
Dim a As Byte
Application.ScreenUpdating = False
For a = 1 To 3
With Sheets(a)
.Range("A1:" & .Range("A:B").SpecialCells(xlCellTypeLastCell).Address).Copy
Sheets(4).Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial
End With
Next a
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Herzlichen Dank
Der kleine michael
Anzeige