VBA knap i ThisWorkbook
hej. Jeg har denne knap indsat:Private Sub CommandButton3_Click()
If Dir("c:\timeregistrering", vbDirectory) = "" Then MkDir "c:\timeregistrering"
If Dir("c:\timeregistrering\databaser", vbDirectory) = "" Then MkDir "c:\timeregistrering\databaser"
If Dir("c:\timeregistrering\databaser\" & Range("init").Value, vbDirectory) = "" Then MkDir "c:\timeregistrering\databaser" & Range("init").Value
If Range("E9").Value = "" Then
MsgBox "du har ikke indtastet nogle data!", vbCritical
Exit Sub
End If
If Range("navn").Value = "" Then
MsgBox "du har ikke indtastet dit navn!", vbCritical
Exit Sub
End If
If Range("navn").Value = "" Then
MsgBox "du har ikke indtastet dit navn!", vbCritical
Exit Sub
End If
Sheets("Timer").Select
Range("B8:bund2").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count) 'indsætter et nyt ark og lader programmet tælle nummeret på arket
Sheets(Sheets.Count).Select
Range("A1").Select
ActiveSheet.Paste ' indsætter det kopierede materiale fra Det originale ark
Sheets("Timer").Select
Range("F8:bund").Select ' gør det en gang til med værdien "Antal"
Selection.Copy
Sheets(Sheets.Count).Select
Range("E1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.SaveAs FileName:="c:\timeregistrering\databaser\" & Range("init").Value & "\" & Range("uge").Value, FileFormat:=xlCSVWindows 'gemmer det nye ark som kommasepareret fil
Sheets("Timer").Select
Application.DisplayAlerts = False
Sheets(Sheets.Count).Delete 'sletter det oprettede ark og lukker Microsoft Excel
Range("B8").Select
Application.Quit
End Sub
---------------------
Der er ikke noget galt med koden, men når jeg trykker på knappen, sker der absolut intet. Knappen er i et module, og hvis jeg indsætter den i thisworkbook, kommer den med alle mulige fejl, når jeg klikker på knappen. Hvordan kan dette løses?
