Office: vba oder formel hilfe

hallo mal wieder,
ich brauche mal wieder Hilfe. und zwar:
Habe ein Tabellenblatt.
und im Bereich von D5-BA550 Zellen die ständig verändert werden.
nun möchte ich Das im Berein von BD5-DA550 (sprich BD5 für D5;BE5 für E5;BD6 für D6; ...) mir das Datum angezeigt wird wann die ensprechende Zelle verändert wurde.
p.s. kann auch sein das eine Zelle öfters geändert wird!
hatte bisher eine Formel die aber ein Zirkelbezug hervor rief.
hoffe ihr könnt mir helfen, Formel oder VBA, was wäre ressourcen schonender?

mfg danke
Martin

 

Hallo Martin,

warum benutzt Du nicht Extra, Änderungen nachverfolgen?

Gruß Hajo

 

Folgende Routine würde das per VBA überwachen:

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Source As Range
    Dim Isect As Range
    Dim Cell As Range
    Dim y1 As Long
    Dim x1 As Long
    Dim y2 As Long
    Dim x2 As Long

    'war die Änderung im Bereich D5:BA550 ?
    Set Source = Range("d5:ba550")
    Set Isect = Application.Intersect(Source, Target)
    If Not Isect Is Nothing Then

        'wenn ja, dann setze entsprechende Zelle auf JETZT()
        For Each Cell In Isect
            y1 = Cell.Row: x1 = Cell.Column
            y2 = y1: x2 = x1 + 52
            Cells(y2, x2).Value = Now()
        Next

    End If

End Sub

Nachdem ich den kpl. Bereich D5:BA550 mit "Inhalte einfügen - Werte" mal mit einem Wert gefüllt hatte, stockte es kurz für ca. 1 Sekunde und dann waren alle Felder in BD5:DA550 gesetzt. Das Ändern einer einzelnen Zelle merkt man eigentlich gar nicht.

Gruß, Michael

 

danke erstmal, werde es später gleich mal testen

 

danke aber!!!

soweit so gut, jetzte habe ich nur das problem, das ich bereits in dem tabellen blatt ein private sub habe und er leider nur das erste ausführt.

hier der code:

Private Sub Worksheet_Calculate()
Dim objCell As Range
For Each objCell In Range("E5:BA500")
If objCell.HasFormula Then _
If IsNumeric(objCell.Text) Then _
If Fix(objCell.Value) = objCell.Value Then _
objCell.Value = objCell.Value
Next
End Sub

wie kann ich die beiden nun zusammenfügen?
sry bin echt ne niete in VBA

mfg martin

 

Hi Martin,

da deine vorhandene Prozedur ein anderes Ereignis als das von Michael gepostete ist, kannst du den Code einfach ins Codemodul des Tabellenblattes einfügen - mehrere unterschiedliche Prozeduren sind möglich.

Bis später,
Karin

 

hi kannst du mir das mal bitte posten wie es auszusehen hat, weil ich habe es ja so versucht aber hat nicht geklappt

danke im voraus

 

Hi Martin,

was hat nicht geklappt - das Einfügen des Codes von Michael unterhalb oder oberhalb deines Codes? Was ist daran so kompliziert?

Bis später,
Karin

 

Na, irgendwie so:

Code:

option explicit

private sub worksheet_calculate()

    ' gedöns

end sub

private sub worksheet_change(byval target as range)

    ' geraffel

end sub

Gruß, Michael

 

ich versuchs nachher nochmal melde mich falls es geklappt hat