Kopieren in andere Mappe
19.04.2004 22:50:39
Ulf Malitz
Ich habe mir hier einen Code aus Eurem Forum zurechtgeklaut.
Ich habe auch nicht viel Ahnung von VBA.
Ich kopiere aus 3 verschiedenen Mappen Daten und füge sie in die Mappe Sicherung ein. Danach lösche ich die Werte in den Arbeitsmappen.
Funktioniert soweit ganz gut, nur ich habe in einer Spalte Datümer zu stehen und mit value werden nur Werte kopiert die beim einfügen aus 01.04.04 04.01.04 machen oder schlimmer aus 13.04.04 04/13/2004.
Meine Frage: Ich hätte gerne die Datümer im Deutschen Format TT.MM.JJ und geht das nicht ein bißchen kürzer.
Im voraus vielen Dank.
Hier der Code
Sub last_empty_cell()
Application.ScreenUpdating = False
Sheets("Sicherung").Select
Dim i As Integer, x As Long
i = 5
x = Cells(65535, i).End(xlUp).Row
Cells(x + 1, 3).Select
Range(ActiveCell, Cells(ActiveCell.Row + 11, ActiveCell.Column + 21)) = Sheets("Stundenzettel1").Range("A14:V25").Value
Call last_empty_cell2
End Sub
Sub last_empty_cell2()
Sheets("Sicherung").Select
Dim i As Integer, x As Long
i = 5
x = Cells(65535, i).End(xlUp).Row
Cells(x + 1, 3).Select
Range(ActiveCell, Cells(ActiveCell.Row + 11, ActiveCell.Column + 21)) = Sheets("Stundenzettel2").Range("A14:V25").Value
Call last_empty_cell3
End Sub
Sub last_empty_cell3()
Sheets("Sicherung").Select
Dim i As Integer, x As Long
i = 5
x = Cells(65535, i).End(xlUp).Row
Cells(x + 1, 3).Select
Range(ActiveCell, Cells(ActiveCell.Row + 11, ActiveCell.Column + 20)) = Sheets("Stundenzettel3").Range("A14:V25").Value
Sheets("Stundenzettel3").Range("B14:V25").ClearContents
Sheets("Stundenzettel2").Range("B14:V25").ClearContents
Sheets("Stundenzettel1").Range("B14:V25").ClearContents
Sheets("Stundenzettel1").Select
Application.ScreenUpdating = True
End Sub
Anzeige
