ich habe ein Userform auf meine Bedürfnisse angepasst. Der Wert Textbox 2 wird über eine Case-Anweisung ausgegeben auf dem 1. Blatt "Stückzahl".
Im zweiten Schritt soll der Wert Textbox 3, die gleiche Case-Anweisung, im 2. Blatt "Gesamtpreis" ausgegeben werden.
Blatt 1 und 2 sind vom Aufbau identisch. Nur bekomme ich es einfach nicht hin.
https://www.herber.de/bbs/user/83793.xls
Code:
Option Explicit
Private Sub ComboBox1_Change()
End Sub
Private Sub Frame1_Click()
End Sub
Private Sub UserForm_Initialize()
Dim frm As UserForm
Dim i As Long
Dim iMax As Long
Set frm = UserForm11
Application.ScreenUpdating = False
With frm.ComboBox1
.Clear
iMax = ActiveSheet.UsedRange.Rows.Count
For i = 3 To iMax
.AddItem Sheets("Stückzahl").Cells(i, 1)
Next i
End With
Application.ScreenUpdating = True
End Sub
Private Sub CommandButton1_Click()
Dim frm As UserForm
Dim iKenn As Integer
Dim index As Long
Dim Artikel As String
Dim Stückzahl As Integer
Dim Gesamtpreis As Integer
Set frm = UserForm11
index = frm.ComboBox1.ListIndex
On Error Resume Next
Artikel = frm.ComboBox1.List(index)
Stückzahl = frm.TextBox2.Text ' Blatt " Stückzahl"
Gesamtpreis = frm.TextBox3.Text ' Blatt " Gesamtpreis"
If frm.OptionButton1.Value Then iKenn = 1 'Januar
If frm.OptionButton2.Value Then iKenn = 2 'Februar
If frm.OptionButton3.Value Then iKenn = 3 'März
If frm.OptionButton4.Value Then iKenn = 4 'April
If frm.OptionButton5.Value Then iKenn = 5 'Mai
If frm.OptionButton6.Value Then iKenn = 6 'Juni
If frm.OptionButton7.Value Then iKenn = 7 'Juli
If frm.OptionButton8.Value Then iKenn = 8 'August
If frm.OptionButton9.Value Then iKenn = 9 'September
If frm.OptionButton10.Value Then iKenn = 10 'Oktober
If frm.OptionButton11.Value Then iKenn = 11 'November
If frm.OptionButton12.Value Then iKenn = 12 'Dezember
Sheets("Stückzahl").Activate ' aktiviert Blatt "Stückzahl"
Columns("A:A").Select
On Error GoTo fehler
Selection.Find(What:=frm.ComboBox1.Value, After:=ActiveCell, LookIn:=xlValues _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Select Case iKenn
Case 1
ActiveCell.Offset(0, 1).Select
Case 2
ActiveCell.Offset(0, 2).Select
Case 3
ActiveCell.Offset(0, 3).Select
Case 4
ActiveCell.Offset(0, 4).Select
Case 5
ActiveCell.Offset(0, 5).Select
Case 6
ActiveCell.Offset(0, 6).Select
Case 7
ActiveCell.Offset(0, 7).Select
Case 8
ActiveCell.Offset(0, 8).Select
Case 9
ActiveCell.Offset(0, 9).Select
Case 10
ActiveCell.Offset(0, 10).Select
Case 11
ActiveCell.Offset(0, 11).Select
Case 12
ActiveCell.Offset(0, 12).Select
Case Else
MsgBox "Fehlursache konnte nicht ermittelt werden!"
End Select
ActiveCell.Value = ActiveCell.Value + Stückzahl ' Textbox Wahl
Exit Sub
Sheets("Gesamtpreis").Activate
Columns("A:A").Select
On Error GoTo fehler
Selection.Find(What:=frm.ComboBox1.Value, After:=ActiveCell, LookIn:=xlValues _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Select Case iKenn
Case 1
ActiveCell.Offset(0, 1).Select
Case 2
ActiveCell.Offset(0, 2).Select
Case 3
ActiveCell.Offset(0, 3).Select
Case 4
ActiveCell.Offset(0, 4).Select
Case 5
ActiveCell.Offset(0, 5).Select
Case 6
ActiveCell.Offset(0, 6).Select
Case 7
ActiveCell.Offset(0, 7).Select
Case 8
ActiveCell.Offset(0, 8).Select
Case 9
ActiveCell.Offset(0, 9).Select
Case 10
ActiveCell.Offset(0, 10).Select
Case 11
ActiveCell.Offset(0, 11).Select
Case 12
ActiveCell.Offset(0, 12).Select
Case Else
MsgBox "Fehlursache konnte nicht ermittelt werden!"
End Select
ActiveCell.Value = ActiveCell.Value + Gesamtpreis ' Textbox Wahl
Exit Sub
fehler:
MsgBox "Es konnte keine Stückzahl gefunden werden!"
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Für Hilfe wäre ich sehr dankbar.
Gustav