AW: Bedingte Formatierung
27.02.2006 22:16:10
Heinz Ulm
Hallo Snewi,
hier der verbesserte Code, tausche ihn gegen den anderen aus.
Private Sub Worksheet_Calculate() 'der Code wird bei einer Berechnung durchgeführt.
' deshalb auch das Datum in der Zelle H9, durch =heute() wird bei jeder Neueingabe
' eine Berechnung (Calculate) erzwungen.
Dim ZZeile As Integer 'Zuweisung des Wertes Integer an die Variable ZZeile.
'Diese Variable bestimmt nachher den Versatz des Cursors.
On Error GoTo Ende 'Bei einem Fehler zu Ende: gehen und den Code beenden
ZZeile = Application.WorksheetFunction.Match(Range("A9"), Range("A12:A1000"), 0) + 11
'Zuweisung eines Wertes an ZZeile: Es ist die Funktion Vergleich(Match)
'als Formel: =vergleich(A9;A12:A1000;0) sucht jetzt den Wert aus A9 im Bereich
'A12:A1000; +11 da vorher 11 Zeilen leer sind und Vergleich nur die Stelle in
'dem Bereich angibt an der der Suchwert steht
Range("A" & ZZeile).Select
'Auswahl der Zelle A&ZZeile also wenn z.B. ZZeile = 17 ist A17
Ende: Exit Sub
End Sub
Hier nochmal der Code ohne Kommentar:
Private Sub Worksheet_Calculate()
Dim ZZeile As Integer
On Error GoTo Ende
ZZeile = Application.WorksheetFunction.Match(Range("A9"), Range("A12:A1000"), 0) + 11
Range("A" & ZZeile).Select
Ende: Exit Sub
End Sub
Gruß Heinz