Set SharePoint version number yourself?

Diskutiere und helfe bei Set SharePoint version number yourself? im Bereich Microsoft Office im Windows Info bei einer Lösung; Hello together,is it possible to customize the versioning of documents in SharePoint? I have created a new document library and set the "Version"... Dieses Thema im Forum "Microsoft Office" wurde erstellt von Susanne Stangl, 20. Dezember 2022.

  1. Susanne Stangl
    Susanne Stangl Gast

    Set SharePoint version number yourself?


    Hello together,is it possible to customize the versioning of documents in SharePoint? I have created a new document library and set the "Version" column. Now I want to upload documents to the library, but they already have fixed version numbers. So my question now is if I can somehow set the versioning individually for each document or is that not possible and each document automatically starts at 1.0? Thanks a lotSusi
     
    Susanne Stangl, 20. Dezember 2022
    #1
  2. Schoenegge Win User

    Dokumenten-Vorlage mit den Feldern SaveDate und RefNum in NEUES Dokument übernehmen

    Guten Morgen Christian,



    da bin ich wieder. Habe jetzt folgende ausgangssituatuion:



    -------Modul1 mit folgendem Inhalt:------------

    Dim cls As New Klasse1

    Private Sub Workbook_Open()

    Set cls.Workbook = ActiveWorkbook



    Dim x As DocumentProperty

    On Error Resume Next



    Set x = ActiveWorkbook.CustomDocumentProperties("Vault_SaveDate")

    If x Is Nothing Then

    Set x = ActiveWorkbook.CustomDocumentProperties.Add(Name:="Vault_SaveDate", _

    LinkToContent:=False, Value:="01.01.2012", Type:=msoPropertyTypeDate)

    End If

    x.Value = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd mm yyyy")

    Debug.Print ActiveWorkbook.CustomDocumentProperties("Vault_SaveDate").Value

    '

    Set x = Nothing ' Variable löschen - WICHTIG"

    Set x = ActiveWorkbook.CustomDocumentProperties("Vault_Revision")

    If x Is Nothing Then

    ActiveWorkbook.CustomDocumentProperties.Add Name:="Vault_Revision", _

    LinkToContent:=False, Value:=999, Type:=msoPropertyTypeNumber

    End If

    x.Value = ActiveWorkbook.BuiltinDocumentProperties(8) ' Revision Number

    '

    Debug.Print ActiveWorkbook.CustomDocumentProperties("Vault_Revision").Value

    On Error GoTo 0

    End Sub



    -------Klasse1 mit folgendem Inhalt:------------

    Public WithEvents Workbook As Workbook

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    If Not Cancel Then

    ThisWorkbook.BuiltinDocumentProperties("Revision number") = _

    ThisWorkbook.BuiltinDocumentProperties("Revision number") + 1

    End If

    End Sub

    Leider zählt sich die Revision nicht hoch



    Peter
  3. Schoenegge Win User

    Dokumenten-Vorlage mit den Feldern SaveDate und RefNum in NEUES Dokument übernehmen

    Moin Christian,

    ich habe das jetzt wie folgt glöst:



    Private Sub Document_Close()

    Dim x As DocumentProperty

    On Error Resume Next



    Set x = ActiveDocument.CustomDocumentProperties("Vault_SaveDate")

    x.Value = Format(ActiveDocument.BuiltInDocumentProperties(12), "dd mm yyyy") 'SaveDate





    Set x = ActiveDocument.CustomDocumentProperties("Vault_RefNum")

    x.Value = ActiveDocument.BuiltInDocumentProperties(8) ' Revision Number



    Selection.WholeStory

    Selection.Fields.Update

    Selection.HomeKey Unit:=wdStory

    End Sub

    Private Sub Document_open()



    Dim x As DocumentProperty

    On Error Resume Next



    Set x = ActiveDocument.CustomDocumentProperties("Vault_SaveDate")

    x.Value = Format(ActiveDocument.BuiltInDocumentProperties(12), "dd mm yyyy") 'SaveDate





    Set x = ActiveDocument.CustomDocumentProperties("Vault_RefNum")

    x.Value = ActiveDocument.BuiltInDocumentProperties(8) ' Revision Number



    Selection.WholeStory

    Selection.Fields.Update

    Selection.HomeKey Unit:=wdStory



    End Sub

    --------------------------



    Das scheit auch zu klappen. Vielen Dank für deine perfekte Unterstützung.



    Jetzt brauche ich das Ganze noch für Excel und Powerpoint.

    Hat da auch noch jemand Erfahrung



    Vielen Dank

    Peter
  4. -CHF- Win User

    Dokumenten-Vorlage mit den Feldern SaveDate und RefNum in NEUES Dokument übernehmen

    Sodele,

    für Excel habe ich folgende Informationen bekommen:

    dort wird die Version nicht /niemals gespeichert - sic =8-O

    Aber du kannst den Wert in einem Klassenereignis hochzählen - was hier funktioniert:

    In einem Klassen modul "Klasse1"

    ' Klassenmodul

    Public WithEvents Workbook As Workbook

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    If Not Cancel Then

    ThisWorkbook.BuiltinDocumentProperties("Revision number") = _

    ThisWorkbook.BuiltinDocumentProperties("Revision number") + 1

    End If

    End Sub

    Und im Modul die zusätzlichen Zeilen

    ' Modul

    Dim cls As New Klasse1

    Private Sub Workbook_Open()

    Set cls.Workbook = ActiveWorkbook

    Dim x As DocumentProperty

    '...



    damit wird die Klasse initialisiert und somit das Ereignis bereitgestellt und vor dem Speichern ausgelöst: der Zähler wird hochgesetzt.



    Zu PP habe ich weiterhin keine Ideen - sorry.



    Gruß

    Christian
  5. -CHF- Win User

    Dokumenten-Vorlage mit den Feldern SaveDate und RefNum in NEUES Dokument übernehmen

    Hallo Peter,

    kannst du mal eine Stop-Marke in das Klassenmodul setzen?

    Evtl. wird die Klasse ja nicht initialisiert.



    Probiere dann mal folgendes:

    ' Modul DieseArbeitsmappe

    Private Sub Workbook_Open()

    Set cls.Workbook = ActiveWorkbook

    Modul1.SetValues

    End Sub

    ' Modul Modul1

    Public Sub SetValues()

    Dim x As DocumentProperty

    On Error Resume Next



    Set x = ActiveWorkbook.CustomDocumentProperties("Vault_SaveDate")

    If x Is Nothing Then

    Set x = ActiveWorkbook.CustomDocumentProperties.Add(Name:="Vault_SaveDate", _

    LinkToContent:=False, Value:=" 1 1 1900", Type:=msoPropertyTypeDate)

    End If

    x.Value = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd.mm.yyyy")

    '

    Set x = Nothing

    Set x = ActiveWorkbook.CustomDocumentProperties("Vault_Revision")

    If x Is Nothing Then

    ActiveWorkbook.CustomDocumentProperties.Add Name:="Vault_Revision", _

    LinkToContent:=False, Value:=0, Type:=msoPropertyTypeNumber

    End If

    x.Value = ActiveWorkbook.BuiltinDocumentProperties(8) ' Revision Number

    '

    With ActiveSheet.PageSetup

    .LeftHeader = ""

    .CenterHeader = Format(ActiveWorkbook.CustomDocumentProperties("Vault_SaveDate").Value, "dd.mm.yyyy")

    .RightHeader = ActiveWorkbook.CustomDocumentProperties("Vault_Revision").Value

    End With

    On Error GoTo 0

    End Sub



    ' Klassenmodul Klasse1

    Public WithEvents Workbook As Workbook

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    If Not Cancel Then

    ThisWorkbook.BuiltinDocumentProperties("Revision number") = _

    ThisWorkbook.BuiltinDocumentProperties("Revision number") + 1

    Modul1.SetValues

    End If

    End Sub

    Damit sollte das jetzt sauber aufgeteilt werden.

    Das Modul in DieseArbeitsmappe sollte beim Öffnen der Vorlage ausgeführt werden.

    Damit wird dann auch die Klasse initialisiert.

    Gleichzeitig wird die allgemeine Prozedur SetValue aufgerufen, die die Informationen aus den Eigenschaften setzt und in die Kopfzeile einträge.

    Im Klassenmodul wird bei diesem Ereignis nach dem Hochzählen auch noch mal die Prozedur ausgeführt, damit die Werte wieder eingetragen werden.



    Habe das jetzt getestet und es funktionierte jedesmal einwandfrei. Sollte auch bei Dir klappen.



    Gruß

    Christian
  6. Claus Busch Win User

    Range mit Zeilenauswahl

    Hallo,



    wenn du es durch das Selektieren einer Zeile machen willst, musst du es über Range machen:

    Sub test()

    Dim s As Range

    Dim Rng1 As Range

    Dim Rng2 As Range



    Set s = Application.InputBox("Please select row:", _

    Type:=8)

    Set Rng1 = Range("F" & s.Row)

    Set Rng2 = Range("H" & s.Row)

    Rng1.Select

    End Sub



    Oder du lässt die Zeilennummer eingeben. Dann so:

    Sub test2()

    Dim s As Long

    Dim Rng1 As Range

    Dim Rng2 As Range



    s = Application.InputBox("Please enter row number:", _

    Type:=1)

    Set Rng1 = Range("F" & s)

    Set Rng2 = Range("H" & s)

    Rng1.Select

    End Sub



    Mit freundlichen Grüßen

    Claus

  7. User Advert


    Hi,

    willkommen im Windows Forum!
