Thema Datum  Von Nutzer Rating
Antwort
12.05.2023 21:48:28 Markus
NotSolved
Blau Zusammenfassen von Positionen
12.05.2023 23:56:21 Gast85001
NotSolved
13.05.2023 00:40:53 Gast16737
NotSolved
14.05.2023 11:18:36 Gast53755
Solved
14.05.2023 14:03:29 Gast11849
NotSolved

Ansicht des Beitrags:
Von:
Gast85001
Datum:
12.05.2023 23:56:21
Views:
312
Rating: Antwort:
  Ja
Thema:
Zusammenfassen von Positionen

Kurzer Hinweis:
Die Erste Zeile sollte die Überschriften beinhalten:

Option Explicit

Sub Rechnen()
Dim Bereich As Range
Dim Start As Range, sucheG1 As Range, sucheG2 As Range, Suchbegriff As String
Dim ZeileG1 As Long, ZeileG2 As Long, AnzahlZeilen As Long
Dim ErsteAddresse As String

Suchbegriff = "G"

'For Each Suchbegriff In Bereich.Cells
With ActiveSheet.Range("A1:A500000").Cells
  Set Start = .Find(Suchbegriff, After:=Range("A1"), LookIn:=xlValues)
  Set sucheG1 = Start
  ErsteAddresse = Start.Address
  Debug.Print ErsteAddresse
   Do
    Set sucheG2 = .FindNext(sucheG1)
      ZeileG2 = sucheG2.Row
      ZeileG1 = sucheG1.Row + 1
      AnzahlZeilen = ZeileG2 - ZeileG1
      sucheG1.Offset(0, 3).FormulaR1C1 = "=SUMIF(R[" & 1 & "]C[-3]:R[" & AnzahlZeilen & "]C[-3],""P"",R[" & 1 & "]C:R[" & AnzahlZeilen & "]C)"
    Set sucheG1 = sucheG2
  Loop While sucheG1.Address <> ErsteAddresse
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
12.05.2023 21:48:28 Markus
NotSolved
Blau Zusammenfassen von Positionen
12.05.2023 23:56:21 Gast85001
NotSolved
13.05.2023 00:40:53 Gast16737
NotSolved
14.05.2023 11:18:36 Gast53755
Solved
14.05.2023 14:03:29 Gast11849
NotSolved