ich habe ein Problem mit einer riesengroßen Excel Datei und
ich möchte das Doing mit Excel beschleunigen. Ich weiß nur
nicht wie.
Hi Peter,
ist dir das Makro schnell genug?
Es stellt in Tabelle2 die Rechnungsnummern aus Tabelle1 dar und dahinter die Saldi.
Andere Darstellungsformen wie farbige Zellen wenn der Saldo einer Rechnungsnummer nicht 0 ist o.ä. sind leicht anzupassen.
Sub MeinSaldo()
Dim wsZiel As Worksheet, Zeile1 As Long, ZeileZiel As Long
Set wsZiel = Worksheets("Tabelle2")
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
wsZiel.Cells.ClearContents
ZeileZiel = 1
With Worksheets("Tabelle1")
wsZiel.Cells(ZeileZiel, 1) = .Cells(1, 1)
wsZiel.Cells(ZeileZiel, 2) = .Cells(1, 2)
For Zeile1 = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(Zeile1, 1) = .Cells(Zeile1 - 1, 1) Then
wsZiel.Cells(ZeileZiel, 2) = wsZiel.Cells(ZeileZiel, 2) + .Cells(Zeile1, 2)
Else
ZeileZiel = ZeileZiel + 1
wsZiel.Cells(ZeileZiel, 2) = .Cells(Zeile1, 2)
wsZiel.Cells(ZeileZiel, 1) = .Cells(Zeile1, 1)
End If
Next Zeile1
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Gruß
Reinhard
Bsp:
Rechnungsnr Betrag
1… 100
1… -100
1… 150
1… -150
2… 30
2… -30
2… 100
2…- 80
Für Rechnungsnr 1 sieht man, daß sich der Betrag zu Null
saldiert.
Für Rechnungsnr 2 ist die Saldierung nicht Null. Es bleiben 20
übrig.
Die Datei, die ich zu bearbeiten habe, ist 27.000 Zeilen groß.
Wenn ich eine Formel hätte, die mir anzeigt, daß Rechnungsnr 1
im Salo Null ergibt und das bei Rechnungsnr 2 der Saldo nicht
Null ergibt, dann wäre mir schon sehr geholfen.
Vielen Dank für eure Hilfe im Voraus.
MfG
Dudel