Hi Uwe,
zunächst müsste mal untersucht werden, wie eine bestimmte Zelle dauerhaft überwacht werden kann, um Änderungen in der Zelle zu erfassen. Ich wurde durch dein Posting neugierig und habe mich nach Jahren mal wieder mit VBA und dem Visual Basic Editor bzw. Makro-Editor beschäftigt. Und siehe da: Es gibt einen Weg.
Der Weg ist das Ausnutzen von Events (Ereignisse) (ich weisz jetzt nicht, wieviel VBA-Kenntnisse und welche Excel Version du hast; ich benutze Excel 2000). Alle Objekte innerhalb eines Excel-Workbooks (*.XLS) haben solche Events, die bei bestimmten Bedingungen, dann aber immer automatisch ausgeführt werden. Eines dieser Objekte ist das Worksheet, also das Blatt mit den Zellen.
Wählt man im Makro-Editor ein Sheet aus, befindet sich am oberen Rand des Teils, in dem Code geschrieben wird, eine Klappliste mit den Objekten und eine Klappliste mit den Events, die für das gewählte Objekt zur Verfügung stehen. Bei Worksheets ist das z.B. das Change-Event mit der Kopfzeile "Private Sub Worksheet_Change(ByVal Target As Range)". Dieses Event wird bei allen
Änderungen in Zellen auf dem Worksheet ausgelöst. Jetzt musst du nur noch die Bedingung programmieren und sagen, was bei deren Erfüllung passieren soll.
Ein einfaches Beispiel wäre:
################################################
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row = 5 Then
MsgBox Target.Text 'Ausgabe des Zellenwertes in einer MessageBox
End If
End Sub
################################################
Hier werden manuelle Änderungen des Inhaltes in Zelle "B5" abgefragt. Manuelle Änderungen in einer Zelle werden erst nach Betätigen der Enter-Taste erfasst; hier sind Zelleninhalt und angezeigter Inhalt identisch.
Hast du in der Zelle aber eine Formel, so sind Zelleninhalt (Formel) und angezeigter Wert (Formelergebnis) nicht mehr identisch, und eine Veränderung des Formelergebnisses löst kein Change-Event aus. Hier musst du das "Calculate"-Event benutzen, um die (sichtbaren) Veränderungen des Ergebnisses zu erfassen:
##############################
Private Sub Worksheet_Calculate()
MsgBox Me.Cells(5, 2)
End Sub
##############################
Die Programmiersprache in VBA ist english, egal welche Sprachfassung das installierte Excel hat.
Hat das als kleiner Einstieg geholfen?
HAND :-)
Sylvia
Sovereign Sylvia
