Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA-Kopieren "eingrenzen"

VBA-Kopieren "eingrenzen"
29.11.2007 17:50:00
Fabio
Hallo zusammen,
ich will aus diversen Excel-Datein die Inhalte aus dem Sheet1 in ein "gesamttabellen-Blatt" kopieren (siehe VBA unten - aus dem Forum).
Kann mir das noch jemand eingrenzen ? Ich will nur, das Excel die Zeilen 2-75 kopiert.
Lieben Dank!
Fabio

Sub Dateiliste_Öffnen()
'   erstellt von Hajo.Ziplies@web.de
' http://home.media-n.de/ziplies/
'   alle Dateien eines Ordners öffnen
Dim strVerzeichnis As String
Dim StrDatei As String
Dim StrTyp As String
Dim Dateiname As String
strVerzeichnis = "C:\Testdateien_Excel\Test_Acht\"
StrTyp = "*.xls"
Dateiname = Dir(strVerzeichnis & StrTyp)
Do While Dateiname  ""
Workbooks.Open Filename:=strVerzeichnis & Dateiname
If ActiveWorkbook.ActiveSheet.Range("A65536").End(xlUp).Row > 1 Then
Rows("2:" & ActiveWorkbook.ActiveSheet.Range("A65536").End(xlUp).Row).Cut _
Destination:=Workbooks(Arbeitsmappe).ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0)
End If
ActiveWorkbook.Close True
Dateiname = Dir
Loop
End Sub


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Kopieren "eingrenzen"
29.11.2007 18:28:19
Hajo_Zi
Hallo Fabio,
ich halte mich an das was im Beitrag steht.
Rows("2:75").Copy _
Destination:=Workbooks(Arbeitsmappe).ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0)

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige