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
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, 7431 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
Bedingte formatierung auf zellen erweitern
gelöst Frage von Florian86Microsoft Office3 Kommentare

Hallo, ich habe in meiner Excel in einer bedingten Formatierung folgende Formel =WENN(L2="";B2<HEUTE()-5;) Die Formel macht auch was SIe ...

Microsoft Office
Daten in Excel zeilenweise zusammenfassen, wenn erste Zelle gleich
Frage von hopperMicrosoft Office1 Kommentar

Ich beziehe aus mehren Datenquellen Daten, welche ich dann in Excel (Excel2007) auswerten möchte. Jeweils zusammengehörende Datensätze sind an ...

Batch & Shell
Erstes Element im Array ist leer
gelöst Frage von DaniBatch & Shell7 Kommentare

Guten Abend zusammen, ich verzweifle an einer Regular Expression in einem Powershell Skript. Es handelt sich um Windows 10 ...

Batch & Shell
Powershell: Das erste Wort einer txt-Datei in zwei weiteren txt-Dateien an erster Stelle kopieren
gelöst Frage von Frank2017Batch & Shell6 Kommentare

Hallo! Versuche mit Powershell das erste Wort aus einer txt-Datei im 1. Ordner in zwei weiteren txt-Dateien im 2.Ordner ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 5 StundenWindows 101 Kommentar

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 7 StundenSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 21 StundenInternet3 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 1 TagDSL, VDSL2 Kommentare

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
Netzwerkmanagement
Mehrere Netzwerkadapter in einem PC zu einem Switch zusammenfügen
Frage von prodriveNetzwerkmanagement21 Kommentare

Hallo zusammen Vorweg, ich konnte schon einige IT-Probleme mit Hilfe dieses Forums lösen. Wirklich klasse hier! Doch für das ...

TK-Netze & Geräte
VPN-fähige IP-Telefone
Frage von the-buccaneerTK-Netze & Geräte16 Kommentare

Hi! Weiss noch jemand ein VPN-fähiges IP-Telefon mit dem man z.B. einen Heimarbeitsplatz gesichert anbinden könnte? Habe nur einen ...

Windows Server
Anmeldung direkt am DC nicht möglich
Frage von ThomasGrWindows Server16 Kommentare

Hallo, ich habe bei unserem Server 2016 Standard ein Problem. Keine Ahnung wie das auf einmal passiert ist. Ich ...

Hardware
Links klick bei Maus funktioniert nicht
gelöst Frage von Pablu23Hardware16 Kommentare

Hallo erstmal. Ich habe ein Problem mit meiner relativ alten maus jedoch denke ich nicht das es an der ...