Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
980to984
980to984
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Auslesen/kopiere aber nicht alle Zeilen!

Auslesen/kopiere aber nicht alle Zeilen!
28.05.2008 10:56:00
Fabio
Hallo zusammen,
dank der Suche habe ich das unten genannte VBA gefunden.
Ich will folgendes tun:
Öffene alle *.xls-Datein im Verzeichnis "C:\test\test1"
Kopiere die Inhalte in die Datei "Gesamt" (immer unten angehängt).
Problem: Excel soll nicht alle inhalte kopieren sondern ausschliesslich die Inhalte der Zeilen "9-25"
Kann mir das jemand bitte ändern?
Danke!
Fabio

Sub Dateien_oeffnen()
Dim TmpDatei As String, Pfad As String
Dim LRow1 As Integer, LRow2 As Integer
Dim wsMaster As Worksheet
Set wsMaster = ThisWorkbook.Sheets("Sheet1")
ChDrive "C"
ChDir "C:\test\test1\"
TmpDatei = Dir("C:\test\test1\*.xls")
Application.ScreenUpdating = False
Do While TmpDatei  ""
LRow1 = wsMaster.Cells(Rows.Count, 1).End(xlUp).Row
Workbooks.Open TmpDatei
LRow2 = Workbooks(TmpDatei).Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
Workbooks(TmpDatei).Sheets("Sheet1").Rows("1:" & LRow2).Copy wsMaster.Cells(LRow1 + 1, 1)
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
TmpDatei = Dir()
Loop
Application.ScreenUpdating = True
End Sub


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auslesen/kopiere aber nicht alle Zeilen!
28.05.2008 12:32:00
Rudi
Hallo,
wenn man sich ein bisschen Mühe gibt, den Code zu verstehen, sollte man das auch mit VBA bescheiden hinkriegen.
Workbooks(TmpDatei).Sheets("Sheet1").Rows("9:25").Copy wsMaster.Cells(LRow1 + 1, 1)
Gruß
Rudi
Anzeige

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige