habe ein Tabellenblatt, bei dem ich über eine Artikelnummer automatisch das Produkt und den Preis in jeweils eine Zelle ausgeben lasse.
Nun habe ich bereits einen Beitrag aus diesem genialen Forum umgesetzt, der es ermöglicht, bei Click auf die Zelle zur Zahlungsweise (1 Zelle bar, 1 Zelle EC) eine MsgBox öffnet, in der ich eine Zahl eingebe die dann wiederum zurückgegeben wird in die Zellen bar oder ec.
Sinnvoller ist natürlich eine Auswahlmöglichkeit über ein Userform, mit der Wahl zwischen bar und ec, wobei bei click auf bar oder ec und Bestätigung auf ok die entsprechende Zahl in der zelle bar oder ec zurückgegeben wird. Falls in den zellen bar und ec schon ein eintrag besteht, sollte ein Hinzufügen möglich sein.
Folgendes habe ich bereits in das Tabellenblatt eingesetzt:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strWert$
Select Case Target.Address(RowAbsolute:=False, ColumnAbsolute:=False)
Case "E8", "F8": 'Zellen bar und EC
strWert = InputBox("Bitte geben Sie die " + _
Target.Address(RowAbsolute:=False, ColumnAbsolute:=False) + _
" Anzahl ein: ", "Zahlungsweise")
If strWert$ = "" Then Exit Sub
'MsgBox strWert
Target.Value = strWert
End Select
End Sub
Falls Ihr wißt, wie man das in einem Userform umsetzt, bitte um Eure Hilfe!
Ich danke Euch Allen schon jetzt für Eure Hilfe!!!
bis dann
Grüße Frank