zellen copieren
03.03.2005 19:15:08
mayk
An alle Mitwirkenden Danke
Vieleicht ist die Fragestellung mittels Code besser erklärt als vorhergehende versuche meinerseits.
ich habe hier einen Code, (Danke noch mal an epunuk) der bei einer manuellen eingabe in bestimmten Zellen auch tadelos funktioniert, aber sobald diese zelle nicht manuell eingegeben werden sondern die daten über eine formel geholt werden klappt es nicht.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a5:v5]) Is Nothing Then
'die Eingabe erfolgt nicht manuell sondern über eine Formel (=wenn oder aber =Zelle)'
If Trim$(Target) <> "" Then
Application.EnableEvents = False
Cells(6, Target.Column).Value = Target.Value
'wenn Eingabe in a5:v5 nicht manuell sondern via Formel dann wird die Zelle in Zeile 6 gelöscht,was sie aber nicht soll'
Application.EnableEvents = True
End If
End If
End Sub
mfG Mayk