Datenauswertung in neuer Tabelle

Hallo Forum,
ich brauche bitte eure Hilfe!
Um mir die Arbeit ein wenig zu erleichtern habe ich ein Rechnungsformular erstellt. Nun meckert der Steuerberater rum, weil er jeden Monat so viele Rechnungen erhält und damit einen Haufen Arbeit hat. Wenn ich das nicht abstelle, will der Steuerberater mächtig viel Geld haben....
Ich hab im Anhang einen Ordner mit folgendem Inhalt
Ordner Name: M. G. D. Recycling (Ziellaufwerk =D:\ M. G. D. Recycling) Damit die Makros laufen.
In dem Ordner hab ich die Datei "Kundendaten"
Hier wird in Zelle "C94" automatisch der Speichername generiert
In den Zellen B99 bis J99 wird nochmal aufgelistet, wie sich der Speichername zusammensetzt. Die fertigen Rechnungen landen dann in den Ordner D:\ M. G. D. Recycling\Rechnungen.
Nun möchte ich gerne eine Tagesauswertung erstellen. Hier möchte ich das auszuwertende Datum in Zelle B1 eingeben und dann darunter die Rechnungswerte aller Rechnungen von diesem Tag.
Ich hab es mit "Kopieren" der Zeile 99 versucht aber beim "Einfügen" in die Neue Tabelle, bekomme dann Fehlermeldungen "Bezug". Ich glaube weil sich die Zeile 99 aus Formeln zusammensetzt. Nach einer Formellösung hab ich auch schon gesucht, jedoch bin ich daran völlig verzweifelt. VBA hab ich nur sehr wenig Ahnung von.
Ich wollte entsprechende Beispielmappen hochladen, dabei sind aber nur 300 KB erlaubt und eine Mappe von mir hat schon fast 1 MB.
Ich hoffe ihr könnt mir helfen!
Vielen Dank im Voraus
HANS
https://www.herber.de/bbs/user/95985.zip

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hans,
vba Lösung ist kein Problem, ich versteh nur noch nicht, wie sich deine Liste zusammen setzt.
ich hab es mal so umgesetzt:
Liste beginnt immer ab Zeile 99 und besteht aus x Zeilen
Die Liste wird dann komplett in Kundendaten übertragen
Du musst dir das Makro nur noch an deinen gewünschten Aufruf knüpfen (neuer Button oder zusätzliche Fktionalität eines bestehenden Buttons


Sub TageslisteUebertragen()
Dim letztezeile As Long
Dim wksSource As Worksheet
Dim wksDest As Worksheet
Dim path As String
Dim wkbDest As Workbook
Dim i As Long
path = ThisWorkbook.path & "\Tagesauswertung.xlsx"
Set wksSource = ThisWorkbook.Sheets("Hauptseite")
If DateiGeoeffnet(path) = False Then
Set wkbDest = Workbooks.Open(path)
Else
Set wkbDest = Workbooks("Tagesauswertung.xlsx")
End If
Set wksDest = wkbDest.Sheets("Tabelle1")
'hier werden die Zeilen aus der Tagesauswertung gelöscht
letztezeile = wksDest.Cells(wksDest.Rows.Count, 1).End(xlUp).Row
If letztezeile > 4 Then
wksDest.Range("A4:I" & letztezeile).ClearContents
End If
'jetzt kopieren
letztezeile = wksSource.Cells(wksSource.Rows.Count, 2).End(xlUp).Row
For i = 99 To letztezeile
'extra zeile für Zeile gemacht, damit du hier evtl noch ein Kriterium für den Tag  _
abfragen kannst
wksSource.Range("B" & i & ":J" & i).Copy
wksDest.Range("A" & i - 95).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,  _
SkipBlanks _
:=False, Transpose:=False
Next i
End Sub
Function DateiGeoeffnet(DerPfad As String) As Boolean
' Bei shared Workbooks, schreibgeschützten Mappen o.ä.. kann dies auch ein falsch zurückgeben.
On Error Resume Next
Open DerPfad For Binary Access Read Lock Read As #1
Close #1
If Err.Number  0 Then
DateiGeoeffnet = True
Err.Clear
End If
End Function

gruß
yummi
PS: Bei Bedarf kann ich dir gerne noch meine Kontonummer übermitteln ;-))

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datenauswertung in neuer Tabelle

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread