Tiefst/Höchstwert einfrieren
joe
habe ein kleines VBA Problem.
ich importiere Börsedaten über Excel 2003 und die Kursdaten werden in Blatt-A eingefügt nun will ich das die Daten ins Kursblatt eingepflegt werden geht einfach mit = kein problem
hier ist nun ein kleines VBA Prog. das soll immer nur den Tiefst/Höchstwert einfrieren. Manuell _
geht wenn ich die Daten eintippe, es aber "Automatisch " nicht auch wenn ich die Zellen " _
anschubse". Wo liegt hier der Fehler?:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Selection.Count = 1 Then
Application.EnableEvents = False
''If Target = Range("A1") Then '' Eingabe nur in Zelle A1
If Target.Column = 15 Then ''Eingaben in der ganzen Spalte O
If Target.Offset(0, 2).Value = "" Then
Target.Offset(0, 2).Value = Target.Value
Target.Offset(0, 3).Value = Target.Value
Else
If Target.Value Target.Offset(0, 3).Value Then
Target.Offset(0, 3).Value = Target.Value
End If
End If
End If
Application.EnableEvents = True
End If
End Sub
das VBA soll einfach immer den Tiefst/Höchstwert anzeigen (einfrieren)
Danke für die ausführliche Erklärung und Hilfe
Joe