|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.08.2005 16:36:37 |
Lavinia |
|
|
|
16.08.2005 17:39:44 |
Oliver |
|
|
|
17.08.2005 12:15:36 |
Lavinia |
|
|
|
17.08.2005 13:13:13 |
Rasta |
|
|
 Aw:Aw:Aw:Aw:zeiten addieren |
19.08.2005 15:08:29 |
Lavinia |
|
|
|
20.08.2005 18:41:53 |
Oliver |
|
|
|
22.08.2005 09:14:17 |
Lavinia |
|
|
|
23.08.2005 15:42:32 |
Oli |
|
|
|
25.08.2005 10:25:50 |
Lavinia |
|
|
|
25.08.2005 15:04:20 |
Lavinia |
|
|
Von:
Lavinia |
Datum:
19.08.2005 15:08:29 |
Views:
1050 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:zeiten addieren |
hallo
hab zwar jetzt das mit der formatänderung, aber die berechnung klappt einfach net. was mach ich falsch? ich bekomme immer die fehlermeldung typen unverträglich. hilfe!
code:
Sub Zeitformat()
On Error Resume Next
With ActiveSheet.UsedRange
.Columns(19).NumberFormat = "hh:mm"
End With
End Sub
Function count()
'Berechnet die Anzahl der angezeigten Zeilen
ActiveSheet.UsedRange.AutoFilter field:=1, Criteria1:="<>"
counter = 0
counter = ActiveSheet.UsedRange.Columns(1).SpecialCells(xlCellTypeVisible).count - 1
count = counter
End Function
Sub filter_rows3()
'Anzahl aller Tickets des letzten Monats
If ActiveSheet.AutoFilterMode Then ActiveSheet.UsedRange.AutoFilter
End Sub
Function get_cycle_time_open()
Summe = 0
counter = 0
Call filter_rows3
counter = counter + 1
Summe = Summe + zelle
Next
get_cycle_time_open = (Summe / counter)
End Function
Sub MakroTest01()
Application.ScreenUpdating = False
If ActiveSheet.AutoFilterMode Then ActiveSheet.UsedRange.AutoFilter
Cycle_time_open = get_cycle_time_open()
If ActiveSheet.AutoFilterMode Then ActiveSheet.UsedRange.AutoFilter
Application.ScreenUpdating = True
Application.Workbooks("Test.xls").Worksheets("Tabelle1").Activate
insertin = 0
For Each zelle In Columns(2).Cells
If IsEmpty(zelle) Then
insertin = zelle.Row
Exit For
End If
Next
Cells(insertin, 1).Value = MonthName(Month(Date - Day(Date)), True) & " " & (Year(Date - Day(Date)))
Cells(insertin, 6).Value = col2
Cells(insertin, 96).Value = cycle_time_open
End Sub |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.08.2005 16:36:37 |
Lavinia |
|
|
|
16.08.2005 17:39:44 |
Oliver |
|
|
|
17.08.2005 12:15:36 |
Lavinia |
|
|
|
17.08.2005 13:13:13 |
Rasta |
|
|
Aw:Aw:Aw:Aw:zeiten addieren |
19.08.2005 15:08:29 |
Lavinia |
|
|
|
20.08.2005 18:41:53 |
Oliver |
|
|
|
22.08.2005 09:14:17 |
Lavinia |
|
|
|
23.08.2005 15:42:32 |
Oli |
|
|
|
25.08.2005 10:25:50 |
Lavinia |
|
|
|
25.08.2005 15:04:20 |
Lavinia |
|
|