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, 7408 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 ..
Ähnliche Inhalte
Microsoft Office
VBA Code zum Kopieren von einzelnen Zellen in Excel (3)

Frage von SebastianL zum Thema Microsoft Office ...

Batch & Shell
gelöst Erstes Element im Array ist leer (7)

Frage von Dani zum Thema Batch & Shell ...

Microsoft Office
gelöst Excel VBA UserForm1 - Daten in neue Datei kopieren (10)

Frage von abuelito zum Thema Microsoft Office ...

Microsoft Office
Kopieren von auszuwählenden Daten in weitere Tabelle (1)

Frage von dus100 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Linux Netzwerk

Ping und das einstellbare Bytepattern

(1)

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(3)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
Microsoft Office
Office Druck fehler (18)

Frage von DaistwasimBusch zum Thema Microsoft Office ...

Netzwerkmanagement
Windows Server 2008 R2: "netsh reset" nicht verfügbar? (11)

Frage von RickTucker zum Thema Netzwerkmanagement ...

Festplatten, SSD, Raid
Uninitialisierte Festplatte - Daten retten (11)

Frage von peterla zum Thema Festplatten, SSD, Raid ...

Microsoft Office
Outlook 2016 in Ordneransicht starten - GPO (9)

Frage von D-Line zum Thema Microsoft Office ...