Clever-Excel-Forum

Hallo zusammen,

ich erstelle gerade ein Bestellformular und bin (mMn ^^) schon recht weit gekommen, dafür, dass ich mit VBA nichts an der Mütze habe.

Ganz sicher kann man einige Dinge schöner und expliziter programmieren... Ich weiß aber nicht wie und solange es funktioniert, bin ich erstmal zufrieden.

Nun bin ich aber an einem Punkt, an dem ich nicht weiter komme und eure Hilfe benötige.

Ich habe mal meine Datei angefügt.

Ich übernehme die oben (E8:H8) angegeben Informationen in meine Zusammenfassung ab Zeile 46. Dann wird ein bisschen formatiert etc.
Ich möchte nun die Artikelbeschreibung ("Description" in den Zellen B10:I10) ebenfalls in die entsprechende Zeile ab 46 in Spalte G hinzufügen.
Dies ist natürlich nicht so einfach möglich (für mich), weil ich ja eine neue Selektion machen müsste und diese nur unter die letzte Zeile geschrieben bekomme....

Hat jemand eine Idee?

Einen schönen Mittwoch wünsche ich.

Viele Grüße
Jenni

Hallo

Versuch mal den Code.

Code:
Sub EINFUEGEN_DING1()

If Range("G8").Value = "" Then DING1_qty

If Range("E8").Value = "" Then

   MsgBox ("No article choosed")

   Range("G8").Value = ""

   Exit Sub

Else

   Range("E8:H8").Copy

   Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

   ActiveCell.Offset(0, 6) = Range("B10")

   ActiveCell.Resize(1, 8).Borders.LineStyle = xlContinuous

   ActiveCell.Offset(0, 4).Value = ActiveCell.Offset(0, 2).Value * ActiveCell.Offset(0, 3).Value

   Range("G8:G8").Value = ""

   Cells(1).Select

End If

End Sub

Gruß Elex

Perfekt!

...und am Ende doch so einfach :33:

Vielen lieben Dank Smile

cassy

Elex

cassy