Tutorial: Professionellen Rechnungstracker in Excel erstellen
Hier ist ein ausführliches Tutorial, wie du einen professionellen Rechnungstracker in Excel erstellst, inklusive automatischer Markierung überfälliger Rechnungen und einem VBA-Makro zum Hinzufügen neuer Daten.
Dieses Tutorial führt dich durch die Erstellung eines dynamischen Rechnungsverwaltungstools. Wir kombinieren Tabellenfunktionen, bedingte Formatierung und VBA, um den Prozess zu automatisieren.
Schritt 1: Die Grundstruktur der Tabelle anlegen
Zuerst definieren wir die Spalten, die wir für unseren Tracker benötigen.
-
Öffne ein neues Excel-Arbeitsblatt.
-
Erstelle in der ersten Zeile (A1 bis G1) folgende Überschriften:
- A: Rechnungsnummer
- B: Kunde
- C: Rechnungsdatum
- D: Zahlungsziel (Tage)
- E: Fälligkeitsdatum
- F: Betrag (€)
- G: Status
-
Tipp: Markiere den Bereich und drücke
Strg + T, um den Bereich als offizielle Tabelle zu formatieren. Benenne die Tabelle im Reiter "Tabellenentwurf" oben links inRechnungsListeum.
Schritt 2: Formeln für Fälligkeit und Status
Damit Excel automatisch rechnet, fügen wir Formeln ein:
- Fälligkeitsdatum (Spalte E):
Gib in E2 folgende Formel ein:
=[@Rechnungsdatum] + [@[Zahlungsziel (Tage)]] - Status (Spalte G):
Hier wollen wir wissen, ob die Rechnung noch offen oder bereits überfällig ist.
=WENN(HEUTE() > [@Fälligkeitsdatum]; "Überfällig"; "Offen")(Hinweis: Sobald die Rechnung bezahlt ist, kannst du diesen Wert manuell mit "Bezahlt" überschreiben).
Schritt 3: Bedingte Formatierung für überfällige Rechnungen
Wir möchten, dass überfällige Rechnungen sofort ins Auge springen (rot markiert).
- Markiere die gesamte Spalte Status (oder die ganze Zeile in der Tabelle).
- Gehe zu Start > Bedingte Formatierung > Regeln zum Hervorheben von Zellen > Textinhalt...
- Gib das Wort Überfällig ein.
- Wähle im Dropdown-Menü daneben hellrote Füllung mit dunkelrotem Text.
- Klicke auf OK.
Jetzt wird jede Zeile, deren Datum in der Vergangenheit liegt, automatisch rot markiert.
Schritt 4: VBA – Die nächste freie Zeile finden
Um den Tracker effizient zu füllen, erstellen wir ein Makro, das Daten aus einer Eingabemaske automatisch in die nächste freie Zeile der Tabelle schreibt.
1. VBA-Editor öffnen
- Drücke
Alt + F11, um den VBA-Editor zu öffnen. - Gehe auf Einfügen > Modul.
2. Der Code
Kopiere den folgenden Code in das Modul:
Sub NeueRechnungHinzufuegen()
Dim ws As Worksheet
Dim lastRow As Long
' Arbeitsblatt festlegen
Set ws = ThisWorkbook.Sheets("Tabelle1") ' Name deines Blattes anpassen
' Die nächste freie Zeile in Spalte A finden
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
' Beispiel: Daten aus einer "Eingabemaske" übertragen
' Wir nehmen an, die neuen Daten stehen in fixen Zellen (z.B. I2, I3, I4...)
ws.Cells(lastRow, 1).Value = ws.Range("I2").Value ' Rechnungsnr
ws.Cells(lastRow, 2).Value = ws.Range("I3").Value ' Kunde
ws.Cells(lastRow, 3).Value = ws.Range("I4").Value ' Datum
ws.Cells(lastRow, 4).Value = ws.Range("I5").Value ' Zahlungsziel
ws.Cells(lastRow, 6).Value = ws.Range("I6").Value ' Betrag
' Felder nach dem Übertragen leeren
ws.Range("I2:I6").ClearContents
MsgBox "Rechnung erfolgreich hinzugefügt!", vbInformation
End Sub
3. Makro anwenden
- Gehe zurück zu Excel.
- Erstelle einen Bereich für die Eingabe (z.B. Zellen I2 bis I6 mit entsprechenden Beschriftungen).
- Gehe auf Einfügen > Illustrationen > Formen und zeichne ein Rechteck (als Button).
- Rechtsklick auf die Form > Makro zuweisen... > Wähle
NeueRechnungHinzufuegen.
Schritt 5: Speichern
Da die Datei ein VBA-Makro enthält, musst du sie im richtigen Format speichern:
- Gehe auf Datei > Speichern unter.
- Wähle als Dateityp Excel-Arbeitsmappe mit Makros (.xlsm).
Zusammenfassung der Funktionen:
- Automatische Berechnung: Das Fälligkeitsdatum wird basierend auf dem Rechnungsdatum berechnet.
- Visuelle Warnung: Überfällige Rechnungen färben sich dank bedingter Formatierung rot.
- VBA-Power: Mit einem Klick wird die nächste freie Zeile gefunden und die neue Rechnung sicher unter den bestehenden Daten archiviert.
Viel Erfolg bei der Organisation deiner Finanzen!