an nepumuk oder andere (Werte in Zellen)
28.02.2005 19:24:33
mayk
in dieser Mappe habe ich einen Versuch erarbeitet, der leider nicht richtig klappt.
dieser code läuft super aber wenn ich die zelle der Datenherkunft (also nicht manuell eingabe)mit einer formel verbinde klappt es nicht.
da ich leider von VB keine Ahnung habe, vieleicht könnte sich das noch einmal jemand ansehen.
Auf jeden Fall schon mal danke für Eure Zeit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a2:v2]) Is Nothing Then
If Trim$(Target.Text) <> "" Then
Application.EnableEvents = False
Cells(1, Target.Column).Value = Target.Value
Application.EnableEvents = True
End If
End If
End Sub
Die Datei https://www.herber.de/bbs/user/18958.xls wurde aus Datenschutzgründen gelöscht
Anzeige