VBA Excel Subtraktion in Schleife
18.09.2017 15:24:01
Jan
ich arbeite an einer Prozessautomatisierung mit Hilfe von VBA.
Hierfür habe ich den beigefügten Quelltext entwickelt:
Sub test()
Dim Tab1 As Excel.Worksheet, Tab2 As Excel.Worksheet
Dim RngU As Range, rngRow As Range
Dim Wert As String
Dim Zahl As Variant
Dim Name As Variant
Dim FiltIt As Variant
Set Tab1 = Sheets("Tabelle1")
Set Tab2 = Sheets("Tabelle 2")
Dim lang As Integer
Dim groesse As Integer
Dim rng As Range
Dim rngNEW As Range
Sheets("Tabelle2").Activate
Range("B:Q").Activate
lang = Range("Q655352").End(xlUp).Row
Set RngU = Range("B2:Q" & lang)
For Each rngRow In RngU.Rows
Name = rngRow.Cells(1).Value
Wert = ">" & rngRow.Cells(rngRow.Cells.Count).Value
Zahl = rngRow.Cells(rngRow.Cells.Count).Value
Sheets("Tabelle1").Activate
If Tab2.AutoFilterMode Then Tab2.AutoFilterMode = False
groesse = Range("Q655352").End(xlUp).Row
Set rng = Range("C1:Q" & groesse)
On Error Resume Next
rng.AutoFilter Field:=1, Criteria1:=Name
rng.AutoFilter Field:=12, Criteria1:=Wert, Operator:=xlAnd
Set rngNEW = rng.Offset(1).Resize(rng.Rows.Count - 1).SpecialCells( _
_
_
xlCellTypeVisible)
FiltIt = rngNEW.Columns(12).Cells(1).Value
FiltIt = FiltIt.Value - Zahl.Value
On Error GoTo 0
Tab1.Select
Next rngRow
End Sub
Kurz zum Ablauf des Programmteils:
1. Gehe in Tabelle 2 und nehme Wert und Namen
2. Gehe in Tabelle 1
3. Filter nach Namen aus Tabelle 2
4. Nehme Wert aus Tabelle 2 und ziehe ihn von Wert aus Tabelle 1 ab (Überschreibe den alten Wert in Tabelle 1 mit dem Ergebnis
5. Gehe wieder in Tabelle 2 und nehme den nächsten Wert und den nächsten Namen (siehe Schleife)
Ich hoffe, dass mein Quelltext den Großteil der Schritte beherrscht. Ich habe nur Probleme mit der Subtraktion:
Set rngNEW = rng.Offset(1).Resize(rng.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
FiltIt = rngNEW.Columns(12).Cells(1).Value
FiltIt = FiltIt.Value - Zahl.Value
On Error GoTo 0
Tab1.Select
Next rngRow
Das Programm erkennt die Variable Zahl, trotzdem findet die Subtraktion nicht statt.
Hat jemand eine Idee, wie die Subtraktion funktionieren kann?
Über Tipps freue ich mich! Vielen Dank und viele Grüße,Jan