VBA-Code ändern

[Crazy Tom]

moin,

warum immer mit Array?

Code:

    Dim i As Long
    For i = 0 To 2
        With Cells(i + 1, 1)
            .Value = CDate(TextBox1.Value) + i
            .NumberFormat = "ddd d.mm yy"
        End With
    Next

mfg Tom

[johammer]

Moin CrazyTom,

zu deiner Frage wegen Array, wahrscheinlich weil es in der Userform
6 Textfelder und 2 Comboboxen gibt.
Ich probiere es mal mit deinem Vorschlag, wo genau in dem Code muß der eingetragen werden?

LG Jo

---

Hallo CrazyTom,

hab dein Code in den anderen eingefügt, bekomme aber einen Fehler.

   

Gruß Jo

[Klaus-Dieter]

Hallo Jo,

das sagt die Meldung doch ganz klar aus, du hast eine Variable mehrfach deklariert.

[johammer]

Hallo Klaus Dieter, Moin,

ja das hab ich mir schon gedacht.

Wahrscheinlich müsste der ganze Code neu geschrieben werden mit dem
Datumsformat integriert.
Möchte aber niemand auf den Wecker gehen damit.
Wenn jemand von den VBAlern sich den Code nochmal anschauen könnte, wär ich dankbar dafür.
Bin ja schon froh darüber, das das Makro einwandfrei die Arbeit macht so wie ich das gedacht habe.

Kann aber auch damit leben,
wenn ich denn 100 Einträge gemacht hab und dann die Datumsspalte
händisch umformatiere.

Jo

[Crazy Tom]

warum nicht eine Beispieldatei einstellen?
da bin ich mir sicher dass es keine 13 Forumsbeiträge braucht
um einen funktionierenden Code zu erstellen

[johammer]

Hei Crazy Tom,

ja, das ist doch kein Problem.
Dafür brauche ich allerdings etwas Zeit, weil sind über 4000 Zeilen.
Muß ich etwas entschlacken.

Grß jo

[johammer]

Hallo Crazy Tom,

hab die Originaldatei kopiert und stark reduziert.
Füge sie mal als Anhang bei.

Gruß Jo

[Klaus-Dieter]

Hallo Jo,

da steht doch ein Datum mit dem richtigen Format drin, wo ist dein Problem?

[johammer]

Hei Klaus Dieter,
ja klar, hab das doch händisch eingetragen,
In den oberen 3 Zeilen steht das Datum, das bei dem Eintrag ins Blatt erzeugt wird.
Hätte es aber gerne so wie in den unteren Zeilen (händisch)
das ist das Datum, das eingetragen wird über dem Textfeld Date (TT. MM. JJ) 29.05.2024
und das würde ich gerne einsetzen (TTT. T. MMM JJ) Mi 29. Mai 24

Gruß Jo

[Crazy Tom]

ich würde es auf diese Weise lösen
wobei man sicher die Überprüfung der Textfelder auf Zahlen noch ändern sollte

Code:

Private Sub btnAnlegen_Click()
    Dim lngZiel As Long
    With Sheets("Eingabe Einkäufe ")
        lngZiel = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
        .Cells(lngZiel, 2).Value = CDate(txtDatum.Value)
        .Cells(lngZiel, 2).NumberFormat = "ddd d.mmm yy"
        .Cells(lngZiel, 3).Value = CbHändler.Text
        .Cells(lngZiel, 4).Value = txtArtikel
        .Cells(lngZiel, 5).Value = txtEinheit
        .Cells(lngZiel, 8).Value = txtEinzelpreis
        .Cells(lngZiel, 7).Value = txtMenge
        If IsNumeric(txtEinzelpreis) And IsNumeric(txtMenge) Then
            txtGesamtpreis = CDbl(txtEinzelpreis) * CDbl(txtMenge)
        End If
        .Cells(lngZiel, 9).Value = CDbl(txtGesamtpreis)
        .Cells(lngZiel, 6).Value = CbKategorie.Text
    End With
End Sub

und das userform_Click... kannste löschen

mfg Tom