Zeitwerte in Select Case

Hallo Zusammen,
ich habe ein Problem und zwar möchte ich für unsere Firma ein kleines Telefon-Auswertungs-Programm schreiben in der die Gesprächsdauer einer bestimmten Nummer ausgewertet wird.
Die Gesprächsdauer wird von jedem Anruf in einer Datenbank protokolliert.
Ich habe nun die Gesprächsdauer ausgelesen und bekomme sie im Format 00:00.
Nun möchte ich im Select Case sagen wenn die Rufdauer zwischen
1-10 sek. ist dann variable "a" + 1
11-20 sek. dann variable "b" + 1
21-30 sek. dann variable "c" + 1
...usw.
Ich möchte nämlich auswerten wie lange so ein Gespräch ungefähr dauer!
Ich bin das jetzt wie folgt angegangen:
Set ws = Worksheets("Tabelle1")
Set Bereich = ws.Range("E2:E65536")
For Each zelle In Bereich.Cells
Select Case x
Case 1 To 10
a = a + 1
Case 11 To 20
b = b + 1
Case 21 To 30
c = c + 1
Case 31 To 40
d = d + 1
Case 41 To 60
e = e + 1
Case 61 To 1, 20
f = f + 1
Case 1, 21 To 1, 40
g = g + 1
Case 1, 41 To 2, 0
h = h + 1
End Select
Next zelle
Allerdings nimmt er mir das nicht weil ich wahrscheinlich erst die Gesprächsdauer vom mm:ss Format in eine Dezimalzahl umwandeln muss. Allerdings konnte ich nirgends finden wie ich das mache vor allem wenn es sich um ca. 2000 einzelnen Werten handelt.
Wäre schön wenn mir hierbei jemand weiterhelfen könnte...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Ich hab hier mal zur eigentlich Verständnis des gesamten Code:

Private Sub OK_Click()
Dim sql As String
Dim conn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim ziel As Range
Dim a1 As Range
Dim b1 As Range
Dim c1 As Range
Dim d1 As Range
Dim e1 As Range
Dim g2 As Range
Dim g3 As Range
Dim x As Integer
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer, g  _
As Integer, h As   Integer
Dim ws As Worksheet
Dim Bereich As Range
Dim zelle As Range
'Bereiche definieren
Set ziel = Range("a2")
Set a1 = Range("a1")
Set b1 = Range("b1")
Set c1 = Range("c1")
Set d1 = Range("d1")
Set e1 = Range("e1")
Set g2 = Range("g2")
Set g3 = Range("g3")
'ADODB Connection
Set conn = New ADODB.Connection
'Connectionstring zu DBHO2 / Datenbank "CALLCONTROL"
conn.Open "Provider=SQLOLEDB;Data Source=dbho2.rupp.rupp.at;" & _
"Initial Catalog=CALLCONTROL;Integrated Security=SSPI"
'ADODB Recordset definieren
Set rec = New ADODB.Recordset
'SQL - String
sql = "SELECT fld_1, fld_2, fld_5, fld_7, fld_6 fld_4 FROM dbo.tblTeldatDivided WHERE fld_4  _
= '" & Me!DW & "'" & _
"AND fld_1 BETWEEN '" & Me!von & "' AND '" & Me!bis & "' AND fld_9 = '1'"
'Tabellenbeschriftung A1 bis D1 / Legende G2 + G3
a1 = "Datum"
b1 = "Uhrzeit"
c1 = "Rufdauer"
d1 = "Nummer"
e1 = "Gesprächsdauer"
'Hintergrundfarbe für Tabellenbeschriftung
Range("a1:e1").Select
With Selection.Interior
.ColorIndex = 44
.Pattern = xlSolid
End With
'Hintergrundfarbe für Legende
Range("c1").Select
With Selection.Interior
.ColorIndex = 44
.Pattern = xlSolid
End With
'Automatisches Anpassen der Zellenbreite an Textinhalt f. Spalten D + G
Columns("D").EntireRow.AutoFit
Columns("G").EntireColumn.AutoFit
'Recordset öffnen und SQL ausführen
rec.Open sql, conn
'Inhalt des Recordsets in den Zielbereich (variable "ziel" = Range) kopieren
ziel.CopyFromRecordset rec
'Recordset und Connection schließen
rec.Close
conn.Close
Set rec = Nothing
Set conn = Nothing
x = 0
Set ws = Worksheets("Tabelle1")
Set Bereich = ws.Range("E2:E65536")
For Each zelle In Bereich.Cells
Select Case x
Case 1 To 10
a = a + 1
Case 11 To 20
b = b + 1
Case 21 To 30
c = c + 1
Case 31 To 40
d = d + 1
Case 41 To 60
e = e + 1
Case 61 To 1, 20
f = f + 1
Case 1, 21 To 1, 40
g = g + 1
Case 1, 41 To 2, 0
h = h + 1
End Select
Next zelle
End Sub

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread