Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon nero022 vom 01.07.2020, 20:44 Options

daten aus anderen xls. datein in eine hauptdatei

hallo brauch mall wieder eure hilfe ...
ich habe mehrrere xls. datein die vortlaufend abgespeichert sind.
08-0100-01
08-0101-01
08-0102-01

und so weite.
und dan habe ich noch eine haupt datei in der verschidene werte
aus den anderen tabellen eingetragen werden müßen.
in meiner hauptdatei gebe ich in zeile B5 bis B1504 die numern z.b
08-0100-01 ein und anhand diser numer soll excel mir die werte für die zellen C5 bis O1504 die werte eintragen.
wie kann ich das machen ... ???
kann mir vieleicht jemand helfen.
hoffe ihr versteht auch was ich meine.

gruß nero

Antwort schreiben

Antwort 1 von nighty vom 02.07.2020, 12:42 Options

hi all

ein beispiel

gruss nighty

Sub FilesListen()
Call EventsOff
Dim Dateien As Long
For Dateien = 5 To 1504
With Application.FileSearch
.NewSearch
.LookIn = "C:\temp\"
.Filename = ThisWorkbook.Sheets(1).Cells(Dateien, 2)
If .Execute() = 1 Then
Workbooks.Open Filename:=.Filename & ".xls"
Workbooks(.Filename & ".xls").Sheets(1).Range("C" & Dateien & ":O" & Dateien).Copy ThisWorkbook.Sheets(1).Range("C" & Dateien)
Workbooks(.Filename & ".xls").Close SaveChanges:=True
End If
End With
Next Dateien
Call EventsOn
End Sub
Public Sub EventsOff()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
End Sub
Public Sub EventsOn()
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub

Antwort 2 von nero022 vom 02.07.2020, 22:12 Options

danke für den code,aber wie und wo muß ich ihn verändern um ihn für
mich anzupassen...?

A B C D E F G H I J K L M N O
5/ 08-0100-01
6/ 08-0101-01
7/
8/
9/

in A5 steht der nahme der xls.datei und in B5 bis O5 müßen die werte
aus der xls datei eingetragen werden, die werte stehen aber an verschidenen stelen und auch noch in mehreren tabellen.

gruß nero.

Antwort 3 von lorf vom 04.07.2020, 08:04 Options

hallo nero,

Zitat:
in meiner hauptdatei gebe ich in zeile B5 bis B1504 die numern z.b
08-0100-01 ein und anhand diser numer soll excel mir die werte für die zellen C5 bis O1504 die werte eintragen.

Zitat:
in A5 steht der nahme der xls.datei und in B5 bis O5 müßen die werte
aus der xls datei eingetragen werden, die werte stehen aber an verschidenen stelen und auch noch in mehreren tabellen.

1. du musst schon wissen, wie du es haben willst, sonst wird es nichts.
2. mit verschiedenen Stellen und mehreren Tabellen kann keiner was anfangen

Gruß
lorf

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken