AW: Noch eine Anmerkung
29.05.2006 09:05:51
Heiko
Hallo Paul,
habe mir mein Beispiel hier vom Server zum Test wieder runtergelden, läuft.
Dann aml ganz ohne Mappe, so sieht der neue Code "hinter" dem Userform1 aus:
Option Explicit
' NEU !!!
Dim bolWarten As Boolean
Private Sub ComboBox1_Change()
Dim inti As Integer
' NEU !!!
If bolWarten Then Exit Sub
' Nach Auswahl eines Wertes nun alles in die Textboxen schrieben.
For inti = 1 To 9
Me.Controls("TextBox" & inti) = Me.ComboBox1.List(ComboBox1.ListIndex, inti - 1)
Next inti
End Sub
' NEU !!!
Private Sub CommandButton1_Click()
Dim inti As Integer
' Nach Auswahl eines Wertes nun alles in die Textboxen schrieben.
bolWarten = True
For inti = 1 To 9
' !!! Hier an deine Tabelle anpassen, also z.b. ich starte bei A1, wenn du bei F7 startest
' dann so Worksheets("Daten").Cells(Me.ComboBox1.ListIndex + 7, inti + 5) = Me.Controls("TextBox" & inti)
Worksheets("Daten").Cells(Me.ComboBox1.ListIndex + 1, inti) = Me.Controls("TextBox" & inti).Text
Next inti
bolWarten = False
End Sub
Private Sub UserForm_Activate()
Dim lngLastRow As Long
' Hiermit ist es schon mal flexibel, beim Aufruf des Userforms wird immer geguckt
' was der letzte Eintrag in Spalte B ist um dann alles von A1 bis H letzteZeile
' in die Combobox zu laden.
' Ich lade auch gleich alles da rein dann braucht man nach der Auswahl nicht mehr im Tabellen-
' blatt zu suchen.
lngLastRow = Worksheets("Daten").Cells(Rows.Count, 2).End(xlUp).Row
Me.ComboBox1.RowSource = Worksheets("Daten").Range("A1:I" & lngLastRow).Address
' Es wird nur die 2 Spalte in der Combobox angezeigt, obwohl alle Daten drin stehen
' Eigenschaft ColumnCount = 2
' Eigenschaft ColunmWidths = 0 Pt; 113,4 PT
End Sub
Gruß Heiko
PS: Rückmeldung wäre nett !