Herbers Excel-Forum - das Archiv

Suche Code???

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Suche Code???
von: Jürgen

Geschrieben am: 16.04.2005 14:55:26
Hallo Leute
Suche Code für Userform zum Einlesen von Daten in Textboxen.
Trage über Textbox Daten ins Tabellenblatt.
Möchte nun über Comboboxauswahl und Suchbutton Einträge zurück in die Textboxen holen und anzeigen lassen.
Geht das?
anbei Beispieldatei
https://www.herber.de/bbs/user/21244.xls

Gruss und schönes Wochenende
Jürgen
Bild

Betrifft: AW: Suche Code???
von: Beni

Geschrieben am: 16.04.2005 17:27:49
Hallo Jürgen,
Gruss Beni
Private Sub ComboBox1_Change()
PersNr = CInt(ComboBox1)
Set P = Sheets("Personaldaten").Columns(1).Find(What:=PersNr, LookIn:=xlValues, LookAt:=xlWhole)
If Not P Is Nothing Then
For tb = 1 To 17
Controls("TextBox" & CStr(tb)) = P(1, tb)
Next tb
End If
End Sub

Bild

Betrifft: AW: Suche Code??? Super-klappt O.T
von: Jürgen
Geschrieben am: 16.04.2005 17:57:51
.
 Bild
Excel-Beispiele zum Thema "Suche Code???"
Codeblatt mit Rändern drucken Code aufrufen und löschen
Aus AddIn neue Arbeitsmappe mit Code erstellen Tabellencode nach Kopieren des Blattes löschen
Benutzerdefinierte Funktion durch Code erstellen und löschen Für ein VBE-Projekt mit VBA-Code ein Paßwort festlegen
Zeile in einem Code-Modul austauschen UserForm mit ComboBoxes durch VBA-Code erstellen
ComboBoxes per VBA-Code in Tabellenblatt erzeugen Neue Schaltfläche mit zugehörigem Code in Tabellenblatt