Werte aus andere Excel datei

Sub Auswertung() Dim ws1 As Worksheet Set ws1 = Worksheets("Auswertung") Set ws2 = Worksheets("Daten") For i = 1 To Sheets.Count If Sheets(i).Name <> "Daten" And Sheets(i).Name <> "Auswertung" And Sheets(i).Name <> "Monatsblatt" Then ws2.Cells(i, 1).Value = Sheets(i).Name End If Next i f = 0 anz = ws2.Cells(65356, 1).End(xlUp).Row anz2 = ws1.Cells(65356, 3).End(xlUp).Row ws1.Range("C4:C" & anz2 + 1).ClearContents For z = 1 To anz If ws2.Cells(z, 1) <> "" Then tabe = ws2.Cells(z, 1) Set ws3 = Worksheets(tabe) For z1 = 8 To 100 f = 0 If ws3.Cells(z1, 3) <> "" Then anz1 = ws1.Cells(65356, 2).End(xlUp).Row For z2 = 4 To anz1 If ws1.Cells(z2, 2) <> "" Then If ws1.Cells(z2, 2) = ws3.Cells(z1, 3) Then ws1.Cells(z2, 3) = ws1.Cells(z2, 3) + ws3.Cells(z1, 4) f = 1 End If End If Next z2 If f = 0 Then ws1.Cells(z2, 2) = ws3.Cells(z1, 3) ws1.Cells(z2, 3) = ws1.Cells(z2, 3) + ws3.Cells(z1, 4) End If End If Next z1 End If Next z End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Auswertung() Dim wbThis As Workbook, wbQuelle As Workbook, strQuelle Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet Set wbThis = ThisWorkbook Set ws1 = wbThis.Worksheets("Auswertung") 'Arbeitsmappe mit den Quelldaten auswählen strQuelle = Application.GetOpenFilename(FileFilter:="Excel (*.xls),*.xls", Title:="Quelldatei auswählen", _ MultiSelect:=False) If strQuelle = False Then Exit Sub Set wbQuelle = Application.Workbooks.Open(FileName:=strQuelle, ReadOnly:=True) 'nach dieser Zeile muss bei allen Verweisen auf Sheets und Worksheets-Objekten auch immer das _ das entsprechende Workbook (wbThis oder wbQuelle) mit angegeben werden bzw. mit entsprechenden _ With-...-End With Anweisungen gearbeitet werden. Ich hab mal provisorisch wbXXX eingetragen, da _ ich nicht immer erkennen konnte, welche Tabellen in dieser Arbeitsmappe sein werden und welche in der Quell-Arbeitsmappe Set ws2 = wbXXX.Worksheets("Daten") With wbXXX For i = 1 To .Sheets.Count If .Sheets(i).Name <> "Daten" And .Sheets(i).Name <> "Auswertung" And .Sheets(i).Name <> "Monatsblatt" Then ws2.Cells(i, 1).Value = .Sheets(i).Name End If Next i End With f = 0 anz = ws2.Cells(65356, 1).End(xlUp).Row anz2 = ws1.Cells(65356, 3).End(xlUp).Row ws1.Range("C4:C" & anz2 + 1).ClearContents For z = 1 To anz If ws2.Cells(z, 1) <> "" Then tabe = ws2.Cells(z, 1) Set ws3 = wbXXX.Worksheets(tabe) For z1 = 8 To 100 f = 0 If ws3.Cells(z1, 3) <> "" Then anz1 = ws1.Cells(65356, 2).End(xlUp).Row For z2 = 4 To anz1 If ws1.Cells(z2, 2) <> "" Then If ws1.Cells(z2, 2) = ws3.Cells(z1, 3) Then ws1.Cells(z2, 3) = ws1.Cells(z2, 3) + ws3.Cells(z1, 4) f = 1 End If End If Next z2 If f = 0 Then ws1.Cells(z2, 2) = ws3.Cells(z1, 3) ws1.Cells(z2, 3) = ws1.Cells(z2, 3) + ws3.Cells(z1, 4) End If End If Next z1 End If Next z wbQuelle.Close savechanges:=False End Sub

Hallo Ralf,
das Problem ist, dass ich nicht weiss welche der Tabellen in der Auswertedatei "Auswertung.xls" sind und welche Tabellen sich in der Quelldaten-Datei (z.B. Denis.xls) befinden.
Das Makro selber muss du in der Datei "Auswertung.xls" einrichten. Alle Tabellenblätter, die sich in der Datei "Auswertung.xls" befinden kannst du dann über die Objekt-Variable "wbThis" ansprechen - z.B.: wbThis.Worksheets("Auswertung").
Die Datei aus der die Daten eingelesen werden sollen wird nach der Dateiauswahl via Dateidialog der Objektvariablen "wbQuelle" zugewiesen. Die Zeile 7, mit der der Dateidialog angezeigt wird, solltes du nur ändern, wenn du die angeszeigte Dateiauswahlliste einschränken möchtest. Mit "*.xls" werden alle Exceldateien des gewählten Verzeichnisses angezeigt.
Das "wbXXX" in meinem Makro-Vorschlag muss du jetzt entweder durch "wbThis" oder "wbQuelle" ersetzen, je nachdem in welcher Datei sich die Tabellenblätter befinden, in denen bzw. mit denen die jeweiligen Aktionen stattfinden sollen.
Ich hab das Makro jetzt so angepasst, dass sich in der Datei "Auswertung.xls" die Tabellenblätter "Auswertung" und "Daten" befinden.
Gruss
Franz

Sub Auswertung()
Dim wbThis As Workbook, wbQuelle As Workbook, strQuelle
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
Set wbThis = ThisWorkbook
Set ws1 = wbThis.Worksheets("Auswertung")
'Arbeitsmappe mit den Quelldaten auswählen
strQuelle = Application.GetOpenFilename(FileFilter:="Excel (*.xls),*.xls", Title:="Quelldatei auswählen", _
MultiSelect:=False)
If strQuelle = False Then Exit Sub
Set wbQuelle = Application.Workbooks.Open(FileName:=strQuelle, ReadOnly:=True)
Set ws2 = wbThis.Worksheets("Daten")
'vorhandene Tabellenblatt-Namen in Spalte A im Blatt "Daten" löschen
ws2.Columns(1).ClearContents
'Tabellenblatt-Namen aus der Datendatei auslesen und in Spalte A im Blatt "Daten" eineintragen
With wbQuelle
For i = 1 To .Sheets.Count
If .Sheets(i).Name <> "Daten" And .Sheets(i).Name <> "Auswertung" And .Sheets(i).Name <> "Monatsblatt" Then
ws2.Cells(i, 1).Value = .Sheets(i).Name
End If
Next i
End With
f = 0
'Letzte Zeile mit eingelesenen Tabellenblattnamen ermitteln
anz = ws2.Cells(65356, 1).End(xlUp).Row
'alte Daten in Auswertung Spalte C ab Zeile 4 löschen
anz2 = ws1.Cells(65356, 3).End(xlUp).Row
ws1.Range("C4:C" & anz2 + 1).ClearContents
'Tabellen der Quelldatei auswerten
For z = 1 To anz
If ws2.Cells(z, 1) <> "" Then
tabe = ws2.Cells(z, 1)
Set ws3 = wbQuelle.Worksheets(tabe)
For z1 = 8 To 100
f = 0
If ws3.Cells(z1, 3) <> "" Then
anz1 = ws1.Cells(65356, 2).End(xlUp).Row
For z2 = 4 To anz1
If ws1.Cells(z2, 2) <> "" Then
If ws1.Cells(z2, 2) = ws3.Cells(z1, 3) Then
ws1.Cells(z2, 3) = ws1.Cells(z2, 3) + ws3.Cells(z1, 4)
f = 1
End If
End If
Next z2
If f = 0 Then
ws1.Cells(z2, 2) = ws3.Cells(z1, 3)
ws1.Cells(z2, 3) = ws1.Cells(z2, 3) + ws3.Cells(z1, 4)
End If
End If
Next z1
End If
Next z
'Quelldaten-Datei wieder schließen ohne Spicherung von Änderungen
wbQuelle.Close savechanges:=False
End Sub

Hallo Franz
Jetzt habe ich verstanden wie Du es gemeint hast.
Aber so ganz ist es leider noch nicht was ich wollte vielleicht kannst Du mir ja noch einmal helfen.
Ich erkläre Dir mal Meine Ausgangslage.
Ich versuche Die Stundenzettel ( hier Dennis ) mit einer extra excel Datei auszuwerten.
Ich habe eine Excel Datei namens Auswertung und 3 - 4 andere Dateien mit den Namen meiner Mitarbeiter wie beim Beispiel Dennis.
Die Datein meiner Mitarbeiter werden jetzt von Ihnen selber ausgefüllt und mir per eMail zugesendet.
Jetzt möchte ich, Das ich mit der Datei Auswertung die Dateien meiner Mitarbeiter auslese und die Werte
in die Datei Auswertung einfüge.
Oder gibt es da noch eine andere Lösung ?
https://www.herber.de/bbs/user/40651.xls ( Auswertung )

Die Datei https://www.herber.de/bbs/user/40652.xls wurde aus Datenschutzgründen gelöscht

( Dennis )

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread