da ich keine große Ahnung von Makros habe und gerade auf dem Schlauch stehe hoffe ich, dass einer von euch mir weiter helfen kann! ich will aus verschiedenen tabellenblättern immer die gleiche spalte (e2:e200) in ein bestehendes tabellenblatt kopieren. auf meiner suche nach was geeignetem habe ich folgendes gefunden:
Sub Daten_aktualisieren()
Dim sFile As String, sPath As String
Application.ScreenUpdating = False
sPath = "c:\testo\"
Set wksTarget = Worksheets(1)
Range("A1") = "Daten"
Range("A1").Font.Bold = False
If Right(sPath, 1) <> "/" Then
sPath = sPath & "\"
End If
sFile = Dir(sPath & "*.txt")
Do While sFile <> ""
Workbooks.Open sPath & sFile
sFilealt = sFile
sFile = Dir()
irowT = wksTarget.Cells(Rows.Count, 2).End(xlUp).Row + 2
If irowT < 10 Then rowT = 10
Range("E2:E280").Select
Selection.Copy
wksTarget.Activate
Cells(irowT, 2).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
' Ebenso für die weiteren Felder, wobei entweder immer zwischen den Fenstern
' gewechselt wird oder aber die Werte in Variablen oder einem Array
' transportiert werden. So zum Beispiel weiter mit Springen
Windows(sFilealt).Activate
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
Loop
Application.ScreenUpdating = True
End Sub
dies funktioniert auch so weit nur mein problem ist, dass ich die ergebnisse nicht untereinander in einer spalte brauch, sondern dass es für jede kopierte spalte eines spalte weiterrutscht( also erste kopierte spalte beginn b3; zweite kopierte spalte c3....) . kann ich denn oberen code dazu umschreiben?
vielen dank schon mal für eure hilfe
moritz