Automatisk indsættelse af værdier

Du er velkommen til at sende filen eller en model m/eksempel på det ønskede.

@-adresse under min profil.

Er dette hvad du ønsker: http://gupl.dk/677630/

Hvis ja, kommer forklaring senere.....

Vejmand> Ja det er hvad jeg ønsker men nedad i rækker og med vilkårlig tekst.

Hmm, jeg er ikke sikker på jeg ved hvad du mener, men prøv at se på denne: http://gupl.dk/677663/

Const stopKode = "stop"
Dim tekst As String, ræk As Long
Public Sub autoKopiering()
    Application.ScreenUpdating = False
    For ræk = 1 To 65000
        If ræk = 1 Then
            tekst = Range("A1")
        Else
            If Range("A" & ræk) = stopKode Then
                Exit Sub
            Else
                If Range("A" & ræk) = "" Then
                    Range("A" & ræk) = tekst
                Else
                    tekst = Range("A" & ræk)
                End If
            End If
        End If
    Next ræk
    Application.ScreenUpdating = True
    MsgBox "Kopiering udført"
End Sub

Tak for inspiration og hjælp til vejmand og supertekst :-)

Selv tak..