CommandButton
04.11.2008 13:37:50
Frank
Ingo aus dem Forum war mir bei diesem Code sehr behilflich
nun sollte ich aber noch einen CommandButton3 einfügen
der sollte bewirken das wenn ich den Preis in der TextBox=Preis
überschreibe diesen dann im Tabellenblatt ändert, nach Möglichkeit
erst noch eine Rückfrage z.B. MsgBox Ja/Nein
Wäre dies ohne größeren Aufwand noch zu machen?
Option Explicit
Dim wsh_name As String
Public blnSchalter As Boolean, blnSchalter2 As Boolean
Private Sub CommandButton2_Click()
Dim wsh_name As String
If Me.ComboBox1.Value "" Then
wsh_name = Me.ComboBox1
Unload Me
ThisWorkbook.Worksheets(wsh_name).Activate
Else
MsgBox "Bitte erst Kunde auswählen"
End If
End Sub
Private Sub UserForm_Initialize()
Dim wsh As Worksheet
Me.ComboBox1.Clear
For Each wsh In ThisWorkbook.Worksheets
Me.ComboBox1.AddItem wsh.Name
Next wsh
End Sub
Private Sub ComboBox1_Click()
Dim l_row As Long
Dim i_row As Integer
wsh_name = Me.ComboBox1
l_row = ThisWorkbook.Sheets(wsh_name).Range("A" & Rows.Count).End(xlUp).Row
Me.cboBezeichnung.Clear
Me.cboArtikelNr.Clear
Me.Bemerkung.Clear
For i_row = 5 To l_row
Me.cboArtikelNr.AddItem ThisWorkbook.Sheets(wsh_name).Cells(i_row, 1)
Me.cboBezeichnung.AddItem ThisWorkbook.Sheets(wsh_name).Cells(i_row, 2)
Next i_row
End Sub
Private Sub cboArtikelNr_Click()
Dim rng As Range
Me.Preis = ""
Me.cboBezeichnung.ListIndex = Me.cboArtikelNr.ListIndex
Set rng = ThisWorkbook.Sheets(wsh_name).Range("A:A").Find(Me.cboArtikelNr, LookIn:=xlValues, _
lookat:=xlWhole)
If Not rng Is Nothing Then
Me.Preis = rng.Offset(0, 2)
Me.Bemerkung = rng.Offset(0, 4)
End If
End Sub
Private Sub cboBezeichnung_Click()
Dim rng As Range
Me.Preis = ""
Me.cboArtikelNr.ListIndex = Me.cboBezeichnung.ListIndex
Set rng = ThisWorkbook.Sheets(wsh_name).Range("B:B").Find(Me.cboBezeichnung, LookIn:=xlValues, _
_
_
lookat:=xlWhole)
If Not rng Is Nothing Then
Me.Preis = rng.Offset(0, 1)
Me.Bemerkung = rng.Offset(0, 3)
End If
End Sub
Viele Grüsse
Frank