VBA: Hilfe bei Prüfungsansatz, Schleife

Forumthread: VBA: Hilfe bei Prüfungsansatz, Schleife
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: VBA: Hilfe bei Prüfungsansatz, Schleife

18.06.2018 13:27:27

Daniel

Hallo,
ich habe euch mal folgende Datei hochgeladen: https://www.herber.de/bbs/user/122157.xlsx
Hier seht ihr, wie die Daten angeliefert werden und wie diese am Ende aussehen bzw. von VBA aufbereitet werden sollen.
Da es unzählige Daten geben kann, müsste also immer geprüft werden, in welcher Zeile der Gesamtwert steht bzw. die berechneten Felder müssten sich aus den Werten zwischen den einzelnen "Gesamtwerten" zusammensetzen.
Ein bisschen tricky ist noch das Hochkomma ' vor den Zahlenwerten in E.
Könnte mir hier jemand auf die Sprünge helfen, wie ich das umsetze? Stehe gerade auf dem Schlauch, wie ich den Wertebereich "zwischen den Gesamtwerten" festlegen kann.
Danke :)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA: Hilfe bei Prüfungsansatz, Schleife

19.06.2018 21:17:04

Matthais

AW: VBA: Hilfe bei Prüfungsansatz, Schleife

19.06.2018 21:17:04

Matthais

Moin!
Also wenn du eh mit VBA arbeitest, würde ich deine Ausgangsdaten in eine Variable einlesen. Die kannst du dann wie ein Tabellenblatt durchgehen und mit Zeile und Spalte ansprechen. Hier mal ein schnell gebastelter Beispielcode, um die Zeilenanzahl je Block herauszufinden.

Sub beispiel()
quelle = ActiveSheet.UsedRange
Start = 1
blockanzahl = 0
For zeile = 2 To UBound(quelle, 1)
If quelle(zeile, 2) = "Gesamtwert" Then
blockanzahl = blockanzahl + 1
MsgBox "Block " & blockanzahl & " hat " & zeile - Start - 1 & " Zeilen"
Start = zeile
End If
Next
End Sub

Analog kannst du auch andere Werte auslesen. Das ' vor den Werten in Spalte E kannst du dann rauslöschen, bzw. wird dann eh unterdrückt, da es für Excel nur ein Zeichen ist, den Text als Text und nicht als Zahl zu formatieren / behandeln.
VG