|
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
|