Suchen und Rechnen per VBA
29.12.2003 11:35:18
Denny
leider sind meine VBA-Kenntnisse noch nicht derart ausgereift, dass ich folgendes Problem mit den Hilfedateien lösen konnte.
Ich habe eine Tabelle mit mehreren Spalten, in der eine Spalte eine nummerische Bezeichnung (420, 480, 2300 ...) enthält und eine weitere einen zugeordneten Wert. Nun möchte ich, dass per Suche die Summe der Werte gebildet wird bspw. aller 400er Bezeichnungen.
Ich habe versucht mit Platzhaltern (#) bei "find" zu arbeiten, jedoch ohne Erfolg.Es wird dann immer nach 4## gesucht und nicht nach allen 400er.
Der Wert lies sich bei exakter suchanfrage mittels offset ermitteln. Dies erscheint ergo nicht als Problem.
Wenn mir jemand weiterhelfen könnte wäre ich sehr dankbar.
MfG
Denny
P.S.
Kurzer Auszug aus der Tabelle
Spalte 1 Spalte 6
400 ..... 12,500
423 ..... 3,450
480 ..... 52
1232 ..... 1245
1240 ..... 563
usw.
Summenberechnung(-sidee)
With Worksheets(4).Range("A:A")
Set c = .Find(suchwert, LookIn:=xlValues)
c.Select
Summe = Summe + c.Offset(0, 5).Value
end with