Also das Daten Rein holen habe ich so versucht funktioniert jedoch nicht so =(
Sub Daten_sammeln()
'Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim wbQuelle As Workbook
Dim ws As Integer
Dim rng As Range
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("C:\Users\TEST DATEN")
For Each oFile In oFolder.Files
If Right(oFile.name, 5) = ".xlsx" Then
Set wbQuelle = Workbooks.Open(oFile)
'####################Ab hier
For Row = 2 To 10
'get row with "Bewertung"
cur_bewertung = wbQuelle.Sheets(1).Cells(Row, 3).value
'get row with "Bewertungsname"
cur_Bewertungs_Name = wbQuelle.Sheets(1).Cells(Row, 1).value
'get Bewertungsname in overview sheet
For Col = 2 To 10
If ThisWorkbook.Sheets(1).Cells(1, Col).value = cur_Bewertungs_Name Then
'Bewertungsname found
'#
Set cur_Bewertungs_Name = ThisWorkbook.Sheets(1).Columns(Col).Find(Cur_Bewertungs_Name)
'#
'find right person
For cur_person = 2 To 10
person_name = wbQuelle.Sheets(1).name
If ThisWorkbook.Sheets(1).Cells(cur_person, 1).value = person_name Then
'right person found
'#
Set cur_person = ThisWorkbook.Sheets(1).Columns(Col).Find(cur_person)
'#
'copy value "Bewertung
ThisWorkbook.Sheets(1).Cells(cur_person, Col).value = cur_Bewertung.Copy
End If
Next cur_person
End If
Next Col
Next Row
'##################Bis hier
'wbQuelle.Sheets(1).Range (.Range("C2"))
'With wbQuelle.Sheets(1)
' .Range(.Range("C2"), .Cells(.Rows.Count, 1).End(xlUp).Offset(2, 2)).Copy
'End With
'With ThisWorkbook.Sheets(1)
' .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial 'xlPasteAll
'End With
End If
Next 'oFile
End Sub
Also ich habe eine Gesamttabelle wo alle Namen in A2, A3, A4, A5... etc
In A:1 - Z:1 steht eine Anzahl von Themen, und neben den Namen also ab B2-Z2 steht dann die Bewertung der Person von A2 und so weiter.
Dann gibt es noch für jeden eine extra Datei, also A2 der name z.B "Hans Peter" hat eine Externe Datei namens Hans_Peter.xslx
Jetzt zur eigendlichen frage, der Name der Datei soll jetzt in die A Tabelle eingetragen werden, die noch frei ist, wenn der Name vorhanden ist, dann soll er die werte die in Hans_Peter stehen, in die Gesamttabelle übertragen.
Es müssen also immer die namen miteinander Verglichen werden und die BewertungsNamen und dann soll an die Stelle dann der Name z.b. :
Gesamttabelle:
A2 : Hans Peter D1: Der Bewertungsname und der Wert soll dann in D2 stehen
A3: Andreas Mustermann E1: Der Bewertungsname und der Wert soll dann in E3 stehen
Externe Datei der Person: aufbau:
A2, A3, A4... etc stehen diesmal die Namen der Bewertungen
C2, C3, C4.. etc der jeweilige Wert der zur Bewertung gehört