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

Mitglied: matester

matester (Level 1) - Jetzt verbinden

05.02.2010, aktualisiert 06.02.2010, 7519 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
VB for Applications
VB Skript Excel Datei
gelöst Frage von FragerVB for Applications3 Kommentare

Hallo Zusammen, Ich brauche eure Hilfe. Ich habe eine Datei 1.xlsx nun brauche ich ein Skript, was die Datei ...

Batch & Shell

Per Batch Datei die Zahl jede Zell in einer Spalte um 10 verkleinern

gelöst Frage von ha5257Batch & Shell12 Kommentare

Guten Morgen, ich importiere jeden Tag automatisch eine Lagerbestandsliste(csv Datei) von meinem Lieferant mit einem Batch Datei. Die Batch ...

Administrator.de Feedback

Bug Formatierung

Frage von freesoloAdministrator.de Feedback9 Kommentare

Schreibt mal folgendes um einen Link kursiv darzustellen Ergebnis: https:administrator.de Oder ebenfalls Ergebnis: Das ist ein Link // Wohl ...

Datenschutz

Korrekte Formatierung?!

gelöst Frage von JohnMcClaneDatenschutz10 Kommentare

Hallo Leuts, eine Frage welche viele Menschen anders beurteilen, deshalb möchhte ich mal wissen wie Ihr darüber denkt. Normale ...

Neue Wissensbeiträge
Windows 10

Windows 10 - Programme laufen schneller, wenn Sie mit Administratorrechten ausgeführt werden

Erfahrungsbericht von 1Werner1 vor 14 StundenWindows 106 Kommentare

Moin, das wollte ich erst nicht glauben, aber es ist so. Wenn Ihr ein Programm mit Administratorrechten unter Windows ...

Sicherheits-Tools
Putty hat heftige Bugs korrigiert!
Information von Lochkartenstanzer vor 1 TagSicherheits-Tools5 Kommentare

Moin, Wie man aus herauslesen kann, sind in den Versionen vor 0.71 gravierende Bugs, die es angeraten erscheinen lassen, ...

Off Topic
Sachen die die Welt nicht braucht - Platz 1
Tipp von brammer vor 4 TagenOff Topic21 Kommentare

Hallo, ich habs als Tipp angelegt als Erfahrungsbericht nein Danke brammer

Humor (lol)
Spirit of Health-Kongress in Berlin
Information von AnkhMorpork vor 4 TagenHumor (lol)6 Kommentare

tgif! Beim dritten Spirit of Health-Kongress trafen sich am Wochenende Alternativmediziner und Naturheilkundler im Maritim Hotel Berlin, um sich ...

Heiß diskutierte Inhalte
Hardware
Telefonanlagen - Welche gibt es
Frage von Xaero1982Hardware21 Kommentare

Nabend Zusammen, ich suche eine neue TK Anlage und mein Auftraggeber will jetzt was völlig neues - State of ...

Windows Server
Eingeschränkte Gruppen - Spezielle Benutzergruppe hinzufügen
Frage von killtecWindows Server17 Kommentare

Hallo, ich möchte gerne folgendes Realisieren: Ich habe bei mir Eingeschränkte Gruppen via GPO aktiv und möchte nun der ...

LAN, WAN, Wireless
Intel(R) PRO Wireless 3945ABG
gelöst Frage von Leon509LAN, WAN, Wireless15 Kommentare

Hallo, habe ein Laptop Fujitsu (Intel, 4GB, 2GHz, Windos10, Intel(R) PRO/Wireless 3945ABG ) ein O2 DSL Anschluss Home50. Leider ...

Microsoft Office
Videodateien auf Windows Server 2008 R2 öffnen schlägt fehl
Frage von SchroediMicrosoft Office14 Kommentare

Hallo zusammen, wir haben das Problem das embedded Videos in PowerPoint (O365) auf unserer Citrix Farm (6.5) nicht abgespielt ...