AW: InputBox LFZ '13 bei Abbruch durch den Benutzer
21.06.2013 12:03:36
Flo
Hallo Hajo,
ist wie gesagt nur ein Auszug der InBox nachstehend der gesamte Code, allerdings bezieht der sich auf ein Worksheet. Der Code funzt einwandfrei. Ich will nur eine Funktion auf dem Abbruch-Button der Inputbox...
Sub Artikeldropdown()
'Artikeldropdown
aSheet = Sheets("Angebot & Rechnungsblatt").DrawingObjects("Dropdown 4")
u_b = Sheets("Artikel").Cells(aSheet, 1) 'Artikelstammdaten : _
Bezeichnung
v_b = Sheets("Artikel").Cells(aSheet, 3) 'Artikelstammdaten : Einheit
w_b = Sheets("Artikel").Cells(aSheet, 4) 'Artikelstammdaten : Preis
ActiveCell.Formula = u_b
ActiveCell.Offset(0, 1).Formula = v_b
ActiveCell.Offset(0, 3).Formula = w_b
Selection.Offset(0, 2).Select
'Abfrage Mengenangabe
MengeInBox = InputBox("Geben Sie bitte die Menge an.", "Menge")
ActiveCell.FormulaR1C1 = MengeInBox
'Abfrage Preis
Selection.Offset(0, 1).Select
If ActiveCell = "" Then
PreisInBox = InputBox("Geben Sie bitte den Einzelpreis an.", "Einzelpreis")
ActiveCell.FormulaR1C1 = PreisInBox
End If
'Formatierung
Selection.Offset(0, -4).Select
ActiveCell.Range("A1:F1").Select
With Selection
.Font.Bold = False
.Font.Italic = False
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
'Sprung zu nächster freier Zelle
ActiveCell.Offset(2, 1).Select
End Sub