Vorzeichenumkehr per Makro von ausgewählten Werten

Hallo liebe Leute,
nachdem ich vor 2 Jahren schon einmal super Hilfe bekommen habe in diesem Forum, hoffe ich, dass mir heut vielleicht wieder jemand einen Tipp geben kann. Und zwar folgendes:
Ich bekomme regelmäßig recht große Exceldateien (hier Zieldatei genannt) mit jeweils gleichem Aufbau: In der 1. Spalte befinden sich eine Nummer, die eine Kostenart darstellt. In der zweiten Spalte befindet sich ein Eurobetrag der immer positiv ist. (Siehe Beispieldatei https://www.herber.de/bbs/user/54974.xls ).
Nun ist es so, dass einige dieser Eurobeträge mit negativem Vorzeichen versehen werden müssen.
Ich habe also eine weitere Exceldatei (hier Startdatei genannt) , die in der ersten Spalte die Kostenarten enthält, deren Vorzeichen in den Zieldateien umgedreht werden müssen.
Die Ideallösung sähe so aus, das man in dieser Startdatei auch den Pfad und Namen der Zieldatei angibt, die die zu ändernden Daten enthält.
Das Makro würde dann die Zieldatei öffnen, die jeweiligen Kostenarten heraussuchen und den zugehörigen Eurobetrag in der Spalte B mit einem negativen Vorzeichen versehen, speichern und schließen.
Mit Formeln und dem Makrorekorder bin ich leider gar nicht zurande gekommen. Deswegen ist meine Frage, ob jemand ein ähnliches Makro hat oder einen Ansatz kennt, wie man so etwas lösen kann!?
Auf jeden Fall vielen herzlichen Dank im Voraus für alle Anregungen und Tipps!
Gruß
Elmar

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub VZ_drehen() Dim wksZiel As Worksheet, rng As Range, wksQuelle As Worksheet Application.ScreenUpdating = False Set wksQuelle = ThisWorkbook.Sheets("Quelle") Set wksZiel = Workbooks.Open(wksQuelle.Range("B1")).Sheets(1) With wksZiel For Each rng In .Range(.Cells(2, 2), .Cells(Rows.Count, 2).End(xlUp)) rng = rng * ((Workbooks.CountIf(rng.Offset(0, -1), .Columns(1)) > 0) * 2 + 1) Next End With Application.ScreenUpdating = True End Sub

Sub VZ_drehen() Dim wksZiel As Worksheet, rng As Range, wksQuelle As Worksheet Application.ScreenUpdating = False Set wksQuelle = ThisWorkbook.Sheets("Quelle") Set wksZiel = Workbooks.Open(wksQuelle.Range("B1")).Sheets(1) With wksZiel For Each rng In .Range(.Cells(2, 2), .Cells(Rows.Count, 2).End(xlUp)) rng = rng * ((WorksheetFunction.CountIf(rng.Offset(0, -1), wksQuelle.Columns(1)) > 0) * 2 _ + 1) Next End With Application.ScreenUpdating = True End Sub

Sub VZ_drehen() Dim wksZiel As Worksheet, rng As Range, wksQuelle As Worksheet Application.ScreenUpdating = False Set wksQuelle = ThisWorkbook.Sheets("Quelle") Set wksZiel = Workbooks.Open(wksQuelle.Range("B1")).Sheets(1) With wksZiel For Each rng In .Range(.Cells(2, 2), .Cells(Rows.Count, 2).End(xlUp)) rng = rng * ((WorksheetFunction.CountIf(wksQuelle.Columns(1), rng.Offset(0, -1)) > 0) * _ 2 + 1) Next End With Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Vorzeichenumkehr per Makro von ausgewählten Werten

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Vorzeichenumkehr per Makro von ausgewählten Werten

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread