Dynamisches Positionieren einer Zelle
28.07.2003 11:47:27
Thomas
Ich habe da ein kleines Problem. Ich suche eine Möglichkeit, den Curser in die entsprechende Zeile und Spalte zu positionieren. Vorgang:
Aus einem Blatt werden verschiedene Daten ins Array gelesen. Dann wechsle ich in das Blatt DB-Ndh. Zuerst werden die Zeilen gezählt. Nun suche in der Spalte die Daten(1) => Referenzpunkt 1 = Zeile.
Nun suche in der Zeile A1:DR1 denn sBegriff => Referenzpunkt 2 = Spalte; Aus diesen zwei Referenzen will ich die entsprechende Zelle markieren (z.B. Zeile 11:Spalte B oder Zeile 11:Spalte Z). Dann werden die Daten eingeschrieben.
Sheets("DB-Ndh").Activate
Zeile = 1
Do While Cells(Zeile, 1) <> ""
Zeile = Zeile + 1
Loop
Range("A1:A" & Zeile - 1).Find(Daten(1), , LookIn:=xlValues, LookAt:=xlWhole).Activate
sBegriff = Daten(2)
If sBegriff = "" Then GoTo BAx2
Set gZelle = Range("A1:DR1").Find(sBegriff)
gZelle.Select
ActiveCell.Offset(Zeile - 2, 0).Select
For i = 3 To 26
ActiveCell(1, i - 2) = Daten(i)
Next i
Klingt (ein bisschen) kompliziert, aber ich hoffe, dass jemanden einen Rat weiss.
Vielen Dank für Eure Hilfe.