|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
10.09.2017 16:57:26 |
NeuInVBA |
|
|
|
10.09.2017 19:31:15 |
Gast70117 |
|
|
|
11.09.2017 13:32:55 |
NeuInVBA |
|
|
|
11.09.2017 19:33:28 |
Gast70117 |
|
|
|
11.09.2017 20:48:59 |
Gast49619 |
|
|
|
11.09.2017 20:48:59 |
Gast80265 |
|
|
|
11.09.2017 20:48:59 |
Gast94550 |
|
|
|
11.09.2017 20:53:13 |
Gast37918 |
|
|
|
12.09.2017 10:47:45 |
Gast70117 |
|
|
 Etwas? |
12.09.2017 15:19:55 |
NeuInVBA |
|
|
Von:
NeuInVBA |
Datum:
12.09.2017 15:19:55 |
Views:
412 |
Rating:
|
Antwort:
|
Thema:
Etwas? |
|
Der Quelltext liefert die richtigen Ergebnisse.
Noch bin ich nicht ganz am Ziel: das Ergebnis soll nicht in Tabelle 1 bei Total stehen, sondern in Tabelle 2.
Ich habe es einmal versucht zu ändern, aber die Subtraktion klappt bei mir nicht mehr :( :
hier mein Versuch, ich wusste nicht, wo ich die Funktion "einbetten" kann, deswegen habe ich sie nicht mehr ausgelagert, sondern integriert...
Sub Test()
Dim Tab1 As Excel.Worksheet, Tab2 As Excel.Worksheet
Dim RngU1 As Range, rngRow1 As Range 'Bereich Litigation
Dim rngF As Range, rngV As Range 'Bereich Spont
Set Tab1 = Sheets("Tabelle1")
Set Tab2 = Sheets("Tabelle2")
Dim Wert As String 'zum Vergleich
Dim Name As Variant
Dim Zahl As Long 'eigentlicher Wert
With Tab1
With .Columns("B:Q")
'Umfang der Suche
Set RngU1 = Range(.Cells(1), .Cells(.Cells.Count).End(xlUp))
'habe Überschriften
Set RngU1 = RngU1.Offset(1).Resize(RngU1.Rows.Count - 1)
End With
End With
For Each rngRow1 In RngU1.Rows
Name = rngRow1.Cells(1).Value
Wert = ">" & rngRow1.Cells(rngRow1.Cells.Count).Value
Zahl = Cells(rngRow1.Cells.Count, 13).Value
With Tab2
If .AutoFilterMode Then .AutoFilterMode = False
With .Columns("C:Q")
Set rngF = Range(.Cells(1), .Cells(.Cells.Count).End(xlUp))
With rngF
On Error Resume Next
.AutoFilter Field:=1, Criteria1:=Name
.AutoFilter Field:=12, Criteria1:=Wert, Operator:=xlAnd
Set rngV = rngF.Offset(1).Resize(rngF.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
FiltIt = rngV.Columns(12).Cells(1).Value
FiltIt = FiltIt - Zahl
FiltIt.Interior.Color = 14277081
On Error GoTo 0
End With
End With
End With
Next rngRow1
End Sub
Ganz lieben Dank und viele Grüße :) |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
10.09.2017 16:57:26 |
NeuInVBA |
|
|
|
10.09.2017 19:31:15 |
Gast70117 |
|
|
|
11.09.2017 13:32:55 |
NeuInVBA |
|
|
|
11.09.2017 19:33:28 |
Gast70117 |
|
|
|
11.09.2017 20:48:59 |
Gast49619 |
|
|
|
11.09.2017 20:48:59 |
Gast80265 |
|
|
|
11.09.2017 20:48:59 |
Gast94550 |
|
|
|
11.09.2017 20:53:13 |
Gast37918 |
|
|
|
12.09.2017 10:47:45 |
Gast70117 |
|
|
Etwas? |
12.09.2017 15:19:55 |
NeuInVBA |
|
|