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

Ansicht des Beitrags:
Von:
Ekwah		 Datum:
08.09.2017 09:45:36		 Views:
527		 Rating:
     
Antwort:
  Ja
Thema:
Makro-Erstellung, um in die gelben Zeilen die Summenformel einzufügen

Hallo zusammen,

 

der Code von Gast70117 funktioniert super. Jetzt bräuchte ich nurnoch einen Befehl, der dem Makro sagt, dass die erste Spalte unberührt sein soll. Leider Überschreibt das Makro die ganzen überschriften mit Summenformeln.

 

Sub test()
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("J:BF"))
   ' 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
29.08.2017 19:29:21 Gast70117
*****
NotSolved
31.08.2017 12:13:57 Gast63356
NotSolved
Rot Makro-Erstellung, um in die gelben Zeilen die Summenformel einzufügen
 08.09.2017 09:45:36 Ekwah
*****
NotSolved
08.09.2017 20:52:34 Gast70117
*****
Solved