hoe definieer je in een macro een tabblad naam die anders is

[davylenders123]

Ik heb een macro die kolom toevoegt , gegevens splits en op het laatste een kolom sorteert.

Daar is in gedefinieerd dat het tabblad steeds blad1 is , maar regelmatig gebruiken ze hier een andere naam voor waardoor de code niet werkt.

Kan je er voor zorgen dat de naam van het tabblad niet van belang is.
Je hebt altijd het tabblad open staan waar de macro op zou moeten uitgevoerd worden.

Sub g2()
'

Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("D:D").Select
    Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    ActiveSheet.Range("$A$1:$L$107").AutoFilter Field:=4, Criteria1:="NL"
    
     ActiveWorkbook.Worksheets("Blad1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Blad1").AutoFilter.Sort.SortFields.Add2 Key:=Range _
        ("E1:E107"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Blad1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[davylenders123]

Mijn excuus had te snel mijn bericht gepost , heb zelf de oplossing gevonden.
Bij mijn bericht na plaatsing nog eens te lezen zag ik de uitkomst

Sub g2()
'

Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("D:D").Select
    Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    ActiveSheet.Range("$A$1:$L$107").AutoFilter Field:=4, Criteria1:="NL"
    
     ActiveSheet.AutoFilter.Sort.SortFields.Clear
     ActiveSheet.AutoFilter.Sort.SortFields.Add2 Key:=Range _
        ("E1:E107"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveSheet.AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[VenA]

Gaat zo waarschijnlijk ook wel goed.

Sub VenA()
  Columns(5).Insert
  Columns(4).TextToColumns Range("D1"), xlDelimited, , , , , , , True, "-"
  Range("A1:L107").AutoFilter 4, "NL"
  Range("A1:L107").Sort Range("E1"), , , , , , , xlYes
End Sub

 

[davylenders123]

VenA

Klopt deze doet inderdaad ook wat hij moet doen.

Ik had hem gemaakt met behulp van macro opnamen , ben niet zo een krak zoals de meeste hier
En manueel de aanpassing gedaan voor het probleem waar ik nu mee zat.