CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

krummel Juniormester

23. september 2019 - 13:09 Der er 4 kommentarer og
1 løsning

VBA excel: if then else

Hvor er fejlen? Er ikke super rutineret vba'er

Celle H6 er lig bogstavet x
Celle H7 er tomt
Celle H8 er lig bogstavet x

If H6 = "x" Then a = "F6;" Else a = ""
If H7 = "x" Then b = "F7;" Else b = ""
If H8 = "x" Then c = "F8;" Else c = ""

optimal = a + b + c
optimal = Left(optimal, Len(optimal) - 1)

Outputtet fra optimal skal gerne være F6;F8 (som tekst)

Synes godt om

krummel Juniormester

23. september 2019 - 14:39 #1

En variation af ovenstående for at prøve at finde fejle

H6 er lig 1
H7 er lig 1
H8 er tom

VBA:
If H6 = 1 Then a = "F6;" Else a = "q"
If H7 = 1 Then b = "F7;" Else b = "w"
If H8 = 1 Then c = "F8;" Else c = "e"
optimal = a + b + c
MsgBox optimal

Output bliver "qwe" - bør det ikke være "F6;F7;e" ?
Jeg forstår ikke, hvorfor jeg får dette output - hvad gør jeg galt?

Synes godt om

krummel Juniormester

23. september 2019 - 14:44 #2

Og hvis jeg skriver følgende i stedet:

H6 er lig x
H7 er lig x
H8 er tom

VBA:
If H6 = x Then a = "F6;" Else a = "q"
If H7 = x Then b = "F7;" Else b = "w"
If H8 = x Then c = "F8;" Else c = "e"
optimal = a + b + c
MsgBox optimal

bliver output "F6;F7;F8;" hvilket heller ikke giver mening (synes jeg). Er det mig som er en knold eller excel som er gået kold?

Synes godt om

store-morten Ekspert

23. september 2019 - 16:35 #3

Prøv:

If Range("H6") = "x" Then
a = "F6;"
Else
a = "q"
End If

If Range("H7") = "x" Then
b = "F7;"
Else
b = "w"
End If

If Range("H8") = "x" Then
c = "F8;"
Else
c = "e"
End If

optimal = a + b + c
MsgBox optimal

Synes godt om

Slettet bruger

24. september 2019 - 08:49 #4

du har ikke nogen "end if" - og desuden kan du ikke tælle tekst sammen - så optimal skal regnes med "a & b & c"

Synes godt om

krummel Juniormester

24. september 2019 - 09:38 #5

Mange tak - det hjalp :-)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Opdatering af SAPgrid værdi Af dane022 i Visual Basic	2	25/04/202414:26	25/04/202422:06
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic	0	08/12/202320:00	-
Manuel rotering af billedfil i en formular, 90 - 180 - 270 - 360 grader Af stejuu i Visual Basic	2	04/12/202320:07	09/12/202310:49
Erstat http med faktisk billede Af crjensen i Visual Basic	0	09/10/202309:14	-
Filtrering af dato i Pivottabel driller Af TrinoJ. i Visual Basic	4	07/08/202310:40	10/08/202310:44

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

15:59

Test: Vi vil altså virkeligt gerne beholde HP's nye pc - men den koster 360.000 kroner

03/05

Socialdemokratiet vil give massiv offentlig støtte til europæiske AI-virksomheder

03/05

Apple køber egne aktier tilbage for mere end 763 milliarder kroner: Største tilbagekøb nogensinde

03/05

Nørgaard: Jeg kunne have været ejer af KMD, hvis ikke nogle pengedrenge havde kontaktet KMD's chefer

03/05

Interne mails afslører: Derfor besluttede Microsoft at investere milliarder i OpenAI i 2019

03/05

Jakob Høholdt fratræder som CEO for Sentia: Indsætter ny topchef fra Aeven

03/05

Topchef: En tredjedel af alle amerikanernes sundhedsdata flyder på dark web

03/05

Skal du have et nyt job før sommerferien - så bør du tjekke en af disse 10 stillinger

03/05

Åbner for en af Danmarks største it-konsulentaftaler til 2,3 milliarder kroner

03/05

Netcompany har ansat 144 nye medarbejdere siden nytår: "Vi har fået travlt i Danmark," siger en godt tilfreds André Rogaczewski

03/05

Regeringen på trapperne med løsning på omstridt Chromebook-sag: Her kommer svarene

Vis flere artikler

IT-JOB

Udviklings- og Forenklingsstyrelsen

Formidlingsstærk webanalytiker til Skatteforvaltningens digitale løsninger

Udviklings- og Forenklingsstyrelsen

Ønsker du at skærpe din generalistprofil ved at understøtte projektstyringen i Skatteforvaltningens it-projekter?

Udviklings- og Forenklingsstyrelsen

IAM-medarbejder

ATP

Data Scientist til full-stack udvikling af algoritmer, ML-modeller og NLP

Udviklings- og Forenklingsstyrelsen

Projektleder til udvikling af den digitale front i Skatteforvaltningen

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 13:46	Træk dato og måned ud af celle Af Klaus W i Excel
I dag 00:07	USB styret telæ Af Olsen i Småopgaver
I går 22:04	nyt rtx 4060 vil bare ikke starte op? men 2060 nul problemer? Af ferretsdk i PC
I går 18:09	Problem med at oprette nyt tekst dokument. Af valby i Windows
I går 09:53	Monitor mode kali linux Af Braindead mac user i Linux