ich habe (mit Eurer Hilfe) folgenden Code erstellt, der eine Statistik der eingegebenen Suchbegriffe auf Blatt "Policy Search" erstellt, das Basisfeld ist dabei D2 auf diesem Blatt, dass so innerhalb eines anderen Makros definiert ist (...Statistic (Range("D2").Value)...).
Der Code funktioniert super, wenn nur eine Person die Datei nutzt.
Mein Problem ist, dass ich diese Datei auf einem Shared Drive speichern muss, wovon aus sie von verschiedenen Usern (auch zur gleichen Zeit) genutzt werden soll.
Für die enthaltenen Funktionen ist das kein Problem, da die Tabelle nur Suchmöglichkeiten für eine Datenbank enthält (die User müssen dort keine Werte eingeben).
Gibt es hier eine Möglichkeit, die durch den Code erstellte Statistik nach Usern aufzuschlüsseln, um zu verhindern, dass sich ihre Statistik gegenseitig überschreibt - und die Ergebnisse nach Usern getrennt (in der gleichen Datei) abzuspeichern ?
Sub Statistic(Begriff As String)
' Counts entered search criteria and updates search statistics on Statistics tab
Dim Eintrag As Long
Dim FB As Range
Dim firstAddress As String
Eintrag = Worksheets("Statistics").Cells(Rows.Count, 1).End(xlUp).Row
With Worksheets("Statistics").Range("A1:A" & CStr(Eintrag))
Set FB = .Find(Begriff, LookIn:=xlValues)
If Not FB Is Nothing Then
FB.Offset(0, 1).Value = FB.Offset(0, 1).Value + 1
Else
Worksheets("Statistics").Cells(Eintrag + 1, 1).Value = Begriff
Worksheets("Statistics").Cells(Eintrag + 1, 2).Value = 1
End If
End With
End Sub
Bin Euch für jeden Tipp dankbar ! :-) LG und vielen Dank im Voraus,
Jenny