auf die gefahr hin mich mit diesem kommentar unbeliebt zu machen:
ich glaube nicht dass das hier ein forum ist das komplettlösungen zu angegebenen problemen liefert... wenn es so wäre, würde ich die stelle für meine kontoangaben in meinem profil vermissen
aber mal ein ansatz...
das ganze kann mit schleifen (DO WHILE [bedingung] [coding] LOOP) und eben ein paar IF abfragen realisiert werden
z.b.
dim row as integer
row = 1
do while row <= 1000
if tabelle1.cells(row,1) = "Bla"
'machwas
endif
row = row + 1
loop
vielleicht bekommst du das jetzt auch alleine hin, oder vielleicht findet sich hier auch jemand der unendgeltlich eine komplettlösung bietet