Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1328to1332
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Server Wert in Zelle weiterzählen mehrere Benutzer

Server Wert in Zelle weiterzählen mehrere Benutzer
23.09.2013 09:13:16
Lothar
Hallo an alle,
ich habe, im Auftrag meines Chefs, eine Excel Mappe als Bestellformular angelegt.
Diese liegt auf einem Server und soll von mehreren Mitarbeitern gleichzeitig genutzt werden.
Wenn ein Mitarbeiter die Mappe öffnet muss er den Standort eingeben und Excel prüft ob er berechtigt ist. Wenn ja, dann wird er auf das entsprechende Formular weitergeleitet.
In Zelle Q1 steht die Bestellnummer, z.B. "1". Wenn sich der erste anmeldet wird daraus automatisch "2".
Das klappt auch, aber wenn sich jetzt ein zweiter anmeldet soll sich auf dessen Blatt, welches eigentlich das gleiche ist, die Zahl auf "3" erhöhen.
Beim dritten auf "4" usw.
Jeder speichert dann sein Blatt als pdf in seinem Ordner.
Für mich ist diese Weiterzählerei nicht lösbar, aber vielleicht kennt ja jemand eine Lösung.
Vielen Dank und
Gruß Lothar

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Server Wert in Zelle weiterzählen mehrere Benutzer
23.09.2013 10:48:03
Rudi
Hallo,
ich würde die letzte Nummer in ein Textfile schreiben.
Schema:
Sub yyyy()
Dim lngLastNumber As Long
'Code Berechtigungsprüfung
'Wenn OK
If Dir(ThisWorkbook.Path & "\ReNr.txt")  "" Then
Open ThisWorkbook.Path & "\ReNr.txt" For Input As #1
Input #1, lngLastNumber
Close #1
Else
lngLastNumber = 1
End If
lngLastNumber = lngLastNumber + 1
Open ThisWorkbook.Path & "\ReNr.txt" For Output As #1
Print #1, lngLastNumber
Close #1
Range("Q1") = lngLastNumber
End Sub

Gruß
Rudi

AW: Server Wert in Zelle weiterzählen mehrere Benutzer
23.09.2013 11:29:26
Lothar
Hallo Rudi,
vielen Dank für Deine Antwort.
Funktioniert leider nicht so wie gedacht.
Wenn ich auf die entsprechende Seite gehe wird aus "1" eine "2", OK.
Macht aber ein zweiter User die Mappe zur gleichen Zeit auf und geht auf die selbe Seite, wird auch bei ihm aus "1" die "2", sollte dann aber aus der "2" eine "3" werden.
Gruß Lothar

Anzeige
AW: Server Wert in Zelle weiterzählen mehrere Benutzer
23.09.2013 11:47:28
Rudi
Hallo,
dann hast du die Fortschreibung der Nummmer an der falschen Stalle.
Gruß
Rudi

AW: Server Wert in Zelle weiterzählen mehrere Benutzer
23.09.2013 11:55:45
Lothar
Hallo Rudi,
hast Recht, hab's bei "Worksheet_activate" reingeschrieben und siehe da es funktioniert prima.
Vielen Dank Lothar

AW: Server Wert in Zelle weiterzählen mehrere Benutzer
23.09.2013 13:31:50
Lothar
Hallo Rudi,
weiß leider nicht ob diese Frage dich noch erreicht, da mein Problem ja gelöst ist.
Hätte da aber noch eine Sache.
Ist es möglich zum Jahreswechsel die Zahl, die übrigens in R1 steht, nicht wie ich anfänglich fälschlicher Weise schrieb in Q1, wieder auf "1" zu setzen?
Hab in Q1 die Formel "=JAHR(HEUTE())".
Wenn in dieser Zelle aus "2013", "2014" oder "2015" usw. wird sollte also in Q1 wieder die "1" stehen,
sprich auch in der Textdatei.
Vielen Dank und
Gruß Lothar

Anzeige
AW: Server Wert in Zelle weiterzählen mehrere Benutzer
23.09.2013 13:49:19
Rudi
Hallo,
dann merken wir uns das Jahr auch im Textfile.
Sub yyyy()
Dim lngLastNumber As Long, strTmp As String
'Code Berechtigungsprüfung
'Wenn OK
If Dir(ThisWorkbook.Path & "\ReNr.txt")  "" Then
Open ThisWorkbook.Path & "\ReNr.txt" For Input As #1
Input #1, strTmp
Close #1
If CInt(Split(strTmp, "#")(1))  Year(Date) Then
lngLastNumber = 1
Else
lngLastNumber = Split(strTmp, "#")(0) + 1
End If
Else
lngLastNumber = 1
End If
strTmp = lngLastNumber & "#" & Year(Date)
Open ThisWorkbook.Path & "\ReNr.txt" For Output As #1
Print #1, strTmp
Close #1
Range("R1") = lngLastNumber
End Sub

Gruß
Rudi

Anzeige
AW: Server Wert in Zelle weiterzählen mehrere Benutzer
23.09.2013 14:20:37
Lothar
Hallo Rudi,
hab's mal ohne Datumsformel getestet, die Jahreszahl manuell eigegeben.
R1 wird "1", aber bei jedem "Worksheet_activate" nimmt es die letzte Zahl des Vorjahres.
Diese und auch die Jahreszahl ändert auch sich in der Textdatei nicht.
Vielen Dank und
Gruß Lothar

AW: Server Wert in Zelle weiterzählen mehrere Benutzer
23.09.2013 15:15:19
Lothar
Hallo Rudi,
hab's mal probiert mit Systemuhr vorstellen,
da funktioniert es einwandfrei.
Sorry und nochmals vielen Dank
Gruß Lothar

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige