Statt Cells(x,x) ActiveCell eingeben

Sub daten() 
Cells(1, 1) = Erstellt am  & ActiveWorkbook.BuiltinDocumentProperties(11).Value 
Cells(2, 1) = Zuletzt gedruckt am  & ActiveWorkbook.BuiltinDocumentProperties(10).Value 
Cells(3, 1) = Zuletzt gespeichert am  & ActiveWorkbook.BuiltinDocumentProperties(12).Value 
End Sub

Sub daten()
  ActiveCell.Offset(0, 0) = Erstellt am  & ActiveWorkbook.BuiltinDocumentProperties(11).Value
  ActiveCell.Offset(1, 0) = Zuletzt gedruckt am  & ActiveWorkbook.BuiltinDocumentProperties(10).Value
  ActiveCell.Offset(2, 0) = Zuletzt gespeichert am  & ActiveWorkbook.BuiltinDocumentProperties(12).Value
End Sub

Option Explicit

Function Erstellt() As String
Erstellt = Erstellt am  & ActiveWorkbook.BuiltinDocumentProperties(11)
End Function

Function Geändert() As String
Geändert = Zuletzt geändert am  & ActiveWorkbook.BuiltinDocumentProperties(12)
End Function

Function Gedruckt() As String
Gedruckt = Zuletzt gedruckt am  & ActiveWorkbook.BuiltinDocumentProperties(10)
End Function

Option Explicit
'********************************************************
Sub BuiltInDocPropertiesBezeichnungZuNr()
  Dim sMldg As String
  Dim lAnz As Long, lAnzProMldg As Long, lAnzMldg As Long
  Dim x As Long, y As Long, lNr As Long
  
  lAnz = ActiveWorkbook.BuiltinDocumentProperties.Count
  lAnzProMldg = 10
  lAnzMldg = lAnz \ lAnzProMldg
  If lAnz Mod lAnzProMldg > 0 Then lAnz = lAnz + 1
  For x = 0 To lAnzMldg - 1
    sMldg = _
      BuiltInProperties & vbLf & vbLf & _
      Nr  Bezeichnung & vbLf
    For y = 1 To lAnzProMldg
      lNr = (x * lAnzProMldg) + y
      If (lNr > lAnz) Then
        MsgBox sMldg
        Exit For
      End If
      sMldg = sMldg & Format(lNr, 00) &    & _
              ActiveWorkbook.BuiltinDocumentProperties(lNr).Name & vbLf
      If (y = lAnzProMldg) Then
        MsgBox sMldg
        Exit For
      End If
    Next
  Next
  
End Sub
'********************************************************
Function Erstellt_MitUhrzeit() As String
  Erstellt_MitUhrzeit = _
  Erstellt am  & ActiveWorkbook.BuiltinDocumentProperties(11)
End Function
'********************************************************
Function Erstellt_OhneUhrzeit() As String
  Dim dDate As Date
  dDate = ActiveWorkbook.BuiltinDocumentProperties(11)
  Erstellt_OhneUhrzeit = _
  Erstellt am  & Format(dDate, dd.mm.yyyy)
End Function
'********************************************************
Function Geaendert_MitUhrzeit() As Variant
  Dim dDate As Date
  On Error Resume Next
  dDate = ActiveWorkbook.BuiltinDocumentProperties(12)
  If Err.Number <> 0 Then
    Err.Clear
    Geaendert_MitUhrzeit = nicht geändert
  Else
    Geaendert_MitUhrzeit = Zuletzt geändert am  & dDate
  End If
  On Error GoTo 0
End Function
'********************************************************
Function Geaendert_OhneUhrzeit() As Variant
  Dim dDate As Date
  On Error Resume Next
  dDate = ActiveWorkbook.BuiltinDocumentProperties(12)
  If Err.Number <> 0 Then
    Err.Clear
    Geaendert_OhneUhrzeit = nicht geändert
  Else
    Geaendert_OhneUhrzeit = _
    Zuletzt geändert am  & Format(dDate, dd.mm.yyyy)
  End If
  On Error GoTo 0
End Function
'********************************************************
Function Gedruckt_MitUhrzeit() As Variant
  Dim dDate As Date
  On Error Resume Next
  dDate = ActiveWorkbook.BuiltinDocumentProperties(10)
  If Err.Number <> 0 Then
    Err.Clear
    Gedruckt_MitUhrzeit = nicht gedruckt
  Else
    Gedruckt_MitUhrzeit = Zuletzt gedruckt am  & dDate
  End If
  On Error GoTo 0
End Function
'********************************************************
Function Gedruckt_OhneUhrzeit() As Variant
  Dim dDate As Date
  On Error Resume Next
  dDate = ActiveWorkbook.BuiltinDocumentProperties(10)
  If Err.Number <> 0 Then
    Err.Clear
    Gedruckt_OhneUhrzeit = nicht gedruckt
  Else
    Gedruckt_OhneUhrzeit = _
    Zuletzt gedruckt am  & Format(dDate, dd.mm.yyyy)
  End If
  On Error GoTo 0
End Function