VB: Inhalte nach best. Krit. von Liste 1 nach 2
07.03.2007 08:10:07
Thomas
Guten Morgen,
ich habe ein Problem mit VB in Excel. Ich habe 2 Listen vorliegen. Die eine Liste enthält zu verschiedenen Anwendungen verschiedene MB Traffic und in der anderen Liste soll dies ausgewertet werden. In dieser auswertungsliste kommt jeden Monat die neue MB Zahl dazu, die Anwendungsnamen stehen also schon in dieser Liste drin.
Ich hab mir folgendes gedacht:
Sub ausfuell()
Set quelle = Worksheets("Bison") // Bison ist das Worksheet, in den ich den Inhalt der einen Liste jeden _
Monat neu _
reinposte.
Set Such = Worksheets("DaSi-Mengen") // Die Auswertungsliste
LSp = Such.Cells(quelle.Cells.Count).Rows // Ich zähle die reihen der auswertungsliste, damit ich danach _
die for schleife für alle aufgelisteten anwendungen nutzen _
kann
For i = 5 To LSp // Die anwendungsnamen beginnen ab zeile 5
Suchwort = Such.Cells(i, 1) // Das erste Suchwort wäre hier zB "AnwendungX", in Zeile 5 Spalte 1
Zeile = quelle.Cells.Find(What:=Suchwort, After:=Cells(1), LookAt:=xlWhole).Row // Jetzt danach in _
der Quelle suchen und wir haben die Zeile der _
quelle
Next i
End Sub
Da fehlen jetzt noch ein paar Sachen... Und zwar:
1) Das Ergebnis, also die MB Zahl, die in Spalte 4 der Quelle steht soll jetzt in die Zeile i in eine bestimmte Spalte geschrieben werden.
2) Diese Spalte ist der entsprechende Monat. Dazu müsste noch eine Abfrage rein, die schaut, welcher Wert in E2 in der quelle steht und es dann in die Spalte schreibt, wo dieser Wert mit dem Wert in der Reihe 3 der Suchliste identisch ist.
3) Da jedes Suchwort (anwendung) öfters vorkommen kann, muss noch eine Art - For Each xx where Suchwort = xxx mache dies - miteingebracht werden. Kommt nämlich AnwendungX in der quellliste 4 mal vor, so muss der Wert addiert werden, da in der Auswertungsliste die AnwendungX nur einmal vorkommen soll.
Vielen Dank für Anregungen!
Wenn irgendwas unklar ist, bitte fragen. Danke!!!