Zeile + 20 addieren und xlsx als csv speichern

Hallo zusammen,
ich habe mal meine Datei hochgeladen (siehe File)
Folgendes Problem,
die Datei heisst im Beispiel 119832.xlsx und liegt im Ordner Download.
in diesem Ordner liegen mehrere *.xlsx Dateien alle mit gleichen Header in Zeile A
Jetzt müsste ich nur die Daten aus Spalte C pro Zeile (zeilenweise) in einer "neuen Spalte" zusammen gerechnet werden allerdings mit einer gleich bleibende natürlichen Zahl, die nicht in dem Worksheet enthalten ist (z.B. 20)
F2=C2+20 F1 müsste einen Headernamen haben (z.B.)Brutto. Diese Daten dürfen nur solange berechnen werden, bis die letzte Zeile (C17) erreicht ist. Bei den anderen Files kann es aber auch kürzer und länger sein. Die Datei müsste dann als *.csv Datei gespeichert werden.
Alles sollte über den Macrobutton erledigt werden, hatte es versucht über *.vbs kam aber leider nicht weiter.
Vielleicht hat ja jemand eine Idee und kann mir helfen.
File:
https://www.herber.de/bbs/user/119832.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Nur so ein ganz grober Anfang:

Sub import()
Dim Zeilenziel As Long, importdatei, datei
importdatei = Application.GetOpenFilename 'eine der Dateien aus dem Downloadordner auswählen
Do Until importdatei  "Falsch"
importdatei = Application.GetOpenFilename
Loop
MsgBox (importdatei)
datei = Right(importdatei, InStrRev(importdatei, "Downloads") - 5)
MsgBox (datei)
Zeilenziel = Worksheets("Gesamtliste").Range("A1").CurrentRegion.Rows.Count 'Hier in die  _
Klammer den Blattnamen eingeben, wo die Kopien hinsollen
Workbooks.Open (importdatei)
Columns("C").Copy Workbooks(datei).Worksheets("Blattname").Columns("V")
Workbooks(datei).Close
End Sub

Notiz:

datei = Right(importdatei, InStrRev(importdatei, "Downloads") - 5) 'da eventuell die 5 ändern, sodass in der zweiten Meldung nu der Dateiname übrig bleibt

Notiz2:

Columns("C").Copy Workbooks(datei).Worksheets("Blattname").Columns("V") 'hier Blattnamen anpassen

Hier musst du eine der Dateien aus dem Downloads Ordner auswählen, dann importiert er Spalte C komplett in Spalte V der Zieltabelle in diesem Beispiel in Blattnamen "Blattname".

Beliebteste Forumthreads (12 Monate)

Zeile + 20 addieren und xlsx als csv speichern

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeile + 20 addieren und xlsx als csv speichern

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread