Excel VBA Code coppy and paste

[silentwolf]

Hallo alle zusammen,
Möchte aus einer Excel Tabelle (im Anhang seht Ihr wie es strukturiert ist)
Spalte A hat Bestellung 979 und darunter wo diese Artikel Bestellt worden sind.

Also
Bestellung 979
Müller

in der Spalte E habe ich immer das Datum an dem die Bestellung gemacht wurde. Ich möchte mittels VBA in einer Neuen Tabelle es so gelistet haben.


              Spalte A          Spalte B  Spalte C
  Bestellung   979            Müller      21.10.2008
                     980            Sharp      13.10.2008

Wenn es so möglich wäre ohne Bestellung 979 also 980 aber wenn es zu kompliziert ist dann ist es auch kein Problem so und ich lösche die "Bestellung" nachher raus.
Ich habe den code unten angeführt den ich berreits habe und er funktioniert auch Super!
Er gibt mir alle Bestellungen in Spalte A und alle Lieferanten in Spalte B eines neuen Tabellen blatt zurück.
Nur das mit dem Datum bekomme ich nicht hin

Code [Auswählen] Erweitern


Private Sub CommandButton1_Click()

    Dim strToFind As String
    Dim strFirstAddress As String
    Dim intPasteRow As Integer
    Dim cFound As Range
   

    intPasteRow = 1
    strToFind = "Bestellung"

    With Worksheets("Tabelle1").Range("a:a")
        Set cFound = .Find(strToFind)
        If Not cFound Is Nothing Then
            strFirstAddress = cFound.Address
            Do
                Worksheets("Tabelle2").Cells(intPasteRow, 1) = cFound.Value
                Worksheets("Tabelle2").Cells(intPasteRow, 2) = cFound.Offset(1, 0).Value
                intPasteRow = intPasteRow + 1
                Set cFound = .FindNext(cFound)
            Loop While Not cFound Is Nothing And cFound.Address <> strFirstAddress
        End If
    End With

    Set cFound = Nothing

End Sub



Zudem würde ich noch gerne die in der Spalte A gelisteten (Artikel Nr) und in Spalte C (Artikel Beschreibung) Und den (Preis) aus Spalte D In den Spalten A , B , C eines neuen Tabellen Blatt schreiben) oder auch in Spalte D,E,F des zweiten Tabellen Blattes wäre ok.
Es soll allerdings so sein das ich danach noch unterscheiden kann welche Artikel von wem gekauft wurden.

Wäre Super wenn mir jemand helfen könnte.
Sind schon einige Bestellungen die ich sonst manuell kopieren und einfügen müsste

Vielen Dank!!!
Lg Albert

[silentwolf]

Habe den link vergessen einzufügen 

http://img517.imageshack.us/i/exceldata.jpg/

Tut mir leid!!!
Lg Albert