Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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
Kommentar vom Moderator Biber am 05.02.2010 um 18:59:53 Uhr
Zitat von matester:
Hallo User,

ist benötige schnelle Hilfe!!!
Hallo matester,
Und deine Beitrag benötigt haben redaktionellen Überarbeiten!!!
GELÖST

VB Daten aus zwei Dateien kopieren, an erste leere Zelle mit Formatierung kopieren

Frage Microsoft Microsoft Office

Mitglied: matester

matester (Level 1) - Jetzt verbinden

05.02.2010, aktualisiert 06.02.2010, 7365 Aufrufe, 10 Kommentare

Hallo User,

ist benötige schnelle Hilfe!!!

Wie kann ich aus zwei Excel Dateien mit je einer Tabelle. Die Daten per VB aus der Datei 2 Tabelle 1 (Spalten A, B, D)
in die 1. Datei Tabelle 1 mit Formatierung in die 1. leere Zelle Spalte A kopieren.

Vielen Dank im Voraus . . .


Leider fuktioniert das Makro von Dieter nicht bei mir, hier eine Aktualisierung mit Bilder


Datei "Quelle" mit Daten in Spalten A bis E , die Inhalte der Spalten A bis E (Bild Quelle) sollen in die Datei "Ziel" (Bild Ziel)
in die erste freie Zeile kopiert werden. Ergebnis nach dem kopieren (Bild Ergebnis Ziel).

Quelle
922fe88b841920a920a41ce236142af0 - Klicke auf das Bild, um es zu vergrößern

Ziel
a5e77938a37dcdaea7789711614d9790 - Klicke auf das Bild, um es zu vergrößern

Ergebnis Ziel
aec2f1b1cc7d934a163d907d09a5b645 - Klicke auf das Bild, um es zu vergrößern
Mitglied: 76109
05.02.2010 um 20:00 Uhr
Hallo matester!

Anderen Code aufgrund von Missverständnissen entfernt.

Hoffe, ich hab's diesmal richtig verstanden

Quellcode in Ziel-Datei (Einfügen) kopieren:
01.
Option Explicit 
02.
 
03.
Const InternSheet = "Tabelle1"				'Tabellenname Ziel-Datei 
04.
Const ExternSheet = "Tabelle1"				'Tabellenname Quelle-Datei 
05.
Const ExternRange = "A1:E"				'Zelle A1 bis E? 
06.
Const ExternFile = "X:\Test\Quelle.xls"			'Pfad Quelle-Datei 
07.
 
08.
Sub GetExternData() 
09.
    Dim iWks As Worksheet, eWks As Worksheet, EndLine As Long, BegLine As Long 
10.
     
11.
    Set iWks = ThisWorkbook.Sheets(InternSheet) 
12.
    Set eWks = GetObject(ExternFile).Sheets(ExternSheet) 
13.
     
14.
    BegLine = iWks.Cells(iWks.Rows.Count, "A").End(xlUp).Row + 1 
15.
    EndLine = eWks.Cells(eWks.Rows.Count, "A").End(xlUp).Row 
16.
     
17.
    eWks.Range(ExternRange & EndLine).Copy Destination:=iWks.Cells(BegLine, "A") 
18.
     
19.
    Application.DisplayAlerts = False 
20.
    GetObject(ExternFile).Close True 
21.
    Application.DisplayAlerts = True 
22.
End Sub
Gruß Dieter
Bitte warten ..
Mitglied: matester
06.02.2010 um 15:47 Uhr
Hallo Dieter,

vielen Dank für die schnelle Unterstützung!!!
Bitte warten ..
Mitglied: matester
06.02.2010 um 17:12 Uhr
Hallo Dieter,

leider fuktioniert das Makro nicht bei mir. Habe das Problem auch schlecht beschrieben!!!

Ich habe das Thema nochmals mit Bildern aktualisiert.

Danke für Deine Unterstützung.
Bitte warten ..
Mitglied: 76109
06.02.2010 um 17:55 Uhr
Hallo matester!

