MsgBox oder Userform, wie?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: Alle Versionen
nach unten

Betrifft: MsgBox oder Userform, wie?
von: Frank
Geschrieben am: 28.06.2002 - 15:11:51

Hallo Experten,

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

nach oben   nach unten

Re: MsgBox oder Userform, wie?
von: Rolf, Lgh.
Geschrieben am: 28.06.2002 - 17:36:10

Hallo Frank,
vielleicht so:

Option Explicit

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

'UserForm mit
'- TextBox1
'- OptionButton1
'- OptionButton2
'- CommandButton1
Private Sub CommandButton1_Click()
  Dim Meldung
  If Not IsNumeric(TextBox1.Value) Then
    Meldung = MsgBox("Die Zahl fehlt!", vbCritical, "Fehler")
  End If
  If OptionButton1 = True Then
    Range("E8") = TextBox1.Value
  ElseIf OptionButton2 = True Then
    Range("F8") = TextBox1.Value
  Else
    Meldung = MsgBox("Es wurde keine Zahlungsart ausgewählt!", vbCritical, "Fehler")
  End If
End Sub


Gruß Rolf
nach oben   nach unten

Berichtigung
von: Rolf, Lgh.
Geschrieben am: 28.06.2002 - 17:42:52

Hallo Frank,
vielleicht so:

Option Explicit

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
    UserForm1.Show
  End Select
End Sub

'UserForm mit
'- TextBox1
'- OptionButton1
'- OptionButton2
'- CommandButton1
Private Sub CommandButton1_Click()
  Dim Meldung
  If Not IsNumeric(TextBox1.Value) Then
    Meldung = MsgBox("Die Zahl fehlt!", vbCritical, "Fehler")
  End If
  If OptionButton1 = True Then
    Range("E8") = TextBox1.Value
  ElseIf OptionButton2 = True Then
    Range("F8") = TextBox1.Value
  Else
    Meldung = MsgBox("Es wurde keine Zahlungsart ausgewählt!", vbCritical, "Fehler")
  End If
  Unload Me
End Sub


Gruß Rolf
nach oben   nach unten

Re: Berichtigung
von: Frank
Geschrieben am: 29.06.2002 - 09:22:20

Hallo Rolf,

danke für die schnelle Hilfe!
Bin noch Anfänger in Sachen VB. Daher meine Frage, wie ich den zweiten Teil ausführe bzw. wenn der Artikel eingegeben wird, wie ich erreiche, das sich das Userform öffnet zur Abfrage, ob bar oder ec und wieviel Artikel bezahlt werden.

Danke schon mal!

bis dann...

Frank


nach oben   nach unten

Re: Berichtigung
von: Rolf, Lgh.
Geschrieben am: 29.06.2002 - 11:14:40

Dann schau Dir erst mal das an: http://www.joanneum.ac.at/services/vbaexcel
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "MsgBox oder Userform, wie?"