Frage zur Verarbeitungslogik

Hallo,
Beispieldatei:
https://www.herber.de/bbs/user/91639.xlsx
wir stehen vor folgendem Problem bzw. Herausforderung ;-)
Wir erhalten von unserer IT Excel-Sheets mit Berichtsinformationen (vereinfacht dargestellt im Blatt "Report").
Die Daten dieses Arbeitsblattes werden vom Host ins Excel transferiert, es enthält NUR Zahlenwerte (keine Formeln).
Zusätzlich könnte uns die IT in einem zusätzlichen Blatt noch folgende Informationen mitliefern (s. Blatt "ZE"):
Die Zeilenermittlung von Summen- bzw. Zwischensummen (also z.B. ermitteln sich die Gesamtkosten durch Addition der Zeilen 3000 und 4000).
Diese Zeilenermittlung wird jedoch als eine Zeichenkette geliefert.
Um mit diesen Berichten im Excel auch weiterarbeiten zu können würden wir gerne per Makro die festen Zahlenwerte in den Summenzeilen durch Formeln ersetzen.
Wie sollten wir idealerweise mit dieser Zeichenkette der Zeilenermittlung umgehen?
Theoretisch können hier bis zu 100 Zeilenverknüpfungen stehen.
Jede Zeile in eine Variable separieren? (scheint mir sehr umständlich).
Dann die jeweiligen Zeilen suchen und ihre Zell-Adresse in die Formel übernehmen?
Wäre super wenn mir hier ein erfahrener VBA-Programmierer in puncto Verarbeitungslogik etwas auf die Sprünge helfen könnte.
Im Moment habe ich noch eher das Gefühl, das wir in der FA mit dieser Anforderung etwas überfordert sind :-(
Wie gesagt, das anhängende Bsp. ist sehr vereinfacht aufgebaut, zeigt aber die Grundproblematik ganz gut.
Vielen Dank im Voraus für eure Tipps!
Florian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Codevorschlag

23.07.2014 00:20:43

Erich

OT: Hallo, Erich!

23.07.2014 00:25:05

Luc:-?

oT. schön ...

23.07.2014 09:27:14

der

AW oT @Luc und Werner: Danke für die Grüße! :-)

25.07.2014 11:47:58

Erich

AW: Codevorschlag

23.07.2014 12:36:39

Florian

AW: Codevorschlag

23.07.2014 13:10:57

Florian

Debuggen

23.07.2014 16:53:58

Erich

AW: Debuggen

23.07.2014 17:43:40

Florian

Zahl oder Text?

23.07.2014 21:24:11

Erich

AW: Zahl oder Text?

23.07.2014 23:29:11

Florian

Option Explicit Sub SummenFormeln() Dim arW, arS, ii As Long, jj As Long, arP, oDic As Object, rngU As Range Set oDic = CreateObject("Scripting.Dictionary") With Sheets("ZE") arS = .Cells(1, 1).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row, 2) End With With Sheets("Report") arW = .Cells(3, 2).Resize(.Cells(.Rows.Count, 2).End(xlUp).Row - 2) For ii = 1 To UBound(arW) oDic(arW(ii, 1)) = ii + 2 Next ii For ii = 1 To UBound(arS) arS(ii, 1) = arS(ii, 1) & "" ' überflüssig, wenn in ZE-Spalte A Texte stehen arP = Split(arS(ii, 2), "+") Set rngU = .Cells(oDic(arP(1)), 3) For jj = 2 To UBound(arP) Set rngU = Union(rngU, .Cells(oDic(arP(jj)), 3)) Next jj .Cells(oDic(arS(ii, 1)), 3).Formula = "=SUM(" & rngU.Address(0, 0) & ")" Next ii End With End Sub

Hi Florian,
da hast du gleich zwei Dinge eingebaut:
Woher kommt jetzt die neue Spalte A in Report? Jetzt stehen die Keys plötzlich in Spalte C statt B.
Die "Texte" in ZE!A:A sehen nur aus wie Text (linksbündig angezeigt).
Du hast das Zahlenformat der Zellen auf Text gestellt. So weit so gut. Aber:
Die Formatänderung einer Zelle ändert nichts am Wert der Zelle - da stehen immer noch Zahlen drin!
Schreib mal in D1 die Formel =ISTTEXT(A1) oder =ISTZAHL(A1)
Wenn du die Werte neu eingibst, werden Texte daraus - weil das Format auf Text steht.
Du kannst auch so aus einer Zahl in A1 einen Text machen, etwa in D1: =A1&""
Hier habe ich die Spaltenangaben für die Keys und Formeln mal in Konstanten gesteckt,
zum leichteren anpassen:


Sub SummenFormeln()
Dim arW, arS, ii As Long, jj As Long, arP, oDic As Object, rngU As Range
Const spKey As Long = 3   ' Spalte mit den Keys in Report
Const spFor As Long = 4   ' Spalte für die Formeln in Report
Set oDic = CreateObject("Scripting.Dictionary")
With ThisWorkbook.Sheets("ZE")
arS = .Cells(1, 1).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row, 2)
End With
With ThisWorkbook.Sheets("Report")
arW = .Cells(3, spKey).Resize(.Cells(.Rows.Count, 2).End(xlUp).Row - 2)
For ii = 1 To UBound(arW)
oDic(arW(ii, 1)) = ii + 2
Next ii
For ii = 1 To UBound(arS)
arS(ii, 1) = arS(ii, 1) & ""  ' überflüssig, wenn in ZE-Spalte A Texte stehen
arP = Split(arS(ii, 2), "+")
Set rngU = .Cells(oDic(arP(1)), spFor)
For jj = 2 To UBound(arP)
Set rngU = Union(rngU, .Cells(oDic(arP(jj)), spFor))
Next jj
.Cells(oDic(arS(ii, 1)), spFor).Formula = "=SUM(" & rngU.Address(0, 0) & ")"
Next ii
End With
End Sub

Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread