Omdøbe kolonnenavne til kolonnen før + nuværende navn

her er en "kodestump" der gør det' men hvis den skal loop igennem ark og excel mapper, så skal der mere til.

Public Sub test()
Dim Col As Integer, Overskrift As Variant, I As Integer
    Col = ActiveSheet.Range("a1").SpecialCells(xlLastCell).Column ' finder sidate kolonne med date
    Overskrift = ActiveSheet.Range(Cells(1, 1), Cells(1, Col)) ' putter overskrifterne i en variabel
    For I = 1 To Col
        If Overskrift(1, I) = "Dato fra-1" Then ' finder "Dato fra"
            Overskrift(1, I) = Overskrift(1, I - 1) & " Dato fra" ' retter den
        ElseIf Overskrift(1, I) = "Dato til-1" Then ' finder "Dato til"
            Overskrift(1, I) = Overskrift(1, I - 2) & " Dato til" ' retter den
        End If
    Next
    ActiveSheet.Range(Cells(1, 1), Cells(1, Col)) = Overskrift ' overskriver med nye data

End Sub

Hej Kabbak

Det er en smart makro, du har lavet.

Jeg fik selv udviklet denne, som gør det ønskede. Jeg lykkedes heller ikke med at få den til at loope.Men så er det dejligt, at man har folk til det kedelige! ;-)...




Sub Makro4()


    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C"
    Range("C2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(LEFT(R1C,8)=""Dato fra"",R1C[-1]&"" dato fra"",IF(LEFT(R1C,8)=""Dato til"",R1C[-2]&"" dato til"",R[-1]C))"
    Range("C2").Select
    Selection.AutoFill Destination:=Range("C2:CV2"), Type:=xlFillDefault
    Range("C2:CV2").Select
    Selection.End(xlToLeft).Select
    Rows("2:2").Select
    Selection.Copy
    Rows("3:3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Rows("1:2").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
End Sub