Navigation

   Jeg kan ikke forstå, hvorfor nedenstående ikke virker.
Jeg henter data ind fra en anden fil og vil efterfølgende fjerne de kolonner, jeg ikke skal bruge.
Der findes højst sandsynligt en nemmere måde på det, end det jeg er kommet frem til. 

Som det ses nederst, virker det delvist, da det fjerner nogle af de uønskede kolonner, men ikke alle
Den får ikke slettet disse 3 kolonner: Klasse;Skole;Ungdomsuddannelse

Jeg har prøvet at få den til at skrive i A3, hvor mange gange den gennemløbes. Her undres jeg over, at den kun når til 15, når jeg beder den gennemløbe A til Z og 27, når jeg beder den gennemløbe A til AX

Er der en, der kan gennemskue, hvad jeg gør galt?

    Dim d As Byte
    d = 0
    For Each c In Range("A1:AX1").Cells
    d = d + 1
    Range("A3").Value = d                   ' Til fejlfinding
        If c.Value <> "CPR" Then
          If c.Value <> "Efternavn" Then
            If c.Value <> "Email" Then
              If c.Value <> "Fornavne" Then
                If c.Value <> "Mobil" Then
                    Columns(d).EntireColumn.Delete Shift:=xlToLeft
                End If
              End If
            End If
          End If
        End If
    Next c

Ark2 indeholder følgende kolonner (kan dog indeholde flere/færre, hvorfor jeg har brug for søgningen)
Alder;CPR;Efternavn;Email;FarCPR;Fornavne;ForældreTelefon;Klasse;Mobil;MorCPR;Skole;Underplacering;Ungdomsuddannelse

Ark2 indeholder følgende kolonner efter kørsel:
CPR;Efternavn;Email;Fornavne;Klasse;Mobil;Skole;Ungdomsuddannelse

A3 indeholder 27 - hvis Range("A1:Z1") så A3 = 15

Mvh Brian

Navigation

Hvorfor slettes kolonner ikke? (Nogen gør)