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

Michael_H007 Juniormester

07. august 2015 - 13:14 Der er 10 kommentarer og
1 løsning

VBA teksboks

Har nedenstående kode, som laver en inputboks når en bestemt celle aktiveres - problemet er, at boksen overskriver teksten i cellen. Så jeg har behov for tjek om der er indhold i cellen, hvis ikke så skal boksen komme frem ellers ikke.

userInput = InputBox("Skriv dit input her:", "Skriv her")
userInput = Format(Date, "dd.mm.yy") & " " & Application.UserName & " " & userInput

Synes godt om

store-morten Ekspert

07. august 2015 - 13:29 #1

Prøv:

Sub SkrivICelle2()

Dim userInput As String

On Error GoTo Fejl:

If Not ActiveCell = "" Then Exit Sub
userInput = InputBox("Skriv dit input her:", "Skriv her")
userInput = Format(Date, "dd.mm.yy") & " " & Application.UserName & " " & userInput

ActiveCell.Value = userInput

Columns("D:D").EntireColumn.AutoFit

Exit Sub

Fejl:
MsgBox "Fejl"

End Sub

Synes godt om

store-morten Ekspert

07. august 2015 - 14:23 #2

Hvis "Cancel" vælges:

Sub SkrivICelle2()

Dim userInput As String

On Error GoTo Fejl:

If Not ActiveCell = "" Then Exit Sub
userInput = InputBox("Skriv dit input her:", "Skriv her")
If userInput = vbNullString Then Exit Sub

userInput = Format(Date, "dd.mm.yy") & " " & Application.UserName & " " & userInput

ActiveCell.Value = userInput

Columns("D:D").EntireColumn.AutoFit

Exit Sub

Fejl:
MsgBox "Fejl"

End Sub

Prøv evt. denne, hvor man kan tilføje tekst:

Sub SkrivICelle3()

Dim userInput As String

On Error GoTo Fejl:

If Not ActiveCell = "" Then
userInput = InputBox("Skriv dit input her:" & vbLf & _
vbLf & "Teksten vil blive tilføjet efter:" & vbLf & _
vbLf & ActiveCell, "Skriv her")
If userInput = vbNullString Then Exit Sub
userInput = ActiveCell & " " & userInput
ActiveCell.Value = userInput
GoTo Indsæt:
End If

userInput = InputBox("Skriv dit input her:", "Skriv her")
If userInput = vbNullString Then Exit Sub
userInput = Format(Date, "dd.mm.yy") & " " & Application.UserName & " " & userInput

Indsæt:
ActiveCell.Value = userInput

Columns("D:D").EntireColumn.AutoFit

Exit Sub

Fejl:
MsgBox "Fejl"

End Sub

Synes godt om

Michael_H007 Juniormester

07. august 2015 - 14:33 #3

Tak virker fint - send svar så kommer der point

Synes godt om

store-morten Ekspert

07. august 2015 - 14:44 #4

Den er god ;-)

Velbekomme

Synes godt om

Michael_H007 Juniormester

07. august 2015 - 15:01 #5

Var lige for hurtig med sidste løsning - den giver en fejl. Har kopieret din kode ind.

Compile Error
Invalid outside procedure

On Error GoTo Fejl:

Synes godt om

store-morten Ekspert

07. august 2015 - 16:17 #6

Bemærk:

Sub SkrivICelle3()

Ret til 2

eller på Ark1: Call SkrivICelle3

Synes godt om

Michael_H007 Juniormester

10. august 2015 - 08:00 #7

@store-morten så virker det tak. Et lille supplerende spørgsmål - hvordan får jeg lavet linjeskift i cellen hvis jeg tilføjer tekst til en eksisterende tekst.

Synes godt om

store-morten Ekspert

10. august 2015 - 11:45 #8

Med: & Chr(10) &

Synes godt om

store-morten Ekspert

10. august 2015 - 12:13 #9

Så tilføjes: linjeskift, ny dato, brugernavn og ny tekst:

Sub SkrivICelle3()

