Frage an die Softwareexperten!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Jens
Hier nun meine Idee.
Voraussetzung:
In Spalte A darf vor Ende aller Eintragungen keine Leerzelle vorhanden sein.
In meinem Bsp müssen die XL-Tabelle und die txt-Datei im selben Verz. sein.
Da ich nicht weiß, wie die Daten in die Exceltabelle eingelesen werden, habe ich mir mit einer txt-Datei mit den "Quelldaten" (die ebey-eMail) ausgeholfen.
Hierfür wird die Sub "Einlesen" verwendet, und Du musst diese Sub vllt anpassen, oder kannst sie vollständig vernachlässigen, da Du vllt einen ganz anderen Weg gewählt hast, um die Daten aus der eBay-eMail einzulesen.
Ich gehe davon aus, dass immer nur EINE eMail eingelesen wird. Und für eine nächste, mögliche eMail muss das Makro erneut gestartet werden.
Anpassen müssen wirst Du auf jeden Fall die Sub "Suche".
Denn hier wird die schon vorher eingelesene eMail-Adresse mit den in der Tabelle eingetragenen eMail-Adressen verglichen.
(ich gehe davon aus, dass eine eMail-Adresse auch immer nur für ein und denselben Käufer verwendet wird. Um die Suche noch zu verbessern, kannst Du die Suche ja zusätzlich noch mit Name und/oder Straße+Ort verfeinern)
Bei Erfolg wird unterhalb der Fundzeile eine leere Zeile eingefügt, um hier dann die neuen Daten einzutragen.
Nachdem dies geschehen ist, wird die gefundene Zeile und die neu eingetragene Zeile gelb eingefärbt.
Wird keine Übereinstimmung gefunden, werden die neuen Daten direkt in die nächste leere Zeile eingetragen.
Makro Ende - fertig :-)
So sieht meine Bsp-Tabelle aus: (nicht alle Spalten)

hi thorsten,
hab 1000 dank für die mühe, die du dir gemacht hast.
ich habe gestern und heute auch ein wenig gebastelt und mir folgende funktion gebaut:
ich habe schon fast ein schlechtes gewissen, weil du dir so viel arbeit gemacht hast :-(
Ciao
Jens
'FUNKTION getRowNumberMultipleOrder(memberName)
'Prüft, ob es zu einem gegebenen Kunden bereits offene Bestellungen
'gibt. Falls ja, so fügt die Funktion eine neue Zeile unter der
'offenen Bestellung ein und hinterlegt beide Zellen mit einer Farbe
'Darüber hinaus gibt die Funktion die Zeile zurück in die die neue Bestellung
'eingefügt werden muss.


Function getRowNumberMultipleOrder(memberName As String) As Integer
Dim rownumber
Dim i
On Error Resume Next
For i = Sheets("Daten").UsedRange.Rows.count To 1 Step -1
If (Sheets("Daten").Cells(i, 3) = "") Then 'Ist die Bestellung offen?
rownumber = Sheets("Daten").Range("M" & i).Find(what:=memberName, LookIn:=xlValues, MatchCase:=True).Row
End If
Next
If rownumber Then 'Folgezeile für Bündelung von Bestellungen vorbereiten
Cells(rownumber + 1, 1).EntireRow.Insert
Cells(rownumber, 1).EntireRow.Interior.ColorIndex = 34
Cells(rownumber + 1, 1).EntireRow.Interior.ColorIndex = 34
orderdispatched = ""
End If
If rownumber Then
getRowNumberMultipleOrder = rownumber + 1 'Rückgabewert der Funktion.
End If
End Function

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread