Thema Datum  Von Nutzer Rating
Antwort
26.09.2017 12:01:42 Fabian
NotSolved
26.09.2017 17:16:21 Mackie
NotSolved
27.09.2017 08:16:14 Gast46484
NotSolved
Blau Zeile einfügen bei Abstand zwischen 2 Werten
27.09.2017 09:53:16 Gast70117
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
27.09.2017 09:53:16		 Views:
907		 Rating:
     
Antwort:
  Ja
Thema:
Zeile einfügen bei Abstand zwischen 2 Werten

Moin, teste mal und

setze bei 'Test deine Formel ein und

beschwer dich nicht, wenn nicht klappt

Option Explicit
'active worksheet
'headline (x,y)
'columns A,B

Sub deburrIt()
Dim arrDo() As Variant

   Do
      arrDo = doIt()
      If arrDo(1) = 0 Then
         Exit Do
      Else
         Rows(arrDo(1)).Insert
         With Rows(arrDo(1))
            .Cells(1).Value = arrDo(2)
            'Test - kommt eben auch auf die Formel an
            .Cells(2).Value = .Cells(2).Offset(1).Value - 0.09999
            .Cells(2).Interior.ColorIndex = 3
         End With
      End If
   Loop
   
End Sub

Function doIt() As Variant
Dim rngXY As Range, rngComp As Range, arrM(1 To 2) As Variant
On Error GoTo fail:
   With Columns(1)
      'headline (x,y)
      Set rngXY = Range(.Cells(2), .Cells(2).End(xlDown)).Resize(, 2)
      Set rngComp = .Cells(2).End(xlDown).Offset(-1).Resize(2, 2)
      Do
         If rngComp.Cells(4) - rngComp.Cells(2) > 0.10001 Then
            arrM(1) = rngComp.Cells(3).Row
            arrM(2) = WorksheetFunction.Average(rngComp.Cells(1), rngComp.Cells(3))
            doIt = arrM
            Exit Do
         End If
         Set rngComp = rngComp.Offset(-1)
      Loop
   End With
fail:
If Err.Number > 0 Then
   arrM(1) = 0: arrM(2) = 0
   doIt = arrM
End If
End Function

 

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
26.09.2017 12:01:42 Fabian
NotSolved
26.09.2017 17:16:21 Mackie
NotSolved
27.09.2017 08:16:14 Gast46484
NotSolved
Blau Zeile einfügen bei Abstand zwischen 2 Werten
27.09.2017 09:53:16 Gast70117
NotSolved