Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketHvorfor slettes kolonner ikke? (Nogen gør)

 Besvar Besvar
Forfatter
datik Se dropdown
Forum Begynder
Forum Begynder


Medlem: 15.Mar.2020
Land: Danmark
Status: Offline
Point: 1
Direkte link til dette indlæg Emne: Hvorfor slettes kolonner ikke? (Nogen gør)
    Sendt: 15.Mar.2020 kl. 22:09
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
Til top



Til top
thomasbk Se dropdown
Bronze bruger
Bronze bruger


Medlem: 19.Jul.2015
Land: Danmark
Status: Offline
Point: 85
Direkte link til dette indlæg Sendt: 13.Maj.2020 kl. 10:43
Er denne stadig aktuel?
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk