Hallo

Ich überarbeite zur Zeit mein Haushaltsbuch und habe jetzt folgendes Problem, wofür ich eine Lösung bräuchte.

Ich möchte (siehe Bild - Feste Ausgaben), wenn eine Zeile frei ist, der gesamte untere Bereich automatisch um eine Zeile nach oben verschoben wird.

Beispiel Bild in E7-H7 soll dann E8-H7, E8-H8 soll dann E9-H9 stehen usw.

bzw. wenn zwischen den Zeilen eine leere Zeile frei ist, soll der Bereich der unter der leere Zeile stehen z.B. auch um 1 Zeile automatisch nach oben verschoben werden.

Beispiel Bild: Der gesamte Bereich von E12-H12 - E16-H16 soll um 1 Zeile nach oben verschoben werden Bezieht sich aber auch darauf, wenn ggf. mehrere Zeilen untereinander frei sind

Bezieht sich aber nur auf die Tabelle "Feste Ausgaben". Die Reihenfolge soll nicht verändert werden (z.B. keine Sortierung von A-Z)

Falls relevant Desweiteren stehen in allen Zellen (außer Spalte Datum) Formeln, da die Daten die in der Tabelle stehen aus einer anderen Tabelle übernommen werden. Diese müssen beim verschieben ja eigentlich nur gelöscht bzw. überschrieben werden.

Danke für die Hilfe im vorraus

Heute habe ich mal wieder Zeit mich mit Excel / VBA zu beschäftigen. Und komme leider nicht wirklich weiter

Ich kann per DropDawn Liste in einem Userform, Daten aus einer Tabelle integrieren. Beispiel: Nahrungsmittel1 auf 100g mit jeweils 10g Eiweiß, 18g Kohlenhydrate usw. werden in Userform/Textfelder eingetragen

Jetzt möchte ich, wenn ich im Userform die Menge z.B. auf 200g ändere, dass die Zahlenwerte für Kohlenhydrate, Eiweiß etc. automatisch aktualisiert werden.

Private Sub txtMenge1_Change() 
    If CDbl(txtMenge1) <> 100 Then
               txtKohlenhydrate1.Value = CDbl(txtKohlenhydrate1) * CDbl(txtMenge1) / 100
        End If
    End Sub

Er aktualisiert zwar z.B. im Textfeld Kohlenhydrate was sobald eine Eingabe erfolgt, rechnet aber nicht mit dem Ursprungswert von zb. 10g oder 18g. Sobald ich anfange die Zahl in Menge auf 200g zu ändern passiert jetzt folgendes. Wenn ich jetzt anfange die Zahl auf 2 ändere, stimmt das Ergebnis noch. Möchte ich aber jetzt eine 0 hinzufügen, geht er nicht mehr von 10g bzw 18g aus, sondern von denm Wert der bei einer 2 berechnet wurde. Somit stimmt das Ergebnis nicht mehr. Bei 2 kommen bei 10g ja erst mal 0.2g aus, füge jetzt jetzt aber ne 0 hinzu, sollen eigentlich 2 rauskommen. Es kommt dann aber 0,04 raus.

Da ich in VBA noch Neuling bin,möchte ich bitten mir das verständlich zu erklären. Danke im Vorraus