Daten in Liste kopieren
31.10.2008 14:49:31
Robert
Folgendes Problem:
Ich habe auf einem Excel Sheet eine Liste mit Kursen.
Mit einem Drop Down Menü kann man im Sheet einzelne Kurse selektieren.
Diese Kurse möchte ich per Knopfdruck in ein anderes worksheet kopieren.
Dabei dürfen keine Kurse doppelt kopiert werden, und die Liste soll immer chronologisch
nach Datum geordnet sein.
Kurzbeispiel: In Zelle B6 steht der selektierte Kurs, dieser soll in die Tabelle auf dem anderen worksheet
kopiert werden. Dabei darf der Kurs nicht doppelt kopiert werden und er muss sich an die richige chronologische stelle in der Liste setzen!
Mein bisheriges Makro:
Private Sub CommandButton1_Click()
' Daten im Bereich (B17 und D17) markieren und kopieren
Range("B17, D17").Select
Selection.Copy
' In Spalte A nach der ersten leeren Zelle suchen
Sheets("Historie").Select
ActiveSheet.Range("A6:A18").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Select
' Markierte Daten als Werte einfügen
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Das Kopieren funktioniert zwar schon, aber es sind noch doppelte Werte möglich und es findet keine Sortierung statt.
Es wäre super, wenn jemand hierfür einen Lösungsvorschlag hat!
Besten Dank!!