Excelshhet automatisch aktualisieren

05/03/2008 - 12:07 von Jörg Klein | Report spam
Hallo,

ich habe ein Stück Code von Eberhard Funke bekommen. Leider wird dieser Code
nur ausgeführt, wenn ich F5 drücke. Sonnst passiert gar nichts. Wenn sich
der Wert in Spalte B àndert, so wird der Code nicht ausgeführt.


Was ist hier bitte falsch?

Vielen Dank für die Hilfe

Jörg

Sub Aktualisieren()
Dim IngLRow As Long
Dim IngI As Long
IngLRow = Range("B" & Rows.Count).End(xlUp).Row
For IngI = 6 To IngLRow
If Range("K" & IngI).Value < Range("B" & IngI).Value Then
Range("K" & IngI & ":L" & IngI).Value = Range("B" & IngI & ":C" &
IngI).Value
End If
Next
End Sub
 

Lesen sie die antworten

#1 Alexander Wolff
05/03/2008 - 12:13 | Warnen spam
Die Tastatur von Jörg Klein wurde wie folgt gedrückt:
ich habe ein Stück Code von Eberhard Funke bekommen. Leider wird
dieser Code nur ausgeführt, wenn ich F5 drücke. Sonnst passiert gar
nichts. Wenn sich der Wert in Spalte B àndert, so wird der Code nicht
ausgeführt.

Sub Aktualisieren()



Dafür gibt es Ereignisprozeduren. Du hast eine normale Prozedur angeführt.
Google-Groups mal nach

Privat Sub Worksheet_Change

Klicke im VBA-Fenster auf Tabelle1 und wàhle dann im Codefenster das
Ereignis, statt den Code in ein normales Modul einzufügen.
Moin+Gruss Alexander - MVP for MS Excel - www.xxcl.de - mso2000sp3 --7-2

Ähnliche fragen