infostabil > edb.* > edb.regneark

Kurt Hansen (10.08.2019, 17:19)
Jeg har to kolonner med værdier der er ens struktureret, men den ene
kolonne har flere linjer end den anden.

Altså: Mange værdier er ens i de to kolonner, men der hvor der er en
celle i kolonne i kolonne A som ikke modsvares i kolonne B, vil jeg
gerne at der i kolonne B indsættes en tom celle og at de efterfølgende
rykkes nedad.
Kurt Hansen (10.08.2019, 17:29)
Den 10/08/2019 kl. 17.19 skrev Kurt Hansen:
> Jeg har to kolonner med værdier der er ens struktureret, men den ene
> kolonne har flere linjer end den anden.
> Altså: Mange værdier er ens i de to kolonner, men der hvor der er en
> celle i kolonne i kolonne A som ikke modsvares i kolonne B, vil jeg
> gerne at der i kolonne B indsættes en tom celle og at de efterfølgende
> rykkes nedad.


Jeg googlede igen-igen og denne gang var der bid:

[..]

Men hvordan skriver jeg
=IF(ISERROR(MATCH(A2,B:B,0)),"",A2)
når min Excel er på dansk?
Kurt Hansen (10.08.2019, 20:36)
Den 10/08/2019 kl. 17.29 skrev Kurt Hansen:
> Den 10/08/2019 kl. 17.19 skrev Kurt Hansen:
> Jeg googlede igen-igen og denne gang var der bid:
> [..]
>> Men hvordan skriver jeg

>    =IF(ISERROR(MATCH(A2,B:B,0)),"",A2)
> når min Excel er på dansk?


I mit ansigts fodsved har jeg fedtmulet mig frem til dette, men det
virker ikke:

=HVIS(ER.FEJL(SAMMENLIGN(A2;B:B;0));"";A2))

Det faldt mig ind at erstatte kommaerne med semikolon, men der må være
andre syntaksfejl. Eller...?
Jan Kronsell (10.08.2019, 23:04)
On 10-08-2019 20:36, Kurt Hansen wrote:
> Den 10/08/2019 kl. 17.29 skrev Kurt Hansen:
> I mit ansigts fodsved har jeg fedtmulet mig frem til dette, men det
> virker ikke:
> =HVIS(ER.FEJL(SAMMENLIGN(A2;B:B;0));"";A2))
> Det faldt mig ind at erstatte kommaerne med semikolon, men der må være
> andre syntaksfejl. Eller...?


Hvis du mener, at de andre celler fysisk skal rykkes ned, kan du ikke
gøre det med en formel. Det, din formel gør at sammenligne cellerne i A
kolonnen med cellerne i B-kolonnen. Hvis de to er ens, sætter den
værdien i den celle, hvor du har formlen til den værdi, der står i både
A og B. Er de ikek ens sættes værdien til tom.

Skal der foretages en fysisk rykning af data i kolonne B skal der en
makro til.

Jan
Jan Kronsell (10.08.2019, 23:06)
On 10-08-2019 20:36, Kurt Hansen wrote:
> Den 10/08/2019 kl. 17.29 skrev Kurt Hansen:
> I mit ansigts fodsved har jeg fedtmulet mig frem til dette, men det
> virker ikke:
> =HVIS(ER.FEJL(SAMMENLIGN(A2;B:B;0));"";A2))
> Det faldt mig ind at erstatte kommaerne med semikolon, men der må være
> andre syntaksfejl. Eller...?


Hvis du fx har
A B
1 1
2 3
3 3

Hvad skal der så ske i kolonne B?

Jan
Kurt Hansen (11.08.2019, 06:18)
Den 10/08/2019 kl. 23.06 skrev Jan Kronsell:
> On 10-08-2019 20:36, Kurt Hansen wrote:
> Hvis du fx har
> A    B
> 1    1
> 2    3
> 3    3
> Hvad skal der så ske i kolonne B?


Så skal der indsættes en tom celle i kolonne B så det første "3" rykkes
nedad. Altså sådan at celler med identiske værdier kommer til at stå ud
for hinanden.

Dubletter forekommer ikke, så det er ikke et problem.
Jan Kronsell (11.08.2019, 23:32)
On 11-08-2019 06:18, Kurt Hansen wrote:
> Den 10/08/2019 kl. 23.06 skrev Jan Kronsell:
> Så skal der indsættes en tom celle i kolonne B så det første "3" rykkes
> nedad. Altså sådan at celler med identiske værdier kommer til at stå ud
> for hinanden.
> Dubletter forekommer ikke, så det er ikke et problem.


