kopiere en tekst ind i kol D når kol C ændres

Prøv at lægge dette i arkets kodemodul:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 3 Then
    If Range("D" & Target.Row) = "" Then
        Range("D" & Target.Row) = Range("INITIALER")(Target.Row, 1).Value
    End If
  End If
End Sub

jeg kan desværre ikke få den til at gøre noget som helst
Jeg har lagt koden ind i arket kodemodul, men der sker intet.

Højreklik på arkfanen for det relevante ark. Vælg Vis programkode. Læg koden ind der.

nu har jeg fået det til at virke, men det er kun i linie 1 at den virker.
Den skulle gerne virke i ca. 200 linier.

Og så en lille krølle på halen.
Kan det lade sig gøre at den kun indsætter INITIALER, hvis den celle man lige har ændret IKKE er tom når man har ændret.

Det kan nemlig godt give lidt problemer, da den indsætter INITIALER når man sletter noget i en celle.

Det sidste kan sagtens lade sig gøre. Jeg er ikek helt sikker påå, hvorfro det kun virker i første linie. Hos mig virker det i alel linier. Hvad sker der i linierne efter første?

Der ikke noget i linierne 2-????
Det er kun i linie 1 den kopiere teksten.

JEg vil lige prøve at teste det på en anden maskine

Ellers prøv at sende regnearket til kronsell snabel adslhome dot dk

Tak for det tilsendte. Jeg havde misforstået dig, og troede at INITIALEr var en hel kolonne. Prøv i stedet med

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 3 Then
    If Range("D" & Target.Row) = "" Then
        Range("D" & Target.Row) = Range("INITIALER").Value
    End If
  End If
End Sub

Det med at den ikke skal gøre noget, når du sletter vender jeg lige tilbage med. Skal den i øvrigt i den forbindelse fjerne eventuelle initialer i d-kolonnen, når der slettes i C?

Jeg takker for løsningen :-)
Ja, den må meget gerne slette initialer når man sletter i kol C

Prøv med:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 And Target.Value = "" Then
    Target.Offset(0, 1).ClearContents
    Exit Sub
    Else
        If Target.Column = 3 Then
            If Range("D" & Target.Row) = "" Then
                Range("D" & Target.Row) = Range("INITIALER").Value
            End If
        End If
    End If
End Sub

Fuldstændig  som den skal være!!

Mange tak for hjælpen.

Hvis du har et svar, har jeg points :-)

Jamen så har jeg da et svar :-)  Velbekomme.

Og svaret kommer så her :-(