Microsoft Office Tutorials and References
In Depth Information
11.4.6 Unterdialogfeld »Kunden Ändern«
' Zeile mit ausgewähltem Kunden suchen
Zeile = ZeileFirmaSuchen(Me)
' Daten der Firma in Dialogfeld kopieren
lblKundennummer2.Caption = " " & Cells(Zeile, 1).Value
txtFirma.Text = Cells(Zeile, 2).Value
txtStrasse.Text = Cells(Zeile, 3).Value
txtPLZ.Text = Cells(Zeile, 4).Value
txtOrt.Text = Cells(Zeile, 5).Value
txtLand.Text = Cells(Zeile, 6).Value
txtEMail.Text = Cells(Zeile, 7).Value
End Sub
Zur Erläuterung:
Da dieser Vorgang auch im Unterdialogfeld Bestellungen Neu benö-
tigt wird, wurde eine Funktion ZeileFirmaSuchen() im gemeinsa-
men Modul geschrieben.
Nach erfolgreicher Suche werden die insgesamt sieben Informationen
über die Firma in die Textfelder im unteren Bereich des Dialogfelds
geschrieben.
Nur die Kundennummer wird in ein Bezeichnungsfeld geschrieben,
damit der Benutzer diese wichtige Information zwar sehen, aber nicht
versehentlich verändern kann.
Kundennummer
geschützt
Es folgt die Funktion aus dem gemeinsamen Modul:
' Zeilennummer der Firma liefern,
' die aktuell in der Liste angezeigt wird
Public Function ZeileFirmaSuchen(frm As UserForm) _
As Integer
Dim Zeile As Integer
' Zugehörige Tabelle aktivieren
ThisWorkbook.Worksheets("Kunden").Activate
' Zeile mit ausgewählter Firma suchen
Zeile = 2
Do While Cells(Zeile, 2).Value <> ""
If Cells(Zeile, 2).Value = _
frm.cmbFirmaSuchen.Text Then
Exit Do
End If
Zeile=Zeile+1
Loop
Search JabSto ::




Custom Search