Konverter tal til tekst + årstal og sæt ind i ny kolonne

Her er formlen for 94 og 95

= HVIS(REST(F94;2)=1;"Forår" &(F94+1881);"Efterår"&(F94+1880))

Bare træk formlen nedad

De ulige årstal?

Hej igen. Det hele skal laves i VBA. det er det der volder problemer

#3 du har ret, det havde jeg overset

#4 kikker på det

Prøv denne,
Jeg går ud fra at du har overskrifter i række 1 og data starter i række 2.
Den Oveskriver det der evt. står i kolonne G
Jeg har testet den fra 94 og til 165, og det ser fint ud

Public Sub test()
    Dim DataIND As Variant, DataUD As Variant, I As Long, RW As Long, K As Long
    RW = Range("F" & Application.Rows.Count).End(xlUp).Row    ' finder brugte rækker
    DataIND = Range("F1:F" & RW)    ' henter data fra F kolonnen
    DataUD = Range("G1:G" & RW)    ' kolonne som overskrives
K = 1902
    For I = 2 To RW
        If (DataIND(I, 1) Mod 2) = 1 Then  ' Tjekker om tallet er lige
            DataUD(I, 1) = "Forår  " & (DataIND(I, 1) + (K))
            K = K - 1
        Else
            DataUD(I, 1) = "Efterår " & (DataIND(I, 1) + (K))
        End If
    Next
    Range("G1:G" & RW) = DataUD

End Sub

Tak. Den virker næsten, mine datoer er virkelig høje som i 2030, 2028, 2036 osv. har du en løsning forklaring på det ?

138 skal svare til 2018

132    Efterår 2015
133    Forår  2016
134    Efterår 2016
135    Forår  2017
136    Efterår 2017
137    Forår  2018
138    Efterår 2018

sådan ser de ud i mit ark

109    Forår,  2011
124    Efterår, 2025
132    Efterår, 2033
133    Forår,  2034
136    Efterår, 2036
136    Efterår, 2036
135    Forår,  2035
134    Efterår, 2033
122    Efterår, 2021
136    Efterår, 2035

Sådan ser det ud her. hvad kan være galt ?

Du har måske ikke data i stigende orden, så får du problemer

Alle tal skal være der og kun en gang

Jeg kan se at det giver problemer, hvis data ikke starter med 94 og stigende

jeg kikker videre

Prøv igen

Public Sub test()
    Dim DataIND As Variant, DataUD As Variant, I As Long, RW As Long, K As Long
    RW = Range("F" & Application.Rows.Count).End(xlUp).Row    ' finder brugte rækker
    DataIND = Range("F1:F" & RW)    ' henter data fra F kolonnen
    DataUD = Range("G1:G" & RW)    ' kolonne som overskrives

    For I = 2 To RW
        If (DataIND(I, 1) Mod 2) = 1 Then  ' Tjekker om tallet er lige
        K = 1949 + (DataIND(I, 1) - Int(DataIND(I, 1) / 2))
          DataUD(I, 1) = "Forår  " & K

        Else
        K = 1949 + (DataIND(I, 1) - (DataIND(I, 1) / 2))
          DataUD(I, 1) = "Efterår " & K
        End If
       
    Next
    Range("G1:G" & RW) = DataUD

End Sub

Du er en stjerne! Mange tak for hjælpen :)

Har du mulighed for at sætte ord på hvordan datoen nu stemmer overens?
altså
K = 1949 + (DataIND(I, 1) - Int(DataIND(I, 1) / 2))
hvis dataIND = 138 så vil det give 2018?

Jeg forstår nemlig ikke int "heltal" står der?
jo det virker men forstår bare ikke hvorfor

0 svarer til 1949

når du  dividerer et ulige tal med 2, får du et resultat med ½ , det kan du ikke bruge, så bruges INT.
INT giver heltallet på et decimaltal

"hvis dataIND = 138 så vil det give 2018?"

K = 1949 + (DataIND(I, 1) - Int(DataIND(I, 1) / 2))

(DataIND(I, 1) - Int(DataIND(I, 1) / 2))

(138 - (138/2)) som giver

1949 + 69 = 2018

SÅ hvis du skulle skrive det som Excel formel ville du skrive således:
=1949+(135-(HELTAL(135/2))) ?

Og hvordan kom du lige på det skulle være 1949?

Undskyld de mange spørgsmål. vil bare gerne for står det en gang for alle

Jeg talte bare baglæns og så måtte 0 være 1949, hvorfor i har startet der, ved jeg ikke