[VBA]Uitleg bij regels

[Verwijderd]

hey, ik moet binnenkort mijn bedrijfsopdracht ingeven waar ik een beetje in vba heb moeten zitten voor prutsen. Waar ik eigenlijk niet zo goed in ben. Ik heb hier twee subs. ik vroeg me af of het mogelijk zou zijn bij elk lijntje een beetje uitleg te schrijven, want ik heb geen idee wat het allemaal betekend. btw het zijn macro's.

Visual Basic:

Sub InsertTXT()
'
' InsertTXT Macro
' De macro is opgenomen op 11/02/2003 door xxx.
'

'
    Sheets("Blad2").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;D:\nathje\stageopdracht\europrices\00138171.txt", _
        Destination:=Range("A1"))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 1
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 4, 4, _
        2)
        .Refresh BackgroundQuery:=False
    End With
End Sub

Visual Basic:

Sub artnr()
'
' artnr Macro
' De macro is opgenomen op 11/02/2003 door xxx.
'

'

    Dim Numberofrows As Integer
    Dim i As Integer
    Sheets("blad2").Select
    If Range("B2").Value <> "" Then
        If Range("B3").Value = "" Then
            Numberofrows = 1
        Else
            Range("B2").End(xlDown).Select
            Numberofrows = Selection.Cells.Row
        End If
    End If
    Sheets("blad1").Select
    [A1] = "Artikelnummer"
    For i = 2 To Numberofrows
        Cells(i, 1).Formula = "=CONCATENATE(""C00"", Blad2!B" & i & ")"
    Next i
End Sub

[whoami]

Als jij het zelf geschreven hebt, dan zal je zelf ook wel kunnen verzinnen zeker wat die regels juist doen?
Hoe zou je ze anders zelf kunnen geschreven hebben.


P&W is hier eigenlijk niet voor bedoeld, dus ik doe er een slotje op. Het is hier niet de bedoeling dat anderen werkjes voor jou gaan opknappen.