Umgekehrt sortieren mit VBA
08.07.2014 07:00:31
Chris
Ich habe mir ein Makro gebastelte, dass mir die Werte aus Tabelle1 Range A1 in Tabelle2 (A1) untereinander schreibt. Zusätzlich wird neben jedem Wert das Datum und die jeweilige Uhrzeit eingefügt.
1) Wie muss das Makro geändert werden, damit der zuletzt eingegebene Wert oben steht und nicht - wie aktuell - unten angefügt wird. Alle Werte sollen also immer eine Zelle weiter nach unten rutschen...(alle alten Werte)
2) Der zweite Teil des Makro bewirkt, dass die Werte von Zelle A1 nach jeder Eingabe und nach Betätigung durch ENTER gelöscht werden und A1 aktiviert wird. Das soll nur für das Sheet Tabelle1 A1 gelten. In diesem Makro gilt dies komischerweise für alle A1-Zellen in jedem Sheet, obwohl mit With eigentlich auf Tabelle1 beschränkt.
Schon mal danke,
KopierMakro:
Sub Sort()
Dim i As Range
Range("A1").Copy Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) 'ID-Kopieren
With Sheets("Tabelle2")
.Cells(Rows.Count, 1).End(xlUp).Offset(0, 1).Value = Format(Now, "DD.MM.YYYY") 'Neben kopierter ID Datum einfügen
.Cells(Rows.Count, 1).End(xlUp).Offset(0, 2).Value = Format(Now, "HH:MM:SS") ' Neben kopierter ID' Uhrzeit einfügen
End With
Range("A1").ClearContents
Range("A1").Activate
End Sub ---
Im Sheet 1 steht:
Private Sub Worksheet_Activate()
With Sheets("Tabelle1")
.Application.OnKey "{Return}", "Modul1.sort"
End With
End Sub