Thema Datum  Von Nutzer Rating
Antwort
29.08.2017 12:27:17 Ekwah
*****
NotSolved
29.08.2017 17:55:34 Holger
NotSolved
Rot Makro-Erstellung, um in die gelben Zeilen die Summenformel einzufügen
 29.08.2017 19:29:21 Gast70117
*****
NotSolved
31.08.2017 12:13:57 Gast63356
NotSolved
08.09.2017 09:45:36 Ekwah
*****
NotSolved
08.09.2017 20:52:34 Gast70117
*****
Solved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
29.08.2017 19:29:21		 Views:
556		 Rating:
     
Antwort:
  Ja
Thema:
Makro-Erstellung, um in die gelben Zeilen die Summenformel einzufügen		 
Sub DoIt()

Const C_REL As String = "=SUM(R[-WERT]C:R[-1]C)"

Dim rngU As Range, lngRow As Long
Dim lngBeg As Long, lngEnd As Long

   'define the rows
   lngBeg = 1: lngEnd = 1
   Set rngU = ActiveSheet.UsedRange
   Set rngU = Intersect(rngU, Columns("H:BD"))
   ' iterate each row
   For lngRow = 1 To rngU.Rows.Count
   ' search for any color in the row of the rngU
      If rngU.Rows(lngRow).Cells(1).DisplayFormat.Interior.ColorIndex <> -4142 Then
         lngEnd = lngRow
         rngU.Rows(lngRow).FormulaR1C1 = Replace(C_REL, "WERT", Format(lngEnd - lngBeg, "#"))
         lngBeg = lngEnd + 1
      End If
   Next lngRow

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
29.08.2017 12:27:17 Ekwah
*****
NotSolved
29.08.2017 17:55:34 Holger
NotSolved
Rot Makro-Erstellung, um in die gelben Zeilen die Summenformel einzufügen
 29.08.2017 19:29:21 Gast70117
*****
NotSolved
31.08.2017 12:13:57 Gast63356
NotSolved
08.09.2017 09:45:36 Ekwah
*****
NotSolved
08.09.2017 20:52:34 Gast70117
*****
Solved