Hvorfor virker denne VBA stump ikke på Mac
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=358
Udskrevet den: 17.Maj.2024 kl. 04:11
Emne: Hvorfor virker denne VBA stump ikke på Mac
Besked fra: Allan
Emne: Hvorfor virker denne VBA stump ikke på Mac
Posteringsdato: 30.Maj.2011 kl. 09:09
Hej  ,
I denne tråd: /forum_posts.asp?TID=354&title=faktura"/forum_posts.asp?TID=354&title=faktura har jeg forsøgt at hjælpe Alan med at få Excel til at generere fakturanumre i Excel.
Metoden jeg valgte var simpel, simpelthen ved at få Excel til at gemme filen som netop fakturanummeret og først checke om nummeret allerede var optaget. Hvis nummeret ikke var ledigt, vil koden lægge 1 til indtil næste ledige nummer findes.
Koden ser således ud, men virker desværre ikke på Mac, er der nogen som kan hjælpe?
Jeg tror selv at fejlen ligger i den måde jeg checker on filen eksisterer, men jeg ved det som sagt ikke.
Sub Fakturanummer()
NummerPlacering = Ark1.Range("A2").Address FakturaArkiv = ThisWorkbook.Path
Naeste:
If Dir(FakturaArkiv & Application.PathSeparator & "Faktura " & Range(NummerPlacering) & ".xls") <> "" Then Range(NummerPlacering) = Range(NummerPlacering) + 1 GoTo Naeste Else ThisWorkbook.SaveAs (FakturaArkiv & Application.PathSeparator & "Faktura " & Range(NummerPlacering) & ".xls") MsgBox "Fakturanr. " & Range(NummerPlacering) & " er nu gemt i mappen:" & vbNewLine & FakturaArkiv End If End Sub //Allan
|