Gruppe
Funktion
Problem
In Tabelle2 soll die Anzahl der Tätigkeitsmerkmale pro Mitarbeiter gelistet werden.
StandardModule: Modul1
Sub essai()
Dim semaine As Integer
Dim compt As String
Dim dat As String
von blatt2 wird die 2 $H$5 festgelegt
Worksheets("blatt2").Activate
If Cells(5, 8) <> "" Then semaine = Cells(5, 8)
Worksheets("blatt1").Activate
With Worksheets("blatt1").Range("a1:AJ34")
'es sind daten von einem Kalender
Set c = .Find(semaine, LookAt:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address(ReferenceStyle:=xlA1, _
RowAbsolute:=False, _
ColumnAbsolute:=False)
compt = firstAddress
'compt =R[8]C[2]
Do
c.Interior.Pattern = xlPatternGray50
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub