Thema Datum  Von Nutzer Rating
Antwort
31.03.2016 18:34:15 Nani
Solved
Blau Interpolieren
 31.03.2016 19:50:26 Gast5016
*****
NotSolved
31.03.2016 20:29:02 Nani
Solved
31.03.2016 20:51:42 Gast5911
Solved

Ansicht des Beitrags:
Von:
Gast5016		 Datum:
31.03.2016 19:50:26		 Views:
774		 Rating:
     
Antwort:
  Ja
Thema:
Interpolieren

Zu Fuß und unter Zuhilfenahme der Finger durchgezählt

Option Explicit
'Voreinstellungen, ggf. ändern
Const cTime As String = "A"                        'Zeitspalte
Const cTemp As String = "I"                        'Temperaturspalte

Sub Linear()
'die Tabelle ist statisch und exakt nach 10 min Schritten aufgebaut
'hat Überschrift und Werte an Minute 00
'ist die aktive Tabelle
'
Dim lngStart As Long, lngEnd As Long               'Zeile von / bis
Dim x As Long, y As Long
Dim dblDiff As Double
'
With ActiveSheet
   lngStart = 2
   lngEnd = .Cells(.Rows.Count, 1).End(xlUp).Row
   'Plausi Start / Ende
   For x = 2 To lngEnd Step 6
      If Right(.Range(cTime & x).Value, 2) <> "00" Then
         MsgBox "Zeile " & CStr(x) & " keine 00-Zeit"
         Exit Sub
      End If
   Next x
   For x = 2 To lngEnd Step 6
      If IsNumeric(.Range(cTemp & x).Value) = False Then
         MsgBox "Zeile " & CStr(x) & " kein Zeitwert"
         Exit Sub
      End If
   Next x
   'linear Teiler 60 u. 10er Schritt fest
   For x = 2 To lngEnd Step 6
      dblDiff = (.Range(cTemp & x + 6).Value - .Range(cTemp & x).Value) / 6
      If x = lngEnd Then Exit For
      For y = 1 To 5
         .Range(cTemp & x + y).Value = .Range(cTemp & x).Value + dblDiff * y
      Next y
      
   Next x
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:



  • 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
31.03.2016 18:34:15 Nani
Solved
Blau Interpolieren
 31.03.2016 19:50:26 Gast5016
*****
NotSolved
31.03.2016 20:29:02 Nani
Solved
31.03.2016 20:51:42 Gast5911
Solved