Bereich mit Schleife füllen
13.09.2003 10:00:38
DieterL
ich habe folgendes Problem:
In einem Tabellenblatt ("KatDeich") stehen in Spalte A vierstellige Zahlen untereinander (6001 - 6079). In Spalte B stehen ebenfalls Zahlen (Längenangaben in m). In einem Zweiten Tabellenblatt ("Eingabe") haben die Zellen [AB6] und [AB7] als Gültigkeit die Liste "Range("KatDeich").[A2:A80]".
Wenn ich diese beiden Zellen mit Werten aus der Liste gefüllt habe z.B. 6035 und 6058, dann sollen sich per Makro (Schaltfläche) im Tabellenblatt ("KatDeich") in der Spalte C die Zellen C36:C59 mit den Werten aus B36:B59 füllen. (Die Verschiebung um eine Zahl resultiert aus der Überschrift)
Um den Anfang und das Ende zu finden habe ich folgendes Makro zusammengebastelt:
Letzte = Worksheets("KatDeich").[a65536].End(xlUp).Row
Set Bereich = Sheets("KatDeich").Range("A2:A" & Letzte) _
.Find(Sheets("Eingabe").[AB6].Value, lookat:=xlWhole)
Set Bereich1 = Sheets("KatDeich").Range("A2:A" & Letzte) _
.Find(Sheets("Eingabe").[AB7].Value, lookat:=xlWhole)
Da ich mich mit Schleifen noch nicht so gut auskenne hoffe ich das mir jemand weiterhelfen kann.
Danke jetzt schon für die Mühe.
Gruß DieterL