Hier ist die Lösung:
Erstelle mit Notepad eine Textdatei, die nur eine "1" enthält (sonst nix, auch keine leerzeichen) und speichere sie in ein gemeinsames Laufwerk/Pfad auf dem Server.
Sub aktivesBlattToPdf()
zähler = txt_ReadAll("C:\Users\oee\Desktop\testtext.txt"):'Hier Name und vollst. Pfad der Datei, die den "Zähler" enthält"
zähler = zähler + 1
Cells(77, 1) = zähler: 'Schreibt Wert zur Überprüfung in A77:' ggf ändern oder weglassen
'Hier der restliche Code,der Zähler und Namen verknüpft und PDF erstellt
'Hier der restliche Code,der Zähler und Namen verknüpft und PDF erstellt
'Hier der restliche Code,der Zähler und Namen verknüpft und PDF erstellt
'Hier der restliche Code,der Zähler und Namen verknüpft und PDF erstellt
a$ = zähler
Call txt_WriteAll("C:\Users\oee\Desktop\testtext.txt", a$):'Hier Name und vollst. Pfad der Datei, die den "Zähler" enthält"
End Sub
Das folgende in ein MODUL einfügen (ggf neues Modul erstellen)
Public Function txt_ReadAll(ByVal sFilename As String) As String
Dim F As Integer
Dim sInhalt As String
' Existiert die Datei ?
If Dir$(sFilename, vbNormal) <> "" Then
F = FreeFile
Open sFilename For Binary As #F
sInhalt = Space$(LOF(F))
Get #F, , sInhalt
Close #F
End If
txt_ReadAll = sInhalt
End Function
Public Sub txt_WriteAll(ByVal sFilename As String, ByVal sLines As String)
Dim F As Integer
F = FreeFile
Open sFilename For Output As #F
Print #F, sLines
Close #F
End Sub
|