Anhand Deiner vorherigen (etwas kurzen) Beschreibung, bin ich davon ausgegangen, dass Du die ganzen Spalten A,B,C bzw. A,B,D in die ersten Spalte A einfügen wolltest. Das habe ich dann wohl falsch verstanden. Anhand Deiner Bilder ist erst jetzt erkennbar, dass ja nur die Zellbereiche unten angefügt werden sollen. Im Moment habe leider keine Zeit und wird daher etwas dauern.

Gruß Dieter
Bitte warten ..
Mitglied: 76109
06.02.2010 um 20:32 Uhr
Hallo matester!

Siehe oben, Code geändert!

Gruß Dieter
Bitte warten ..
Mitglied: matester
07.02.2010 um 11:29 Uhr
Hallo Dieter,

danke für die Überarbeitung des Makros. Jetzt läuft es auch bei mir.
Nur das die Daten nach dem Kopieren nicht in der "Zieldatei -- Tabelle1" sondern
in der "Quelldatei -- Tabelle1" landen. Nachdem ich das Makro angepasst habe,
lief es nicht mehr.

Vieleicht kannst Du hier noch einmal Hand anlegen.

Vielen Dank im Voraus
Bitte warten ..
Mitglied: 76109
07.02.2010 um 12:03 Uhr
Hallo matester!

Sorry, aber das kapier ich jetzt nicht ?

Du hast das Makro in der Zieldatei eingefügt und in der Konstanten "ExternFile" den Pfad der Quelldatei angegeben, dann sollte es funktionieren?

Es sei den Du hast beide Dateien geöffnet und werkelst hin und her?

Im Code die Codezeile 11 geändert.

Gruß Dieter
Bitte warten ..
Mitglied: matester
07.02.2010 um 12:42 Uhr
Hallo Dieter,

Schade über mein Haupt!!
Ich habe den Code in der Quelldatei eingetragen!!! Und auch beide Dateieb offen!!!

Sorry . . .
Bitte warten ..
Mitglied: 76109
07.02.2010 um 12:52 Uhr
Hallo matester!

Zitat von matester:
Schade über mein Haupt!!
Du meinst wohl "Asche" oder "Pech und Schwefel", sowas in der Art
Ich habe den Code in der Quelldatei eingetragen!!! Und auch beide Dateieb offen!!!
Nach der Änderung in Codezeile 11, kannst Du jetzt soviele Datei öffnen wie Du möchstest, wobei die Quelldatei nach dem Kopiervorgang geschlossen wird.

Gruß Dieter
Bitte warten ..
Mitglied: matester
07.02.2010 um 14:51 Uhr
Hallo Dieter,

das Zitat sollte eigentlich mit "Schande . . ." beginnen!!!
Schande über mein Haupt ist nur eine Abwandlung für " Asche über mein Haupt".

... Asche ist also meist verbunden mit Schmutz. Genau hier liegt auch der Ansatzpunkt für den Gebrauch der Asche am Aschermittwoch. Noch heute sagen Leute "Asche über mein Haupt", wenn sie damit die eigene Schuld eingestehen wollen. Aus dem Alten Testament sind mehrere Passagen bekannt, in denen sich Regierende Asche auf ihr Haupt streuten oder sich sogar in Asche setzten, um ihre Schuld zu bekunden.


Danke für die Aktualisierung des Codes.

Bis dann . . .
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(1)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Batch & Shell
Dateien kopieren die nicht mehr verändert werden? (10)

Frage von pbelcl zum Thema Batch & Shell ...

Windows Server
gelöst Administrator kann auf Server keine EXE-Dateien kopieren, löschen, anlegen (5)

Frage von Winfried-HH zum Thema Windows Server ...

Batch & Shell
Nur aktuelle Dateien kopieren (3)

Frage von icke.hausen zum Thema Batch & Shell ...

Batch & Shell
gelöst Script: Dateien kopieren, Benamung anhang von Attributen (4)

Frage von Flexxa zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...