Thema:

Set SharePoint version number yourself? - Microsoft Office

Die Seite wird geladen...

Set SharePoint version number yourself? - Similar Threads - Set SharePoint number

 Forum Datum

SharePoint Dokumentenbibliothek: Anzeige der Version in einer Spalte funktioniert nicht

SharePoint Dokumentenbibliothek: Anzeige der Version in einer Spalte funktioniert nicht: Hallo, in einer Dokumentenbibliothek soll die Version eines Dokuments in einer Spalte angezeigt werden. Die Versionierung wurde mit Haupt- und Nebenversionen aktiviert. Die Spalte wurde aus...
 Microsoft Office 5. Januar 2024

Spaltenformatierung Unterschied Online und Lokale Sharepoint Version

Spaltenformatierung Unterschied Online und Lokale Sharepoint Version: Hallo zusammen, Ich bin gerade dabei von der Online Version Sharepoints, auf dessen lokalen Version umzusteigen da ich meine Daten einfach lokal haben möchte und in keiner Cloud.Als ich so eben...
 Microsoft Office 20. Juli 2023

Spaltenformatierung Unterschied Online und Lokaler Sharepoint Version

Spaltenformatierung Unterschied Online und Lokaler Sharepoint Version: Hallo zusammen, Ich bin gerade dabei von der Online Version Sharepoints, auf dessen lokalen Version umzusteigen da ich meine Daten einfach lokal haben möchte und in keiner Cloud.Als ich so eben...
 Microsoft Office 20. Juli 2023