Dim userInput As String

On Error GoTo Fejl:

If Not ActiveCell = "" Then
userInput = InputBox("Skriv dit input her:" & vbLf & _
vbLf & "Teksten vil blive tilføjet under:" & vbLf & _
vbLf & ActiveCell, "Skriv her")
If userInput = vbNullString Then Exit Sub
userInput = ActiveCell & Chr(10) & _
Format(Date, "dd.mm.yy") & " " & Application.UserName & " " & userInput
ActiveCell.Value = userInput
GoTo Indsæt:
End If

userInput = InputBox("Skriv dit input her:", "Skriv her")
If userInput = vbNullString Then Exit Sub
userInput = Format(Date, "dd.mm.yy") & " " & Application.UserName & " " & userInput

Indsæt:
ActiveCell.Value = userInput

Columns("D:D").EntireColumn.AutoFit

Exit Sub

Fejl:
MsgBox "Fejl"

End Sub

Synes godt om

Michael_H007 Juniormester

10. august 2015 - 12:07 #10

Kan ikke lige finde ud af hvorhenne jeg skal tilføje det

Synes godt om

Michael_H007 Juniormester

10. august 2015 - 12:57 #11

Perfekt - det fungerer

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

Titel	Indlæg	Oprettet	Seneste aktivitet
Formler der blev væk Af Klaus W i Excel	6	17/05/202419:32	33 minutter siden
Få excel til at indsætte værdi i månedsfelter ud fra start og stop dato Af CBH i Excel	6	08/05/202413:16	13/05/202414:31
Dato opslag udfordring igen igen Af Klaus W i Excel	6	08/05/202410:15	08/05/202416:07
Sumfunktion ud fra dato Af scholes i Excel	3	08/05/202408:34	08/05/202413:29
Vise flere ark fra samme workbook Af Nanarsi i Excel	3	07/05/202410:33	09/05/202412:56

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

17/05

Test: Motorolas lækre nye toptelefon er skarpt prissat – men den gemmer på en gevaldig bommert

17/05

Her er de nye medlemmer af Statens It-råd: Skal vurdere it-projekter på over 15 millioner kroner

17/05

Antallet af anmeldelser af ulovligt indhold på beskedtjenester stiger: Regeringen skubber ansvaret videre til EU og Belgien

17/05

Nørgaard: Det kendte pekingeser-fænomen kunne alligevel ikke føre os til sejr i melodi grand prix

17/05

Tredje gang på under en uge: Google retter alvorlig sårbarhed i Chrome-browseren

17/05

Efter masser af kritik af store prisstigninger: VMware åbner for gratis licenser - ændrer i licens-strukturen

17/05

Google hælder masser af privacy og sikkerhed i Android 15-opdatering

17/05

Seks store selskaber med på årets image-liste for første gang: Kæmper alle med lav kendskabsgrad

17/05

Vi har fundet 10 spændende it-job, som du kan søge lige nu

17/05

Netcompany i gang med at positionere sig som leverandør af nyt centralnerve-system til det danske forsvar

17/05

Film: Andy Serkis vender tilbage som Gollum

Vis flere artikler

IT-JOB

Saab Danmark A/S

Test Manager

ATP

Forretningskonsulent til behovsafdækning af it-udvikling baseret på nye teknologier

Danoffice IT

Hybrid Cloud Infrastructure Architect, Managed Services

NRGi

GIS-konsulent

Region Midtjylland

Økonomimedarbejder med udviklingspotentiale til økonomisupporten

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

1 min siden	Antivirus til en Linux Mint computer? Af Polle i Linux
I går 15:30	signalforstærker til trådløs rutrer tænkes brugt til pc næt pc -og MÅSKE TV 4 m borte eller begge Af Novice-1 i Routere & Switches
I går 11:43	Hvilket styresystem på en gammel Pc ??? Af Jan Post i Andre styresystemer
I går 07:44	Virus advarsler - falske Af jdann i Backup- & Antivirus
17/0519:32	Formler der blev væk Af Klaus W i Excel