Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Liste aktuallisieren





Frage

Hallo Allerseits :-) ich habe eine Kundenliste in Excel. Eine Kopie auf einem USB-Stick. Wie schaffe ich es, wenn auf dem PC die Liste erweitert wurde und ich den Stick einstecke, dass automatisch die Datei auch auf dem Stick aktuallisiert wird? Gruss Geniesser

Antwort 1 von Trudi

Hallo Geniesser,

das könntest du schaffen wenn du die Datei auf dem USB stick als Verknüpfung anlegst.

dann müsste in jeder Zelle eine Formel wie diese stehen:
=WENN(ISTLEER([Mappe2]Tabelle1!A1);"";[Mappe2]Tabelle1!A1)

Aber Achtung:
Dann nur noch Änderungen in der original Datei vornehmen

Ach ja: und von der Dateigröße wird das ganze wahrscheinlich auch zum Monster werden.

Aber die Datei würde beim öffnen automatisch fragen ob die Verknüpfungen aktualisiert werden sollen.

Ist zwar nicht ganz das was du wolltest, aber vielleicht hilft es ja ein bissel.

Gruß

Trudi

Antwort 2 von nighty

hi all :)

die einfachste variante :))

nutze das change ereignis um einer globalen var true zuzuweisen,diese koennte man im close ereignis abfragen und bei true die tabelle seperat speichern lassen.

gruss nighty

Antwort 3 von Trudi

nighty?!

sei mir nicht böse! aber zumindest für mich sprichst du in Rätseln.

Gruß

trudi

Antwort 4 von nighty

hi all :)

ein beispiel :)

gruss nighty

Rem einzufuegen alt f11/projektexplorer/DieseAtbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Festhalten = True Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\DeinPfad\DeineDatei.xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.DisplayAlerts = True
End If
End Sub

Rem einzufuegen alt f11/projektexplorer/DieseAtbeitsmappe

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Festhalten = True
End Sub

Rem einzufuegen alt f11/einfuegen/Modul
Public Festhalten As Variant