ich bastle leider schon ein bisschen länger an einem EXCEL-Problem. Der ein oder andere Beitrag hier im Board war auch schon ganz hilfreich; aber jetzt komme ich mit meinen Anfängerkenntnissen einfach nicht mehr weiter.
Das Modul zur Protokollierung von sich selbst aktualisierenden Daten über DDE- Schnittstelle schreibt leider immer nur den gleichen Wert in die Tabelle.
Wenn einer von Euch einen Tip hätte, wäre ich Euch sehr dankbar.
Im voraus vielen Dank!!!!
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim AktuellerWert As Variant, i As Integer
'Application.ScreenUpdating = False
Sheets("Tabelle1").Activate
AktuellerWert = Tabelle1.Range("B2")
For i = 1 To 50
If Target.Value = AktuellerWert Then ActiveCell.Offset(i, 3).Value = Tabelle1.Range("B2")
Next i
Exit Sub
End Sub