oprette en regel

Private Sub CommandButton1_Click()
Dim Msg, Style, Title, Response
Msg = "Skriv din tekst her"          ' Beskeden, der skal stå
Style = vbYesNo                                  ' vis en Ja/Nej-knap
Title = "Eksempel"
Response = MsgBox(Msg, Style, Title)
Style = vbOKOnly
Title = "Brugerens svar …"
If Response = vbYes Then       
Msg = "Yes"
Response = MsgBox("Brugeren svarede " & Msg & "!", Style, Title)
Else
Msg = "No"
Response = MsgBox("Brugeren svarede " & Msg & "!", Style, Title)
End If
End Sub

Mht. dit andet spm.: =NU()+30
Cellen skal formatteres til "dato" (tryk CTRL+1)

Hej X-lars

Hvordan indsætter jeg mon den øverste formel?

Også må du meget gerne smide "svar" :)

Oprette en kommandoknap: Vis > Værktøjslinier > Kontrolelementer. Fra denne værktøjslinie finder du en passende knap og klikker på denne. Når du kommer ud i regnearket, har markøren skiftet form til et sigtekorn. Klik på det sted, hvor du vil have knappen, hold museknappen nede, og træk knappen ud, indtil den har den rigtige størrelse. Højreklik på knappen, vælg "Vis programkode" og erstat det, dér står, med teksten fra min første kommentar. Højreklik på knappen igen og vælg "Egenskaber". I boksen "Caption" kan du skrive det, du gerne vil have til at stå på knappen.

Eksemplet er netop kun et eksempel for at vise, hvordan meddelelsesbokse kan styres via makroer. Du må så selv rette tekster til efter egne behov. Hvis du vil vide mere om makroer og kan lidt engelsk, kan jeg anbefale www.vbatutor.com

Hvis du slet ikke kan få det til at virke, så skriv igen.

Når jeg smider koden ind vil den ikke acceptere den. Hvad kan jeg mon gøre forkert?

Prøv med kun at kopiere teksten mellem start- og slutmærket hér. Når du så højreklikker på knappen, skal du ikke slette det, der automatisk er blevet sat op af Excel, men bare sætte ind mellem disse mærker. Så burde det virke.

Ellers må du lige kopiere det, der nu står i den samlede kode og så smide det ind her. Så tager vi den derfra! Samt selvfølgelig eventuelle fejlmeddelelser!