Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1296to1300
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Case von Textbox 2 soll in Textbox 3 wiederholen

Case von Textbox 2 soll in Textbox 3 wiederholen
06.02.2013 13:23:14
Textbox
Hallo User,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Case von Textbox 2 soll in Textbox 3 wiederholen
06.02.2013 17:12:29
Textbox
Hallo,
du sagst ja, "Blatt 1 und 2 sind vom Aufbau identisch". Und die Artikel und deren Reihenfolge hast du aus Blatt ja bereits in die ComboBox eingelesen. Dann kannst du dir die Suche nach dem Artikel sparen.
Wenn ich das richtig verstanden habe, dann hier ein Ansatz:
Option Explicit
Private Sub UserForm_Initialize()
Dim i As Long
Dim wks As Worksheet
Set wks = Sheets("Stückzahl")
With Me.ComboBox1
.Clear
For i = 3 To wks.UsedRange.Rows.Count
.AddItem wks.Cells(i, 1)
Next
End With
End Sub
Private Sub CommandButton1_Click()
Dim iKenn As Long
Dim index As Long
Dim i As Long
Dim Artikel As String
Dim Stückzahl As Long
Dim Gesamtpreis As Long
On Error GoTo Fehler
With Me
index = .ComboBox1.ListIndex
Artikel = .ComboBox1.List(index)
Stückzahl = .TextBox2.Text
Gesamtpreis = .TextBox3.Text
'Januar bis Dezember
For i = 1 To 12
If .Controls("OptionButton" & i) Then
iKenn = i
Exit For
End If
Next
End With
With Sheets("Stückzahl").Cells(index + 3, iKenn + 1)
.Value = .Value + Stückzahl
End With
With Sheets("Kosten").Cells(index + 3, iKenn + 1)
.Value = .Value + Gesamtpreis
End With
Exit Sub
Fehler:
MsgBox "Fehler"
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Gruß
Christian
Anzeige

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige