VB i Excel

2. eller hvor der bliver skrevet et F

Vedr. 2 - Du skal lave en betinget formatering.

Marker de felter hvor det skal gælde. F.eks. hele arket.

Vælg. Formater - betinget formatering
Vælg. Celleværdien er : \"lig med\"
Skriv: =\"f\" i det sidste felt.
Tryk på knappen Formater...
Vælg dit format med f.eks. den røde baggrund osv.

Ja - så skulle det virke.

Finn

Vedr. 1: Det letteste du kan gøre er IKKE at gøre det i VB. Skriv \"Mandag\" (uden anførselstegn) i celle A1 og tryk Enter. Stil så markøren i det lille firkantede håndtag i nederste højre hjørne i cellen. Hold venstre museknap nede og træk med musen 100 kolonner mod højre. Så er det klaret!

Hvis du SKAL bruge en VB-løsning, så sig til!

OK, du kan lige så godt få VB-løsningen med det samme:

Aktivér VB-editoren med SHIFT + F11.
Indsæt et nyt modul. Vælg \"Insert\" og \"Module\"
Gå ind i modulet og skriv følgende kode:

Sub Ugedage()
    Cells(1, 1).Value = \"Mandag\"
    Set SourceRange = Range(\"A1\")
    Set FillRange = Range(\"A1:CV1\")
    SourceRange.AutoFill Destination:=FillRange
End Sub

Gå tilbage til det ark i Excel, hvor din knap skal være. Aktivér værktøjslinjen \"Formularer\" (vælg \"Vis\", \"Værktøjslinjer\", \"Formularer\"). Klik på knappen \"Knap\" i værktøjslinjen. Tegn en knap, der hvor du vil have den. I dialogboksen \"Tildel makro\" vælger du så makroen \"Ugedage\". Klik \"OK\". Din knap er nu klar!

Finn din løsning virker lige som den skal og den skal du nok få point for...Tak for den

men nr.1
Jeg skal bruge en do loop eller en for next løsning fordi det er ikke altid der skal være en mandag i det næste felt + lørdag/søndag skal ikke være med

Så det skal være muligt at sætte nogle betingelser ind i løkken

infojens >> Den løsning jeg har lavet er korrekt i forhold til det, du oprindeligt har spurgt om.

At visse dage (ikke altid) skal med, burde du have nævnt fra starten. Så havde jeg undgået at spilde min tid på at lave noget, du alligevel ikke kan bruge.

Kan du definere, i hvilke tilfælde mandag IKKE skal være med?

Sorry Irp skal prøve at uddybe mine sprøgsmål

Med hensyn til de dage som ikke skal skrives med ind i excel arket bruger jeg en dll som udregner danske helligdage hvis det er det skal den ikke med i arket så hvis jeg bare kan se et exemple på en do loop eller for next løsning så er jeg glad

har klaret den....jubiii

MyDato = Date
MyDag = Format(MyDato, \"dddd\")

For Tel = 1 To 100
    MyDag = Format(MyDato, \"dddd\")
    Cells(1, Tel).Value = MyDag
    MyDato = MyDato + 1
Next

I for 40 point hver håber det er i orden med jer...

Tak for en herlig debat..

Lukker og slukker...

Helt i orden. Takker for points\'ene.
Rart at høre, at det lykkedes for dig!