Sub Nummerserie()
    Dim cell As range
    Set cell = ActiveCell
    Dim n As Integer
    n = InputBox("Skriv det sidste nummer", "Nummerserie")
    Dim i As Integer
    For i = 1 To n
        cell.Value = i
        Set cell = cell.Offset(1, 0)
    Next i

End Sub


Sub VbaPdf()
    Dim i As Integer
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name = "Start" Then
            'Vi vil ikke printe Start
        Else
            Worksheets(i).ExportAsFixedFormat Type:=xlTypePDF, FileName:=Application.ActiveWorkbook.Path & "/" & Worksheets(i).Name & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        End If
    Next i
End Sub


Sub CSVImport()
    Dim FileName As String
    Dim LastRow As Integer

    ' Valg af fil
    With Application.FileDialog(msoFileDialogFilePicker)
    If .Show <> 0 Then
            FileName = .SelectedItems(1)

        End If
    End With

    'Vi finder sidste række
    LastRow = Worksheets("Data").cells(Worksheets("Data").Rows.Count, "A").End(xlUp).Row
    If LastRow <> 1 Then LastRow = LastRow + 1

    'Importering
    Sheets("Data").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & FileName, Destination:=range("A" & LastRow))
        .Name = FileName
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 2
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

    'Fjern 0 værdier + Indsæt formel
    range("A" & LastRow).Select
    Do Until ActiveCell.Value = ""
        If ActiveCell = 0 Then
            ActiveCell.EntireRow.Delete 'Vi fjerner rækken
        Else
        'Indsæt formel
            ActiveCell.Offset(0, 6).Formula = "=F" & ActiveCell.Row & "*E" & ActiveCell.Row
            ActiveCell.Offset(1, 0).Select 'Vi offseter en celle ned
        End If
    Loop
    range("A1").Select
    range(Selection, Selection.End(xlToRight)).Select
    range(Selection, Selection.End(xlDown)).Select
End Sub

Sub ChartResize()
    Dim chart As ChartObject
    For Each chart In Sheets("Diagram").ChartObjects
        chart.Height = 200
        chart.Width = 300
    Next
End Sub

Sub ColourizeMarch()
    Dim rng As range, cell As range
    Dim LastRow As Integer

    Sheets("Data").Select
    'Vi finder sidste række
    LastRow = Worksheets("Data").cells(Worksheets("Data").Rows.Count, "C").End(xlUp).Row
    Set rng = ActiveSheet.range("C1:C" & LastRow)

    'Vi kører gennem cellerne og hvis Month(celleVærdi) returnerer 3 (dvs. marts) ændrer vi format
    For Each cell In rng
        If Month(cell.Value) = 3 Then
            With cell
                .Interior.Color = vbBlue
                .Font.Bold = True
                .Font.Color = vbWhite
            End With
        End If
    Next cell
End Sub