Office: Werte aus mehreren Dateien kopieren

Man kann mit Rows() mehrere Reihen ansprechen. 3:3 heißt vereinfacht einfach nur Reihe 3 bis Reihe 3. Also die Reihe 3 in der der Filter angewandt werden soll.

Rechtsklick auf Button ( im Entwicklermodus) -> Formatieren -> Eigenschaften -> Von Zellposition/ -größe unabhängig.

Dann bleibt der Button da wo er ist.


Gruß
Daniel

 

Aber es ist doch nicht die dritte Reihe? das irritiert mich..

 

du meintest:

und hast ein Bild gesendet in dem in der Quelldatei in Zeile 3 die Überschriften standen?

Der Block geht in die Quelldatei filtert nach value, blendet 1-3 (inklusive Überschrift aus) und kopiert die Daten.

Gruß
Daniel

 

ja es funktioniert auch alles so wie es soll, wunderbar *Smilie.. aber der Code ist für mich nicht zu 100% nachvollziehbar.. aber egal :P.. vielen Dank auf jeden Fall noch einmal *Smilie!

Gruß
Sebastian

 

Haha ok sofern es um die Codezeile geht weiß ich nicht wie ich das noch genauer erklären soll *biggrin.gif*

Aber wenn alles funktioniert, dann bitte noch auf erledigt setzen und eventuell noch bewerten *wink.gif*
Für weitere Fragen, Erweiterungen bin ich und die andern trotzdem noch bereit *biggrin.gif*

Grüße und viel Spaß mit dem Makro
Daniel

 

Hallo Forum,

auch wenn dieser Thread schon etwas älter ist, konnte er mir ein ganzes Stück weiterhelfen.

Allerdings habe ich noch zwei Fragen:
Wie kann ich die Daten auch aus von anderen Personen geöffneten Dateien herauskopieren (schreibgeschützt) und
ich möchte nicht nur das erste Datenblatt ansprechen, sondern nach Auswahl mit Namen benannte Datenblätter.

Mein angepasster Code sieht so aus:


Sub betzebu()
Dim wbMaster As Workbook
Dim wbCopy As Workbook
Dim wbLoeschen As Workbook

Dim fs As Object
Dim fVerz As Object
Dim fDatei As Object
Dim fdateien As Object
Dim strDat As String

Application.ScreenUpdating = False

Set wbMaster = ActiveWorkbook

Set fs = CreateObject("scripting.FileSystemObject")
Set fVerz = fs.getFolder("G:SystemtechnikBenutzersupportHardware") ' Hier Verzeichnis anpassen oder über input Box
Set fdateien = fVerz.Files

For Each fDatei In fdateien
If Right(fDatei, 5) = ".xlsm" Then ' Hier die Dateiendung der Dateien angeben
Set wbCopy = Workbooks.Open(fDatei)
Application.Run "copy", wbMaster, wbCopy

End If
Next fDatei

Application.ScreenUpdating = True

End Sub

Sub copy(wbMaster As Workbook, wbCopy As Workbook)
Dim wsMaster As Worksheet
Dim wsCopy As Worksheet
Dim zeile As Long


On Error GoTo lfz9
ActiveSheet.Range("a1:h1").Columns.EntireColumn.AutoFit

Set wsMaster = wbMaster.Sheets(1)
Set wsCopy = wbCopy.Sheets("Persona") ' Tabellenblatt Cash-Upload wird geöffnet falls vorhanden, wenn nicht, dann überspringe

With wsCopy
zeile = .Cells(Rows.Count, 1).End(xlUp).Row 'Zählt Anzahl der Zeilen
Range(.Cells(4, 2), .Cells(zeile, 14)).copy ' Kopiert nur bis Spalte 15 (O)
End With
With wsMaster
zeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1 ' erste freie Zeile
If zeile < 4 Then zeile = 4 ' Fängt erst ab Zeile 4 an einzutragen
.Cells(zeile, 1).PasteSpecial Paste:=xlPasteValues ' Fügt ab Spalte 3 die Werte ein
Application.CutCopyMode = False
End With


wbCopy.Close Savechanges:=False
Exit Sub

lfz9:
Select Case Err.Number
Case 9
MsgBox "Kein Tabellenblatt ""Persona"" in " & wbCopy.Name & _
" vorhanden! Daten wurden nicht vollständig kopiert!", vbCritical

Case Else
MsgBox " Ein unerwarteter Fehler ist aufgetreten, Fehler: " & _
Err.Number & vbNewLine & Err.Description, vbCritical, _
"Fehler in Funktion xxx"
End Select

wbCopy.Close Savechanges:=False
End Sub

 

Nachtrag:

Das mit dem Tabellenblatt hat sich erledigt.