Betrag von Rechnungen zusammenfügen

[DanielGaupp]

Hallo,

leider konnte ich in der Suche nichts passendes finden.
Ich stehe vor folgender Aufgabe.
Und zwar ich habe in meinem Order, sagen wir mal  C:\Rechnungen   viele Excel Rechnungen.
Nun würde ich gerne jeweils den Rechnungsbetrag aller Rechnungen in einer Excel Datei zusammenfügen bzw. einzeln auflisten.
Optimal wäre noch mit Dokument Name.
In Spalte B den Dokumentnamen und in Spalte C den REchnungsbetrag
Leider habe ich mit VBA keine Erfahrung bisher.

Ich hoffe mir kann hierbei jemand weiterhelfen :)


Vielen Dank

[WillWissen]

Hi Daniel,

schau dir mal diese Seite an: http://www.herber.de/excelformeln und bitte suchen .../tips.html?welcher=107

[Gast 123]

Hallo

man kann die Werte wie schon beschrieben über Formeln auslesen.  Das bei vielen Rechnungen von Hand machen kann aber lange dauern.

Mit einem Makro dürfte es schneller gehen.  Einfach ins Zusammenfassen Blatt 2-3 normale CommandButton einfügen , jedem ein Makro zuweisen, und die unteren Makros ausprobieren.  (keine AktiveX Steuerelemente!!)

Das 1. Makro listet einen ganzxen Ordner auf, man muss aber noch den richtigen Pfadnamen deines Ordners im Makro angeben.
Ganz oben in Const muss noch für die Formeln der richtige Tabellen Name der Rechnung stehen, zum Testen habe ich "Tabelle1" genommen.

Das 2. Makro schreibt in Spalte C eine Formel, da muss noch die Zelle korrigiert werden, wo der Rechnungsbetrag steht. Zum Testen haben ich A1 genommen. 
Das 3. Makro wandelt die Formeln in Werte um, falls man das will.

mfg Gast 123  
 

Code:

Option Explicit

Const Blatt = "Tabelle1"   'Name des Rechnungs Blattes


'Dateien aus einem bestimmten Ordner auflisten

Sub Dateinamen_Auflisten()
 Dim Dateiname As String, i As Integer
 i = 2  'Start ab Zeile 2  (selbst waehlen)
 
'** Hier Verzeichnis und Ordner angeben, am Ende Dateityp
 Dateiname = Dir("C:\Rechnungen\ viele .. \*.xls*")

 'alte Tabelle komplett löschen
 ActiveSheet.UsedRange.Offset(1, 0).EntireRow.Delete

 Do While Dateiname <> ""
    Cells(i, 1) = i - 1
    Cells(i, 2) = Dateiname
    i = i + 1
    Dateiname = Dir()
 Loop
End Sub



Sub Formel_ausfüllen()
 Dim Dateiname As String, j, lz As Integer
 lz = Cells(Rows.Count, 2).End(xlUp).Row

On Error Resume Next
For j = 2 To lz
  Dateiname = Cells(j, 2)
  '** Tabelle und Adresse wo Betrag steht bitte in Formel selbst angeben
  Cells(j, 3).FormulaLocal = "='[" & Dateiname & "]" & Blatt & "'!" & "A1"
Next j
End Sub



Sub Formeln_umwandeln()
  lz = Cells(Rows.Count, 2).End(xlUp).Row
  Range("C2:C" & lz).Value = Range("C2:C" & lz).Value
End Sub

[RPP63]

Moin Daniel!
Bei Deiner Excel-Version werfe ich mal folgendes in den Ring:
Daten, Abrufen und transformieren, Neue Abfrage, Aus Datei, Aus Ordner
(vollkommen ohne VBA)

Gruß Ralf

[GMG-CC]

Moin,
im Prinzip gebe ich Ralf Recht. Stichwort: -> Power Query
Aber dennoch gehe ich noch nicht über diese Brücke, denn wenn es wirklich Rechnungen sind, die da abgespeichert wurden, dann gehe ich davon aus, dass da nirgendwo eine Endsumme in der gleichen Zelle steht wie beui der vorhergehenden. Aber vielleicht irre ich mich ja auch ...

[DanielGaupp]

Danke für die schnellen Antworten.

Ich habe durch meine Version den Vorschlag von RPP63 genutzt.
soweit so gut, doch ich bekomme den Endbetrag der Rechnung nicht aufgelistet.
Der endbetrag befindet sich immer bei K 50.

Habe es versucht mit benutzerdefinierte Spalte erstellen, doch wenn ich dirt K 50 eingebe erscheint nur Error!

Was muss ich dort genau eingeben?

Vielen Dank
:s

[DanielGaupp]

Kann mir hierbei keiner weiterhelfen?

[GMG-CC]

Meine Glaskugel ist gerade zum Aufpolieren in der Werkstatt ...
Was hast du bislang wie gemacht?
In Power Query gibt es (wie auch in Excel) reichlich Wege zum Ziel.

Stelle -als *.zip gepackt- 2-3 Pseudo-Rechnungen mit dem bisherigen Stand deiner Bemühungen hier zur Verfügung, dann werden wir weiter sehen. 
Vielleicht bietet sich ja auch eine Konsolidierung an, wer weiß ...