HERBERS Excel-Forum - die Beispiele

Thema: Anzahl der Einträge zu einer bestimmten Kalenderwoche

Home

Gruppe

Funktion

Problem

Die Anzahl der Einträge in Spalte A zu einer bestimmten Kalenderwoche sollen ermittelt werden.

Lösung
Nur anhand einer Beipspielarbeitsmappe darstellbar.
StandardModule: basMain

Sub ArtikelnummernListen()
   Dim rng As Range
   Dim iCounter As Integer, iRow As Integer, _
      iCol As Integer, iRowL As Integer
   Cells.ClearContents
   iCol = 2
   For iCounter = 3 To Worksheets.Count
      With Worksheets(iCounter)
      Cells(1, iCol) = .Name
      iRow = 1
      Do Until IsEmpty(.Cells(iRow, 1))
         Set rng = Columns(1).Find(.Cells(iRow, 1), _
            lookat:=xlWhole, LookIn:=xlValues)
         If rng Is Nothing Then
            iRowL = Cells(Rows.Count, 1).End(xlUp).Row + 1
            Cells(iRowL, 1) = .Cells(iRow, 1)
            Cells(iRowL, iCol) = 1
         Else
            rng.Offset(0, iCol - 1) = _
               rng.Offset(0, iCol - 1) + 1
         End If
         iRow = iRow + 1
      Loop
      End With
      iRow = 1
      iCol = iCol + 1
   Next iCounter
End Sub

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

Copy funktioniert nur einmal Schreibschutz prüfen funktioniert nicht
VBA - Wochentage, zählenwenn Split-Funktion beim Einlesen TXT-Datei
Match Funktion spinnt (?) SVerweis funktioniert nicht
PasteSpecial funktioniert nicht. Zählenwenn
VBA-Code funktioniert nicht mit anderem Office Hilfe bei der INDEX Funktion
SVERWEIS mit Zählenwenn Zelladressen von FunktionsParametern ermitteln
Matrixformel mit Summenfunktion Formel funktioniert nicht, SVerweis
Makro funktioniert nach Beenden von Excel nicht VLOOKUP auf Links funktioniert offline
@DAVID Zwei SUMMEWENN funktionen verknüpfen Zwei SUMMEWENN funktionen verknüpfen
Polynomfunktion Mit vba Funktionen in Excel Zellen
Rang-Funktion für Strings? Skript funktioniert nur auf einer seite?!?!
Hyperlink auf Excel-Datei funktioniert nicht Public Funktion / Variabel
VBA - Suchfunktion - Fehlermeldung Benutzerdefinierte Funktion
Userform mit Löschfunktion Frage zu Wenn Dann Funktion
Wenn-Funktion Frage zur Funktion DISAGIO
Funktion um Chart zu kreieren Wenn-Funktion verschachtelt
VBA Suchfunktion erweitern Makro funktioniert nicht richtig
zählenwenn-funktion mit mehreren kriterien Funktion SVERWEIS
Benutzerdefinierte Funktion in Open Office Funktion Dezimal -> Zeit/ Variablen-Deklaration
Probleme mit Textfunktionen Fehler, wenn Variable in Funktion
VBA-Funktion analog =ZELLE("Zeile") Gültigkeit funktioniert nicht!
Zellausrichtung funktioniert nicht WENN-Funktion
Hide-Funktion in einem Frame Suchfunktion
Date Funktion Filter funktioniert nicht
Funktionsname austauschen Datum in der Funktion VERWEIS