Ugenummer

Du skal have tilføjelsesprogrammet analysis toolpack installeret. Så hedder funktionen UGE.NR(), se hjælpen i excel!

ASKIMS

Sorry, glemte at skrive at det var i visual basic editor...koden kommer her (når man trykker, sker der nada):

Private Sub CommandButton1_Click()

  Dim sti As String, Navn As String, uge As String
   
  sti = ActiveWorkbook.Path
  uge = "| Uge " & Cells(4, 4).Value
  Navn = "Timeregistrering " & Cells(2, 4).Value & " " & uge
 
  If Cells(2, 4).Value = "" Then
    MsgBox "Der er ikke angivet et navn!", vbCritical
    Exit Sub
    End If
   
    If Cells(4, 4).Value = "" Then
        MsgBox "Du har ikke angivet hvilken uge timeseddelen gælder for!", vbCritical
        Exit Sub
        End If
           
            Exit Sub
                ActiveWorkbook.SaveAs Filename:=sti & "\" & Navn
                MsgBox "Fil gemt som " & Navn & " i mappen " & sti
Application.Quit
End Sub

Hvad står der i celle "D4"?

ugenummeret, for det var det eneste alternativ jeg lige kunne finde på, i D2 står navnet

Knappen hedder "CommandButton1", ikke?

Kører du sub'en fra editoren, hvad sker der så?

Kan jeg få lov at se arket?

ar_svendsen@yahoo.com

ja, jeg sender det til dig om 10 min, da jeg lige skal have pillet nogle fortrolige oplysinger ud...og der sker heller ingen ting, hvis jeg kører det fra editoren

Hej acw

Beklager at jeg først svare nu.
Der, hvor "problemet" ligger i koden, er lige efter, der er checket for, om der står et ugenr i celle D4. Her går du ud af sub'en med "Exit Sub", det er lige inden den skal gemme derfor har du oplevelsen af at der ikke sker noget, men det den reelt gør er at checke om feltet med navnet på personen er udfyldt, derefter checker den om der er et ugenr, og efter dette skal sub'en exit'tes. Hvis du sletter Exit Sub lige over Activeworkbook.saveas filname..., så virker den!

ASKIMS

tak for hjælpen