Merere Stundentabellen stunden einzeln anzeigen

Hallo Leute brauche eure Hilfe
Habe eine Datei mit Stundentabellen erstellt
12 Stundentabellen jeweils eine für einen Monat Januar Dezember
In den Tabelle werden die Stunden der Jeweiligen schicht nach Tätigkeiten eingetragen
Eine Tabelle mit den Monatsübersicht aller Schichten und eine Tabelle Jahresübersicht
In der Letzten 15. Tabelle möchte ich mir die Einzelübersicht der schichten anzeigen lasen
Schicht Einzelübersicht hier werden die Stunden der ausgesuchten Schicht angezeigt
Wenn ich in der Tabelle Schicht Einzelübersicht in Zelle P4 (Monat) Januar und in der Zelle Q4 (schicht) die 1 eingebe, dann sollen alle Stunden die im Monat Januar von der Schicht 1 eingetragen wurden aufgelistet werden
Wer kann mir Helfen
Habe eine Datei als muster

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

Hoffe ihr könnt mir helfen
Mit freundlichen Grüßen. Alfonso

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Alfonso
hier mal als Makro. Kann bestimmt noch schoener geschrieben werden. Verbundene Zellen sind auch nicht die beste Wahl. ;-)


Sub n()
Dim i As Long
Dim b As Long
Dim a
Dim zelle As Range
Dim c As String
Application.ScreenUpdating = False
Sheets("Schicht einzelübersicht").Range("B4:M34").Clear
c = Sheets("Schicht einzelübersicht").Range("P2")
For i = 4 To 64 Step 2 'wegen verbundene zellen
For b = 4 To 34
a = Sheets(Cells(2, 16).Value).Cells(i, 1)
Set zelle = Sheets("Schicht einzelübersicht").Range("A4:A34").Find(a)
If zelle  "" And Sheets(Cells(2, 16).Value).Cells(i, 1).Offset(0, 1) = Cells(2, 17) Then
Worksheets(c).Range("B" & i & ":I" & i).Copy Sheets("Schicht einzelübersicht").Cells( _
zelle.Row, 2)
End If
If zelle  "" And Sheets(Cells(2, 16).Value).Cells(i + 1, 1).Offset(0, 1) = Cells(2, 17)  _
Then
Worksheets(c).Range("B" & i + 1 & ":I" & i + 1).Copy Sheets("Schicht einzelübersicht"). _
Cells(zelle.Row, 2)
End If
Next b
Next i
Application.ScreenUpdating = True
End Sub

gruss hary

If Target.Address = "$K$1" Or Target.Address = "$M$1" Then 'hier sind die Sheets("Schicht einzelübersicht").Range("B4:M34").ClearContents Sheets("Schicht einzelübersicht").Range("A40:M100").Clear 'das setz noch dazwischen _ c = Sheets("Schicht einzelübersicht").Range("K1") For i = 4 To 64 Step 2 'wegen verbundene zellen '-----usw-----

Private Sub Worksheet_Activate() Dim Zelle As Range Dim i As Long For i = 4 To 65 Step 2 If Cells(i, 1) "" Then If Cells(i, 1).MergeCells = True Then If WeekDay(Cells(i, 1), vbMonday) > 5 Then Cells(i, 1).Interior.ColorIndex = 44 End If If WorksheetFunction.CountIf(Worksheets("Feiertage").Range("C1:C13"), Cells(i, 1)) = _ 1 Then Cells(i, 1).Interior.ColorIndex = 3 End If End If End If Next End Sub

Beliebteste Forumthreads (12 Monate)

Merere Stundentabellen stunden einzeln anzeigen

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Merere Stundentabellen stunden einzeln anzeigen

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread