Makro Auswertung

Hi
kann mir vielleicht einer Helfen und mir ein Makro schreiben? Kenne mich mit VBA so gut wie garnicht aus. Kenne zwar die groben Strukturen aber selber den Lösungsweg zu finden, schaffe ich bei meinem Problem nicht. Veilleicht ist es auch überhaupt nicht realisierbar mit VBA.
Zum Problem: Die Excel Datei besitzt eine Tabelle die zur Auswertung dienen soll. Weitere fünf Tabellenblätter werden Daten eingetragen. Diese Tabellen besitzen Mitarbeiternamen, deren Arbeitszeiten mit Datum. Nun hätte ich gerne wenn ich den Auswerten Button betätige das ich die Angaben angezeigt bekomme von dem jeweiligen Mitarbeiter den ich in den Suchkriterien eingetragen habe. (inkl. Zeitraum Beschränkung). Denke das ist schon relativ komplex. Es ist mir auch bewusst das das ganz besser mit einer Datenbank realisiert werden sollte, jedoch habe ich davon überhaupt keine Ahnung.
Vielleicht kann mir ja jemand helfen.
Datei:
https://www.herber.de/bbs/user/76555.xls
Mfg Jason

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Jason,
mit dem folgenden Makro erzielst du die gewünschte Auswertung.
Ich würde die Daten in den Wochenblätter für eine Auswertung in eine Listenform überführen, die mit einem Pivot-Tabellenbericht ausgewertet werden kann.
siehe Beispiel-Datei:
https://www.herber.de/bbs/user/76557.xls
Gruß
Franz


Private Sub Auswerten_Click()
Dim wksStat As Worksheet, wksStd As Worksheet
Dim dDatum1 As Date, dDatum2 As Date
Dim sName As String
Dim ZeiStat As Long, ZeiStd As Long, SpStd As Long
Dim SumStd As Double
Const ZeileStat1 = 25 '1. Zeile in die Stunden im Blatt Statistik eingetragen werden
Const SpName = 2 'Spalte mit Name in Stundenkalk-Blättern
Const SpGesamt = 4 'Spalte Gesamtstunden am Montag in Stundenkalk-Blättern
Const ZeiDatum = 12 'Zeile mit Datum in Stundenkalk-Blättern
Const ZeiName1 = 14 '1. Zeile mit Mitarbeitername in Stundenkalk-Blättern
Set wksStat = Worksheets("Statistik")
With wksStat
'Suchwerte einlesen
sName = .Cells(6, 3).Value 'gesuchter Name - C6
dDatum1 = .Cells(9, 3).Value 'Startdatum - C9
dDatum1 = .Cells(9, 5).Value 'Endedatum - E9
'Alteinträge löschen
ZeiStat = .Cells(.Rows.Count, 2).End(xlUp).Row
ZeiStat = Application.WorksheetFunction.Max(ZeiStat, .Cells(.Rows.Count, 3).End(xlUp).Row)
If ZeiStat >= ZeileStat1 Then
.Range(.Cells(ZeileStat1, 2), .Cells(ZeiStat, 3)).ClearContents
End If
ZeiStat = ZeileStat1 - 1
End With
SumStd = 0
For Each wksStd In ActiveWorkbook.Worksheets
Select Case wksStd.Name
Case "Statistik", "TabelleABC" 'hier ggf. weitere Blattnamen listen
'do nothing - diese Tabellenblätter nicht auswerten
Case Else
With wksStd
For ZeiStd = ZeiName1 To .Cells(.Rows.Count, SpName).End(xlUp).Row Step 2
'Zeile mit dem Namen suchen
If .Cells(ZeiStd, SpName).Value = sName Then
'Datumswerte mit Suchdatumsbereich vergleichen
For SpStd = SpGesamt To SpGesamt + 12 Step 2
If .Cells(ZeiDatum, SpStd - 1).Value = dDatum2 Then
ZeiStat = ZeiStat + 1
'Datum und Gesamtstunden in Statistik eintragen
wksStat.Cells(ZeiStat, 2) = .Cells(ZeiDatum, SpStd - 1).Value
wksStat.Cells(ZeiStat, 3) = .Cells(ZeiStd, SpStd).Value
SumStd = SumStd + .Cells(ZeiStd, SpStd).Value
End If
Next SpStd
End If
Next ZeiStd
End With
End Select
Next wksStd
wksStat.Cells(18, 4) = SumStd 'Gesamtstunden eintragen - D18
End Sub

For Each wksStd In wbStd.Worksheets With wksStd Select Case .Name Case "Statistik", "TabelleABC" 'diese Blätter nicht auswerten Case Else vKW = .Cells(5, 3).Value 'Kalenderwoche - C5 For ZeiStd = ZeiName1 To .Cells(.Rows.Count, SpName).End(xlUp).Row Step 2 'Name einlesen sName = .Cells(ZeiStd, SpName).Value If .Cells(ZeiStd, SpName).Value "" Then 'Datumswerte mit Suchdatumsbereich vergleichen For SpStd = SpGesamt To SpGesamt + 12 Step 2 ZeiData = ZeiData + 1 'Name,Datum und Gesamtstunden in Daten eintragen wksData.Cells(ZeiData, 1) = sName wksData.Cells(ZeiData, 2) = .Cells(ZeiDatum, SpStd - 1).Value wksData.Cells(ZeiData, 3) = .Cells(ZeiStd, SpStd - 1).Value wksData.Cells(ZeiData, 4) = .Cells(ZeiStd + 1, SpStd - 1).Value wksData.Cells(ZeiData, 5) = .Cells(ZeiStd, SpStd).Value wksData.Cells(ZeiData, 6) = vKW wksData.Cells(ZeiData, 7) = Format(.Cells(ZeiDatum, SpStd - 1).Value, " _ MMM") wksData.Cells(ZeiData, 8) = Year(.Cells(ZeiDatum, SpStd - 1).Value) Next SpStd End If Next ZeiStd End Select End With Next wksStd

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread