AW: Lagerverwaltung
16.03.2009 23:44:25
TCO99
Hallo Roberto,
vielleicht hilft dir das weiter:
https://www.herber.de/bbs/user/60373.xls
Die Datei ist von P@ulchen (vielen Dank dafür!). Ich habe sie später für meine Zwecke erweitert und daraus eine Art Datenbankanwendung gemacht. Wenn man will, kann man sie auch weiter aufboren und als Client nutzen. Dazu legst du eine Datei mit den eigentlichen Daten an einem zentralen Ort ab und rufst entweder manuell oder mit einem Zeitmakro die Daten in den Client und schickt sie bei Veränderungen wieder an die zentrale Datei zurück.
Ich habe das mit diesem Code realisiert:
Sub DatenstandEinlesen()
Dim wbAkt As Workbook, wbDaten As Workbook
Application.ScreenUpdating = False
Set wbAkt = ActiveWorkbook
Set wbDaten = Workbooks.Open(Filename:="X:\DB.xls", Password:="12345")
If Not Err Then
Application.DisplayAlerts = False
wbAkt.Sheets("Datenbank").Delete
Application.DisplayAlerts = True
wbDaten.Sheets("Datenbank").Copy after:=wbAkt.Sheets(wbAkt.Sheets.Count)
wbDaten.Close
Else
MsgBox "Fehler beim Öffnen der Datei 'DB.xls' !"
End If
Set wbDaten = Nothing
Set wbAkt = Nothing
End Sub
Sub DatenstandSenden()
Sheets("Datenbank").Copy
With ActiveWorkbook
Application.DisplayAlerts = False
.SaveAs Filename:="X:\DB.xls", Password:="12345"
.Close
Application.DisplayAlerts = True
End With
End Sub
Der Pfad ist natürlich den eigenen Bedürfnissen anzupassen.
Gruß
Erdogan