Så skal du bruge en makro. Måske noget i denne stil (ret selv til de
rigtige område

Sub Tjekogryk()
For Each c In Range("A1:A100").Cells
If c.Value <> c.Offset(0, 1).Value Then
c.Offset(0, 1).Select
Selection.Insert Shift:=xlDown
End If
Next
End Sub

Jan
Kurt Hansen (12.08.2019, 13:18)
Den 11/08/2019 kl. 23.32 skrev Jan Kronsell:
> Så skal du bruge en makro. Måske noget i denne stil (ret selv til de
> rigtige område
> Sub Tjekogryk()
>     For Each c In Range("A1:A100").Cells
>         If c.Value <> c.Offset(0, 1).Value Then
>             c.Offset(0, 1).Select
>             Selection.Insert Shift:=xlDown
>         End If
>     Next
> End Sub


Aaaargh, jeg har købt Office 365, men når jeg vil lave en makro og vil
synliggøre fanen "Udvikler", får jeg at vide at "Denne funktion er kun
tilgængelig, hvis du har en Office 365 Subscription".

Det må jeg lige undersøge nærmere.
Jan Kronsell (12.08.2019, 23:00)
On 12-08-2019 13:18, Kurt Hansen wrote:
> Den 11/08/2019 kl. 23.32 skrev Jan Kronsell:
> Aaaargh, jeg har købt Office 365, men når jeg vil lave en makro og vil
> synliggøre fanen "Udvikler", får jeg at vide at "Denne funktion er kun
> tilgængelig, hvis du har en Office 365 Subscription".
> Det må jeg lige undersøge nærmere.


Kender ikke mulighederne i Office 365.

Jan
Lars Klintholm (13.08.2019, 09:08)
Jan Kronsell skrev mandag den 12-08-2019 kl. 23:00:58:

> Kender ikke mulighederne i Office 365.


Din makro kører fint i min Office 365
Jan Kronsell (14.08.2019, 23:32)
On 13-08-2019 09:08, Lars Klintholm wrote:
> Jan Kronsell skrev mandag den 12-08-2019 kl. 23:00:58:
>> Kender ikke mulighederne i Office 365.

> Din makro kører fint i min Office 365

Tak for info. Jeg får 365 på min arbejdscomputer i næste uge. Så kan jeg
lege med den også :-)

Jan
Kurt Hansen (26.08.2019, 09:27)
Den 13/08/2019 kl. 09.08 skrev Lars Klintholm:
> Jan Kronsell skrev mandag den 12-08-2019 kl. 23:00:58:
>> Kender ikke mulighederne i Office 365.

> Din makro kører fint i min Office 365


Ok, så er det bare mig der ikke kan finde stedet med makroer i
Office365. På fanebladet "Vis" er der to ikoner:

Vis makroer
Indspil makro

Men hvor og hvordan indsætter jeg Jans makro?
Lars Klintholm (28.08.2019, 19:15)
Kurt Hansen skrev mandag den 26-08-2019 kl. 09:27:12:

> Den 13/08/2019 kl. 09.08 skrev Lars Klintholm:
> Ok, så er det bare mig der ikke kan finde stedet med makroer i Office365. På
> fanebladet "Vis" er der to ikoner:
> Vis makroer
> Indspil makro
> Men hvor og hvordan indsætter jeg Jans makro?


Hvis du trykker Alt+F11, hvad sker der så?
Lars Klintholm (28.08.2019, 19:16)
Kurt Hansen skrev mandag den 26-08-2019 kl. 09:27:12:

> Den 13/08/2019 kl. 09.08 skrev Lars Klintholm:
> Ok, så er det bare mig der ikke kan finde stedet med makroer i Office365. På
> fanebladet "Vis" er der to ikoner:
> Vis makroer
> Indspil makro
> Men hvor og hvordan indsætter jeg Jans makro?


Har du ikke en fane, der hedder Udvikler?
Kurt Hansen (29.08.2019, 07:28)
Den 28/08/2019 kl. 19.15 skrev Lars Klintholm:
> Kurt Hansen skrev mandag den 26-08-2019 kl. 09:27:12:
>> Hvis du trykker Alt+F11, hvad sker der så?


Aha! Så kommer Visual Basic editoren frem! Heureka :-)

Og nej, jeg har ikke en fane der hedder "Udvikler" og det er det der har
givet mig hovedbrud.

Så sent som i aftes faldt jeg dog tilfældigvist over menupunktet
"Funktioner" hvor der er et punkt der hedder "Makro" og her kan jeg åbne
editoren.

Hvor meget det så hjælper mig er tvivlsomt, da jeg absolut ingen
forstand har på VB, men i det mindste ved jeg nu hvor jeg kan/skal
indsætte din makro; nu skal jeg bare lige kende proceduren.

Lignende emner