Kopiermakro Erweiterung
07.11.2008 17:23:49
michael
Netten Gruß ins Forum.
Ich habe mir (mit Hilfe des Forums)
eine (na ja, sagen wir)Buchhaltung zusammengebastelt.
Ich kann jedes Blatt einzeln buchen , aber auch , mir eine so genante
Buchungsseite(blauer TabReiter)-- erstellen (makro-MeineTabellen )
das ganze hat nur einen Nachteil.
Wenn ich das Makro irrtümlich ein 2tes mal starte , werden die Daten nach der letzten
beschriebenen Zeile nochmals eingefügt.
kann mir bitte jemand das Makro erweitern bzw. umschreiben.
Sub MeineTabellen()
Dim a As Byte
Application.ScreenUpdating = False
Sheets(6).Select
For a = 1 To 5
With Sheets(a)
.Range("A10:F58").Copy
Sheets(6).Range("A65000").End(xlUp).Offset(2, 0).PasteSpecial
End With
Next a
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
https://www.herber.de/bbs/user/56613.xls
Herzlichen Dank
Der kleine michael.
Anzeige