Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zusammenstellung von Tätigkeitsmerkmalen je Mitarbeiter

Gruppe

ZÄHLENWENN

Problem

In Tabelle2 soll die Anzahl der Tätigkeitsmerkmale pro Mitarbeiter gelistet werden.

Lösung
Nur anhand einer Beipspielarbeitsmappe darstellbar.

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