Thema Datum  Von Nutzer Rating
Antwort
23.12.2015 19:14:13 gixxer
NotSolved
Blau Zeitumrechnung Programmieren
 24.12.2015 09:30:01 Gast99511
NotSolved
04.01.2016 10:34:01 gixxer
NotSolved

Ansicht des Beitrags:
Von:
Gast99511		 Datum:
24.12.2015 09:30:01		 Views:
797		 Rating:
     
Antwort:
  Ja
Thema:
Zeitumrechnung Programmieren
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Option Explicit
 
Sub Bsp()
   
  Dim rngData As Excel.Range
   
  With Worksheets("Tabelle1")
     
    'data-section
    Set rngData = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp)).Resize(, 3)
     
    With rngData.Offset(, 3)
      't[ms]->t[min]
      .Columns(1).FormulaR1C1 = "=1+TRUNC(RC[-3]/60000,0)"
      'AVG(T[°C]) for t[min]
      .Columns(2).FormulaR1C1 = "=IF(AND(OR(RC[-1]=R[-1]C[-1],NOT(ISBLANK(R[-1]C[-1]))),NOT(ISBLANK(R[-1]C[-1])))," & _
                                    "AVERAGEIF(" & .Columns(1).Address(ReferenceStyle:=xlR1C1) & ",RC[-1]," & .Columns(1).Offset(, -2).Address(ReferenceStyle:=xlR1C1) & "),"""")"
      'MAX(V[ul]) for t[min]
      .Columns(3).FormulaR1C1 = "=IF(RC[-1]<>"""",RC[-3],"""")"
      'formula-values to values
      .Value = .Value
    End With
     
    Call rngData.Cells(1, 1).Offset(-1).Replace("[ms]", "[min]")
    'delete no more needed data
    Call rngData.Delete(xlShiftToLeft)
     
    'data-section
    Set rngData = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp)).Resize(, 3)
     
    Call rngData.Sort(Key1:=.Cells(1), Order1:=xlAscending, Key2:=.Cells(2), Order2:=xlDescending)
    Call rngData.RemoveDuplicates(1)
     
  End With
   
End Sub

 

Ihre Antwort
  • 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: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
23.12.2015 19:14:13 gixxer
NotSolved
Blau Zeitumrechnung Programmieren
 24.12.2015 09:30:01 Gast99511
NotSolved
04.01.2016 10:34:01 gixxer
NotSolved