Anzeige: Neueste Daten nach oben
05.07.2004 17:55:32
Werner
Ich habe folgendes probiert, das geht aber nicht:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Range("A15").Select
Selection.ClearContents
Range("A1:A14").Select
Selection.Cut
Range("A2:A15").Select
ActiveSheet.Paste
Range("E5").Select
Selection.Cut
Range("A1").Select
ActiveSheet.Paste
Range("E5").Select
End Sub
HILFE!! Danke im Voraus!!
Gruß
Werner