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 :(
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
Habe den link vergessen einzufügen ::)
http://img517.imageshack.us/i/exceldata.jpg/
Tut mir leid!!!
Lg Albert