Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

SImultan in 2 Dateien schreiben

Frage Microsoft Microsoft Office

Mitglied: Daether

Daether (Level 1) - Jetzt verbinden

06.07.2009, aktualisiert 16:28 Uhr, 2719 Aufrufe, 5 Kommentare

Moin Moin,
ich stehe zur Zeit vor einem großen Problem.
Wir arbeiten z.Zt. mit Exceldateien in der Buchhaltung.
Ziel ist es, wenn z.B. ein Name in Datei DATEI_A.xls geschrieben wird ( oder gespeichert ), dass dieser auch in DATEI_B.xls geschrieben wird, sodass dies nicht jedesmal per Hand gemacht werden muss.

Gibt es für soetwas eine Lösung ?

MfG Daether
Mitglied: WiSch
06.07.2009 um 16:57 Uhr
Soll das zur Datensicherung dienen?
Dann ggf. über ein Tool das eine Datei/Verzeichnis überwacht und bei Änderungen eine Aktion ausslöst... hier z.B. das Wegsichern der Datei?
Bitte warten ..
Mitglied: Dieter-56
06.07.2009 um 17:54 Uhr
hallo,

ich versteh das so, dass ihr einfach daten übernehmen wollt, damit ihr sie nicht in verschiedene dateien extra eingeben müßt.
ich hab sowas ähnliches auch schon gemacht, indem ich die versch. felder mittels einfacher formeln verknüpft habe.

bsp: feld C3 aus datei A : =feld b5 aus datei B

probier's mal so.

dieter
Bitte warten ..
Mitglied: 76109
06.07.2009 um 21:00 Uhr
Hallo Daether!

So ganz verstanden habe ich Deinen Beitrag noch nicht. Ist das eine Kopie und sollen alle Änderungen übernommen werden? Wenn ja, dann währe wohl speichern und speichern unter der einfachste Weg. Oder sollen nur bestimmte Einträge simultan geschrieben werden??????????

Bitte etwas genauere Angaben!

Hier mal ein Beispiel, dass in etwa aufzeigt, wie so etwas machbar ist.

Das Beispiel verwendet die Arbeitsmappen TestA.Xls und TestB.Xls und jeweils das Tabellenblatt "Tabelle1". Desweiteren wird TestA als die zu bearbeitende Datei angenommen.

Wenn nun in TestA in der Spalte A etwas geändert wurde, dann wird erst beim Speichern von TestA, die Spalte A nach TestB kopiert, gespeichert und wieder geschlossen.

Dieser Code müsste z.B. in TestA im VB-Editor in "DieseArbeitsmappe" eingefügt werden:
01.
Option Explicit 
02.
 
03.
Const PathB = "F:\Test\TestB.xls" 
04.
 
05.
Dim ChangeA As Boolean 
06.
 
07.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range) 
08.
    If Sh Is Sheets("Tabelle1") And Source.Address Like "*$A$*" Then ChangeA = True 
09.
End Sub 
10.
 
11.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
12.
    Dim WkbB As Workbook, WksA As Worksheet, WksB As Worksheet 
13.
     
14.
    If ChangeA Then 
15.
        On Error GoTo Fehler 
16.
     
17.
        Application.ScreenUpdating = False 
18.
                 
19.
        Set WksA = ActiveWorkbook.Sheets("Tabelle1") 
20.
        Set WkbB = Workbooks.Open(PathB):  Set WksB = WkbB.Sheets("Tabelle1") 
21.
         
22.
        WksA.Range("A:A").Copy Destination:=WksB.Range("A:A") 
23.
         
24.
        WkbB.Save:  WkbB.Saved = True:  WkbB.Close:  ChangeA = False 
25.
     
26.
        Application.ScreenUpdating = True 
27.
    End If 
28.
Exit Sub 
29.
 
30.
Fehler: 
31.
    Application.ScreenUpdating = True 
32.
    MsgBox "Datei " & PathB & " nicht gefunden!", vbExclamation, "Fehler" 
33.
End Sub
Gruß Dieter

[edit] habe noch in Zeile 31 ein ScreenUpdating vergessen [/edit]
Bitte warten ..
Mitglied: Daether
07.07.2009 um 08:48 Uhr
Moin Moin,
genau soetwas habe ich gesucht !

Danke dir !
Bitte warten ..
Mitglied: 76109
07.07.2009 um 13:13 Uhr
Hallo Daether!

Toll, wenn das schon alles war

Siehe Dir nochmal den obigen Code an, da hatte ich in Zeile 31 etwas wichtiges vergessen!

Bitte den Beitrag noch als gelöst markieren.

Gruß Dieter
Bitte warten ..
Ähnliche Inhalte
Windows Server
Simultaner Zugriff auf eine Datei im Netzwerk extrem langsam
gelöst Frage von seril789Windows Server10 Kommentare

Hallo zusammen, ich habe in einem kleinen Unternehmen (1 Server, 9 Clients) von SBS2003 und XP auf Server 2012 ...

Batch & Shell
2 große TXT Dateien vergleichen und Unterschiede in andere Datei schreiben
gelöst Frage von sid.pdmBatch & Shell6 Kommentare

Hallo Zusammen, ich habe in einem älteren Eintrag schon einen guten Ansatz zur Lösung meines Problems gefunden, allerdings funktioniert ...

Perl
Wert in Datei schreiben
gelöst Frage von infowarsPerl

Moin, ich versuche gerade eine Möglichkeit zu finden mit der User über den Browser sich bzw. ihre IP freischalten ...

Batch & Shell
Schreiben eines Strings mit Leerzeichen in eine Datei
gelöst Frage von c20082005Batch & Shell6 Kommentare

Hallo, nach langem Rum- und Ausprobieren möchte ich Euch um Hilfe bitten für folgendes Problem: Ich möchte mit einer ...

Neue Wissensbeiträge
Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 15 StundenApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 20 StundenWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 20 StundenWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 1 TagInternet4 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registrierung von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Heiß diskutierte Inhalte
Windows Server
RODC kann nicht aus Domäne entfernt werden
Frage von NilsvLehnWindows Server18 Kommentare

HAllo, ich arbeite in einem Universitätsnetzwerk mit 3 Standorten. Die Standorte haben alle ein ESXi Cluster und auf diesen ...

Windows XP
Windows XP Aktivieren geht nicht
Frage von tetikmiroWindows XP13 Kommentare

Hallo Ich habe einen Windows XP mit einen vCenter Converter umgezogen auf eine ESXI. Soweit funktioniert dies auch ohne ...

Blogs
Immer wiederkehrende PHP Fehlermeldung bei Wordpress UTF-8 - ASCII
gelöst Frage von vcdweltBlogs11 Kommentare

Hi, seit einiger Zeit wird mein error_log meines Wordpress Blogs mit immer der gleichen Fehlermeldung überschwemmt. 14-Dec-2017 08:18:05 UTC ...

Switche und Hubs
Redundante L2 LWL Leitung über 2 Standorte - Spanning Tree - HP Equipment
gelöst Frage von ResolvSwitche und Hubs10 Kommentare

Hallo, ich stehe vor der Herausforderung eine Redundante L2 LWL Leitung über 2 Standorte herzustellen. Grundsätzliches Switching Know How ...