Avatar billede denero Juniormester
11. januar 2016 - 12:36 Der er 4 kommentarer og
1 løsning

Værdi i tekstbox

En indtastet værdi i tekstboks 1, skal være den samme værdi, som  der i celle A1 ellers skal if sætning afslutte - hvis det er den samme værdi skal if sætning fortsætte med øvrig kode.

Har prøvet med dette, men virker ikke.
If Me.TextBox1.Text.Value = Sheets("1").Range("A1").Value Then....
Avatar billede store-morten Ekspert
11. januar 2016 - 14:01 #1
Måske:
If Me.TextBox1.Text.Value = Sheets(1).Range("A1").Value Then

Eller hedder arket "1" ?
Avatar billede jens48 Ekspert
11. januar 2016 - 22:15 #2
Denne stump makro er afprøvet og virker:

If Cells(1, 1) <> Worksheets("Sheet1").Shapes("Textbox 1").TextFrame.Characters.Text * 1 Then
Exit Sub
End If
Avatar billede denero Juniormester
12. januar 2016 - 08:09 #3
Arket hedder 1.

Fik ikke skrevet, at tekstboksen ligger i en userform.
Indholdet i textboks og celle er en blanding af tekst og tal
Avatar billede denero Juniormester
11. februar 2016 - 13:24 #4
Har ikke rigtig fået en løsning - lukker, hvis ikke der et bud.
Avatar billede denero Juniormester
25. februar 2016 - 08:42 #5
Lukker.
Avatar billede 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.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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



IT-JOB

Politiets Efterretningstjeneste

Bliv AD-specialist hos PET

Sentia Denmark A/S

Service Delivery Manager

Lægemiddelstyrelsen

Erfaren IT-projektleder

Udviklings- og Forenklingsstyrelsen

UI-designer med flair for apps

Queue-it ApS

Team Lead Engineering