VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zusammenstellung von Tätigkeitsmerkmalen je Mitarbeiter

Gruppe

Funktion

Bereich

ZÄHLENWENN

Thema

Zusammenstellung von Tätigkeitsmerkmalen je Mitarbeiter

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

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und ZÄHLENWENN