Croix-aigle
Mitglied
Ich möchte die Daten ab Zelle A17 eintragen lassen. A17 ist immer Belegt.
z.B.
ZeileEinfügen.PNG
Der Code ist Aktuell wie folgt, fügt aber die Werte erst ab "A45" ein, da diese von unten nach oben ganz leer sind.
Der Code ".Cells(Rows.Count, 1).End(xlUp).Row + 1" müsste für die Suche ab A17 angepasst werden.
Ziel ist es:
Wie im Bild ist A18 belegt.
1. Neuer Eintrag
Möglichkeit A) soll in "A19" die 3 Eintragen ("A18" +1) und dies für jede weitere Zeile, die eingetragen wird.
Möglichkeit B) A18 +1 über SVERWEIS, wenn B19 Name steht
2. somit Soll der nächste Wert in (B19 "txtEinsatz"), (C19"txtMenge"), (D19"txtKosten") eingetragen werden.
z.B.
ZeileEinfügen.PNG
Der Code ist Aktuell wie folgt, fügt aber die Werte erst ab "A45" ein, da diese von unten nach oben ganz leer sind.
Visual Basic:
Dim intFreienBereich As Long
With Worksheets("Rechnung")
intFreienBereich = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(intFreienBereich, 2).Value = Me.txtEinsatz.Value
.Cells(intFreienBereich, 3) = Me.txtMenge.Value
.Cells(intFreienBereich, 4) = CCur(Me.txtKosten.Value)
End With
End Sub
Der Code ".Cells(Rows.Count, 1).End(xlUp).Row + 1" müsste für die Suche ab A17 angepasst werden.
Ziel ist es:
Wie im Bild ist A18 belegt.
1. Neuer Eintrag
Möglichkeit A) soll in "A19" die 3 Eintragen ("A18" +1) und dies für jede weitere Zeile, die eingetragen wird.
Möglichkeit B) A18 +1 über SVERWEIS, wenn B19 Name steht
2. somit Soll der nächste Wert in (B19 "txtEinsatz"), (C19"txtMenge"), (D19"txtKosten") eingetragen werden.
Anhänge
Zuletzt bearbeitet von einem Moderator: