Excel Rechnung inkl eür automatisieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

in C =C14+1
in Tabelle 2 C4 =Tabelle1!C14 und runterziehen
nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung....."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim TB1, TB2, LR2 As Double Set TB1 = Sheets("Rechnung") Set TB2 = Sheets("Einnahmen") LR2 = TB2.Cells(TB2.Rows.Count, "C").End(xlUp).Row 'letzte Zeile der Spalte TB2.Cells(LR2 + 1, 3) = TB1.Cells(14, 3) TB1.Cells(14, 3) = TB1.Cells(14, 3) + 1 End Sub

Hallo
&gt&gt Allerdings bekomme ich wenn ich meine Rechnung geschrieben habe eine Fehlermeldung Laufzeitfehler 13 Typen unverträglich
Bei mir klappt es. Welche Zeile des Makros wird denn gelb markiert

&gt&gt Kann ich diesen Code auch verwenden wenn ich zB Tabelle 1 b18 in Tabelle 2 d2 beginnend was übertragen will ?
Klar

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim TB1, TB2, LR_C As Double, LR_D As Double
    
    Set TB1 = Sheets("Rechnung")
    Set TB2 = Sheets("Einnahmen")
    
    LR_C = TB2.Cells(TB2.Rows.Count, "C").End(xlUp).Row 'letzte Zeile der Spalte C
    LR_D = TB2.Cells(TB2.Rows.Count, "D").End(xlUp).Row

    TB2.Range("C" & LR_C + 1) = TB1.Range("B14")
    TB1.Range("B14") = TB1.Range("B14") + 1
    
    TB2.Range("D" & LR_D + 1) = TB1.Range("B18")
    
    
End Sub

Ich hab den Code mal umgeschriegen. Vielleicht verstehst du es so besser
LG UweD

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim TB1, TB2, LR As Double Set TB1 = Sheets("Rechn") Set TB2 = Sheets("Einn") LR = TB2.Cells(TB2.Rows.Count, "A").End(xlUp).Row + 1 'erste freie Zeile der Spalte A TB2.Range("A" & LR) = TB1.Range("B14") TB1.Range("B14") = TB1.Range("B14") + 1 TB2.Range("B" & LR) = TB1.Range("E6") TB2.Range("C" & LR) = TB1.Range("E23") TB2.Range("D" & LR) = TB1.Range("B18") End Sub

Beliebteste Forumthreads (12 Monate)

Excel Rechnung inkl eür automatisieren

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread