AW: werte zählen VBA
02.10.2018 16:06:21
Andy
Hi, vielen Dank für deine mühe,
ich war auch nicht untätig und bin zu dem Code gekommen funzt auch gut, mein problem ist ich muss ich in dieser art 7*16 doppelzeilen schreiben müssen
Dim Datum As Long
Dim iSpalte As Variant
Dim iDate As Range
Datum = Sheets("Tabelle1").Cells(2, 5)
iSpalte = Application.Match(Datum, Sheets("Tabelle1").Range("A5:T5"), 1) 'suche datum und merke _
die Spalten Nr.
MsgBox iSpalte
'zelle mit Datum in A8:R8
Set iDate = Sheets("Tabelle1").Cells(5, iSpalte) 'zelle mit datum aus C2 oder Date
'Spalten unter Datum
Set art = iDate.Offset(2, 0).Resize(50) '1 zelle in Spalte "ART" +50 zellen
Set zeit = iDate.Offset(2, 1).Resize(50) '1 zelle in Spalte "Zeit" +50 zellen
'sht ankunftzeiten von-bis
sht5 = WorksheetFunction.CountIfs(art, "a", zeit, ">=05:00", zeit, "06:00", zeit, "07:00", zeit, "
also 7 kriterien mal 16 uhrzeitten für die if abfrage.
Hat niemand eine idee um den code zu verkürzen hauptproblemm sind die viele uhrzeiten.
LG