Markering af en celle

Kan du bruge denne:

Sub KalDag()
Dim dg, md As Integer

dg = Format(Now, "d")
md = Format(Now, "m")

Cells(dg + 2, md + 1).Select

End Sub

Det kunne jeg ihvertfald, tak for hjælpen... læg et svar !!

Du kan placere koden i Workbook_Open og vælge det konkrete ark:

Private Sub Workbook_Open()
Dim dg, md As Integer

Sheets("Ark1").Select
dg = Format(Now, "d")
md = Format(Now, "m")

Cells(dg + 2, md + 1).Select
End Sub

ved det lyder lidt skørt, men hvis jeg nu kun havde månederne fra Maj - December
Hvordan ville koden så se ud ??

Kunne være:

Private Sub Workbook_Open()
Dim dg, md As Integer

Sheets("Ark1").Select

If md > 4 Then
  dg = Format(Now, "d")
  md = Format(Now, "m")
  Cells(dg + 2, md + 1).Select
'Else
'  MsgBox ("Udenfor datoområde")
End If

End Sub

Du kan fjerne kommentartegnene eller lave din egen 'Else' hændelse hvis betingelserne ikke er opfyldt.

Hov, du skal flytte dg= og md= linierne op over If md...

Sån':

Private Sub Workbook_Open()
Dim dg, md As Integer

Sheets("Ark1").Select

dg = Format(Now, "d")
md = Format(Now, "m")

If md > 4 Then
  Cells(dg + 2, md + 1).Select
'Else
'  MsgBox ("Udenfor datoområde")
End If

End Sub

Umiddelbart virker det på samme måde som før ?!?, koden tager ikke højde for at månederne starte med maj og slutter med december !

Kan det have noget at gøre med at: md = Format(Now, "m") antager at der står 5,6,7..12 istedet for Maj,juni...Dec. ??

Makroen kigger overhovedet ikke på hvad du har skrevet i arket. Den undersøger datoen, finder ud af at måneden er nummer 7 og vælger derfor kolonne 7+1 som anført i linien:

Cells(dg + 2, md + 1).Select

Den samme fremgangsmåde gør sig gældende for dagen.

Prøv evt. at skrive

md = 1

istedet og test. Det er nemmest hvis du bruger Sub KalDag, så du ikke skal åbne/lukke din workbook.

:-( Det virker ikke, kan jeg sende dig Excel arket via mail ??

brynil@mail.dk

Så skulle den være sendt !

Modtaget, og den fungerer fint hér. Når jeg ændrer lidt...

Sub KalDag()
Dim dg, md As Integer
  dg = Format(Now, "d")
  md = 1                  ' <<<
 
  If md > 4 Then
  Cells(dg + 2, md + 1).Select
Else
MsgBox ("Huuhh")
End If

End Sub

...kommer meddelelsesboksen!

Vent lige lidt!!

Når du køre makroen, hvilken Celle markere den så ?

Så ikke lige du havde ændret dit ark i forhold til dit indledende spm.

Ret linien til dette:

Cells(dg + 2, md - 3).Select

Du kan ændre på dit ark som du vil. Det er ren hovedregning at få valgt den rigtige kolonne/dag når du tager udgangspunkt i min kommentar fra 21:36:21.

Fino, Så virker det Squ ' Men så siger jeg tak for hjælpen (8-)

Alle tiders. Tak for points :))

Ja, det har du ret i, problemet er at jeg først for ca. 1 uge siden er startet med VBA i Excel, og jeg er ikke så logisk tænkende endnu :-)

Jah, sån' tror jeg vi alle er startet. Det kommer!

Iøvrigt er der en Excel kategori på eksperten. Det er nok mere naturligt at lægge dine spørgsmål dér og evt. søge i besvarede spørgsmål. Men VB og VBA komplementerer hinanden, så du kan sikkert også få svar på meget hér.