Office: (Office 2010) Excel VBA Click Ereignis verketten

Hallo,

ich bin dabei mich in vba einzuarbeiten. Einiges habe ich auch bereits erfolgreich hinbekommen...

Aber ich verzweifel an einem vermutlich einfachen Problem und mir will die Lösung einfach nicht gelingen:

Ich habe eine Userform mit mehreren Textboxen und ein paar CommandButtons.

Zwei Textboxen, die eine heißt "Kundennummer", die andere heißt "Betrag". Bei klick auf einen Command Button ("Nächster Eintrag") sollen die eingegebenen Werte in das aktuell geöffnete Tabellenblatt übertragen werden und zwar für Kundennummer beginnend in Zelle A5 und dann die jeweils nächste freie Zelle in Spalte A. Ähnlich für "Betrag", nur das der erste Betrag in Zelle E5 eingetragen werden soll.

Leider klappt bei mir eines von beiden, ich bekomm die beiden Ereignisse einfach nicht verbunden.

Hier der Code bisher für den Button "nächster Eintrag":

Code:

Private Sub NächsterEintrag_Click()
    Sheets("01.10.2015").Range("B5").Value = CDbl(Kundennummer.Value)
    Cells(Cells(Rows.Count, "B").End(xlUp).Row + 1, "B").Value = CDbl(Kundennummer.Value)
    
    Sheets("01.10.2015").Range("E5").Value = CCur(Betrag.Value)
    Cells(Cells(Rows.Count, "E").End(xlUp).Row + 1, "E").Value = CCur(Betrag.Value)
End Sub

Ich hoffe mir kann hier jemand helfen.

Sollte ich mich unklar ausgedrückt haben, oder sollten irgendwelche Fragen sein: Ich versuche alles so gut ich kann zu erläutern.

 

Hallo,

du sprichst zwar in deinem Posting von Zelle A5, im Code hast du aber Zelle B5 stehen - daher bin ich bei Zelle B5 geblieben.

Mein Code geht - abweichend von dir - von der Annahme aus, dass du beides (Kundennummer+Betrag) jeweils in der gleichen Zeile stehen haben möchtest. Aus diesem Grund habe ich nur 1 Variable "NächsteZeileNr" angelegt. Falls dies bei dir wider Erwarten anders sein sollte, müsstest du für Spalte E eine 2. Variable anlegen und analog zu Spalte B dann vorgehen.

Code:

Private Sub NächsterEintrag_Click()
  Dim NächsteZeileNr As Long
  
  With Sheets("01.10.2015")
  
    NächsteZeileNr = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
    If NächsteZeileNr < 5 Then NächsteZeileNr = 5
    
    .Cells(NächsteZeileNr, "B").Value = CDbl(Kundennummer.Value)
    .Cells(NächsteZeileNr, "E").Value = CCur(Betrag.Value)
    
  End With
End Sub

 

Hallo,

ups, ja ich meinte natürlich Zelle B5. Formel war richtig, Posting falsch. Richtig verstanden.

Dein Code funktioniert übrigens und ist genau das was ich gesucht habe. Vielen Dank erstmal!
Ich bastel weiter an der Datei und baue diese weiter aus!

Super, dass mir so schnell geholfen wurde, wobei ich sagen muss, ich verstehe zwar was der Code macht, aber ich bin noch nicht sicher ob ich diesen selber schreiben könnte, also so richtig verstanden habe ich den noch nicht. Ich werde aber ein wenig daran rumschreiben und experimentieren und das dann sicher auch bald verstehen ;)

Vielen Dank!