Thema Datum  Von Nutzer Rating
Antwort
12.05.2023 21:48:28 Markus
NotSolved
12.05.2023 23:56:21 Gast85001
NotSolved
Rot Zusammenfassen von Positionen
 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:
Gast16737		 Datum:
13.05.2023 00:40:53		 Views:
578		 Rating:
     
Antwort:
  Ja
Thema:
Zusammenfassen von Positionen		 
Korrektur für die letzte Zeile
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)
    If sucheG2.Address <> ErsteAddresse Then
      ZeileG2 = sucheG2.Row
    Else
      ZeileG2 = .Cells(Rows.Count, 1).End(xlUp).Row + 1
    End If
      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)"
      sucheG1.Offset(0, 3).FormulaR1C1 = "=SUM(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
12.05.2023 23:56:21 Gast85001
NotSolved
Rot Zusammenfassen von Positionen
 13.05.2023 00:40:53 Gast16737
NotSolved
14.05.2023 11:18:36 Gast53755
Solved
14.05.2023 14:03:29 Gast11849
NotSolved