Formatering af celler.

="tdk" & (MIDT(A1;4;3)+1)& "p"

Returnerer tdk2p. Så er der spørgsmålet om formattering og få 002 i stedet for 2.

Denne VBA kode gør tricket (den er ikke smuk, men den virker)

Sub Løber()
Dim i As Integer

    For i = 1 To 9
        Range("A1").Cells(i, 1).Formula = "tdk00" & i & "p"
    Next i
   
    For i = 10 To 99
        Range("A1").Cells(i, 1).Formula = "tdk0" & i & "p"
    Next i

    For i = 100 To 999
        Range("A1").Cells(i, 1).Formula = "tdk" & i & "p"
    Next i

End Sub

="tdk"&TEKST(RÆKKE(1:1);"00#")&"p"

Hej friis5.
Hvordan indsætter jeg koden i arket så det virker.
Jeg tror det er din formel jeg skal bruge, da jeg så bare kan lave A1 som et indtastningsfelt.

Lav det som brugerdefineret formatering, det er noget enklere.

Højreklik i cellen
Vælg 'Formater celler'
Vælg Brugerdefineret, og indtast i feltet Type:
"tdk"000p

Alt+F11 åbner Visual Basic

Insert Module (alt+i + m) -> Paste koden ind i dette nye vindue, og kør den (F5). Hvis du tabber tilbage til dit excel-vindue, vil 999 celler af A-kolonnen være fyldt, som du ønskede det.

De andre metoder er dog nok også ganske smarte :)

Er du kommet videre?

Respons???

Sub Løber()
Dim i As Integer

    For i = 1 To 999
        If i < 10 And i > 0 Then
            Cells(i, 1).Formula = "tdk00" & i & "p"
        ElseIf i < 100 And i > 9 Then
            Cells(i, 1).Formula = "tdk0" & i & "p"
        ElseIf i < 999 And i > 99 Then
            Cells(i, 1).Formula = "tdk" & i & "p"
        End If
    Next i

End Sub

Ville jeg nok gøre i dag - kører vel lige lidt hurtigere :)

,

Var der ikke noget du kunne bruge i de mange forslag?