Aantal kolommen verwijderen met VBA

[Omteleren]

Hallo,
Graag wil ik een aantal kolommen verwijderen en aangeven welke kolommen verwijderd moeten worden.
Ik ben een geoefende Excel gebruiker, maar kan zelf helaas nog geen VBA codes maken. Wel via een macro, maar er komt nu iets meer bij kijken.
Daarom hoop ik dat iemand van Helpmij kan helpen.

Ik vul op blad 2 in:
A1: 14
B1: 18
C1: 19
D1: 25
E1: 26

De kolommen 14, 18 , 19,25 en 26 moeten verwijderd worden. Niet verborgen.
Aantal kolommen kan wijzigen, het kan 1 kolom zijn, maar ook 26 (max).

Hoe krijg je de juiste kolom verwijderd in VBA? Het zou mooi zijn als dit zou kunnen.

 

[Haije]

Omteleren,

probeer dit eens:

Sub Omteleren()
hoeveel = [A1].End(xlDown).Row

    With ActiveWorkbook.Worksheets("Blad1").Sort
        .SetRange Range("A1:A" & hoeveel)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
For t = 1 To hoeveel
    Cells(1, Cells(t, 1).Value).EntireColumn.Delete
Next t
End Sub

 

[Omteleren]

Hoi Haije,

Het is nog niet gelukt.

Ik heb een voorbeeldbestand gemaakt en met vertrouwde gegevens verwijderd.
Alvast bedankt voor je reactie.

 

[VenA]

zo?

Sub VenA()
  Dim r As Range, j As Long, ar
  ar = Sheets("Blad2").Cells(1).CurrentRegion
  For j = 1 To UBound(ar)
    If r Is Nothing Then Set r = Sheets("Bron").Columns(ar(j, 1)) Else Set r = Union(r, Sheets("bron").Columns(ar(j, 1)))
  Next j
  r.Columns.Delete
End Sub

 

[Omteleren]

Hoi,
Het werkt perfect. Precies wat ik wilde. Hiervoor heb je VBA kennis nodig.
Handmatig kan het ook natuurlijk, maar wil het op grotere schaal gaan gebruiken.
Ik kijk meestal op Helpmij, maar dit was iets specifieks.

Bedankt voor je code.

groet,
Geert