Set Standard Member Group - Sharepoint site

Set Standard Member Group - Sharepoint site: Hey there,soory, that the screenshot is in german. I'm trying to figure out, why the synchronize button of one of our sharepoint sites is missing except for administrators.Offline sync is turned...
 Microsoft Office 10. Mai 2023

Microsoft Number Pad

Microsoft Number Pad: Hey,ich habe folgendes Problem, nach dem Update von Windows 10 auf 11 kann ich die Zahlen nicht mehr auf meinem Number pad nicht nutzen Enter taste oder Rechner taste funktionieren, aber die...
 Surface 10. Dezember 2021

Sharepoint überschreibt neue Versionen

Sharepoint überschreibt neue Versionen: [IMG] Hallo zusammen ich habe ein Problem mit der Versionierung auf Sharepoint Online. Heute ist uns aufgefallen, dass Sharepoint die aktuellste Version mit der ersten Version überschrieben und...
 Microsoft Office 9. Februar 2017

Jet Set Go

Jet Set Go: Jet Set Go [IMG] Willkommen an Bord der nächsten Generation des Zeitmanagements! Hilf April dabei, ihr angehendes Reiseagentur-Imperium aufzubauen und fliege Kunden um die ganze Welt in diesem...
 Spiele 5. März 2015
Set SharePoint version number yourself? solved
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Akzeptieren Weitere Informationen...