alternativ
16.09.2003 14:17:37
Andi_H
Hi Scotty,
dann poste ich hier den Code und du bastelst selbst.
diesen Code in ein Modul einfügen(habe zwar einige Variablen deklariet welche ich gar nicht benutzt habe, aber lieber zuviel als zuwenig.
Global i, a, x, c, lastC, lasT, beG, Irow, Icol, Xrow, Xcol As Integer
Global name, str As String
Global ob as Object
Dann brauchst du eine Userform mit Namen Userform1
eine combobox (ComboBox1)
einen CommandButton (CommandButton1)
und x beliebig TextBoxen (TextBox1, Textbox2, ....)
Die Daten stehen im Tabellenblatt1 (Tabelle1 oder name im Code anpassen)
Namen werden In Spalte A ab Zeile 2 gelesen
andere Angaben wie Geburtsdatum ,.... in die weiteren Spalten. Wenn in Zeile 1 einer Spalte eine Überschrift steht erscheint automatisch dafür eine TExtbox, löscht du diese Überschrift verschwindet auch die TExtbox.
Viel Spaß bei basteln und hier ist der Code welcher in die Use´rform gehört.
Private Sub ComboBox1_Change()
If ComboBox1.Value <> "" Then
Xrow = ComboBox1.ListIndex + 2
lastC = Sheets("Tabelle1").Cells(1, 1).End(xlToRight).Column
For i = 1 To lastC
Controls("Textbox" & i) = Sheets("Tabelle1").Cells(Xrow, i + 1)
Next
End If
End Sub
Private Sub CommandButton1_Click()
Me.Hide
End Sub
Private Sub UserForm_Initialize()
lasT = Sheets("Tabelle1").Cells(5000, 1).End(xlUp).Row
For i = 2 To lasT
ComboBox1.AddItem Sheets("Tabelle1").Cells(i, 1)
Next
lastC = Sheets("Tabelle1").Cells(1, 1).End(xlToRight).Column
For Each ob In UserForm1.Controls
If TypeName(ob) = "TextBox" Then ob.Visible = False
Next
For i = 1 To lastC - 1
Controls("textbox" & i).Visible = True
Next
End Sub
Gruß
Andi