Zwei Benutzer auf gleichen Datenbestand zugreifen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo ihr beiden.
Würde ich gerne machen.... Aber leider ist hier nur 300kb zulässig. Die Datei liegt ja knapp an 1MB. Schreibe ja auch schon seit n Jahr dran rum.
Wer also das Teil trotzdem brauch.... schreibt ne Mail an Juergen.Lazarus@gmx.info mit dem Hinweis ob er nur die Hauptdatei (zum lesen und Gedankenanstoß) oder ob er auch ne Demodatenbank braucht damit er das Programm mal starten kann. Das VBA kann man ntürlich immer lesen.
Was gibt es sonst noch zu dem Thema...
Achja... Auf meinen Rechner (Der auch die Datenfreigabe hat und somit als server fungiert) lade ich eine batch datei mit dem Befehl subst r: c:\fibu2006
Somit sind alle Dateien (rechnung-neu.xls und die Datenbanken) bei unter r:\ zu finden.
Auf dem zweiten Rechner hole ich mir das laufwerk über "Netzwerklaufwerk verbinden" wähle hier auch r: (damit zumindestens virtuell alle dateien am gleichen Ort liegen) und schon laeuft alles.
Wie gesagt. Ich helfe gerne weiter. Einfach ne Mail schreiben und nachfragen.
Gruß Jürgen

Du hast noch weitere Möglichkeiten. Ich bin allerdings auch nicht unbedingt der Erfahrenste, doch können die Profis hier das sicher noch weiterentwicklen. Ich schlage als Ansatz vor.
Vorschlag:
- 1 Arbeitsmappe mit Adressen und auf "B1" wird immer die Anzahl Zeilen in der Adress-
Datenbank hinterlegt
- weitere Arbeitsmappen mit eine Call Aufruf analog dem nachfolgenden Codebeispiel
Natürlich gibt es da noch ADO und verfeinerte Varianten. Vielleicht kommt der eine oder andere Hinweis, dann kann auch ich gerne dazulernen. Immerhin ein Vorschlag.
Viel Glück
Stefan


Sub LadenAdressen()
Dim intI As Integer
Dim strSheet As String
Dim strRange As String
On Error GoTo ErrorHandler
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
strSystemPath = ThisWorkbook.Path & "\xxxx)
strSheet = "Adressen"
strRange = "B1"   'hier wird die Anzahl Zeilen auf der AdressMappe.xls hinterlegt
intI = CInt(ExecuteExcel4Macro(CStr("'" & strSystemPath & _
"[AdressMappe.xls]" & strSheet & "'!" & _
Range(strRange).Range("A1").Address(, , xlR1C1))))
If intI < 3 Then intI = 1002  'Sicherheit
ThisWorkbook.Worksheets(xxxxx).Range("A3:Z" & intI).FormulaR1C1 = "='" & _
strSystemPath & "[AdressMappe.xls]" & "Adressen'!RC"
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Exit Sub
ErrorHandler:
MsgBox "Unbekannter Fehler aufgetreten!" & vbCrLf & vbCrLf & _
"Laufzeitfehler Nr. " & Err.Number & vbCrLf & _
"Beschreibung: " & Err.Description & vbCrLf & vbCrLf & _
"Der Vorgang kann nicht ausgeführt werden.", vbCritical
End Sub

Beliebteste Forumthreads (12 Monate)

Zwei Benutzer auf gleichen Datenbestand zugreifen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread