DropDown Liste Eintrag dynamisch vorselektieren

Dazu solltest Du das Selectmenu in einer Variablen speichern.
Wenn eine Formulareingabe fehlschlaegt, kannst Du dann den entsprechenden Eintrag ersetzen
Etwa so:

while($cat1 = mysql_fetch_array($ergebnis1))
                      {
                      $selecter .= "<option>".$cat1['cat_name']."</option>\n";
                      }
$selecter = ereg_replace("<option>" . $_REQUEST['BLAH'], "<option selected>" . $_REQUEST['BLAH'], $selecter);

und dann im HTML

<select name="BLAH"><? echo $selecter ?></select>

Wenn nun jemand zurueckgeworfen wird, existiert ja seine EIngabe von "BLAH" im $_REQUEST Array, und der Eintrag wird ersetzt.

Gaaanz einfach

Doch, die Options werden in der while-Schleife per
$selecter .=  angehaengt und zum Schluss wird ein vorhandener Uebergabewert auf default gesetzt.
Ich mach das immer so.

also der code sieht jetzt so aus und es kommt keine fehlermeldung mehr.
obwohl ich nur die "with" zeile eingefügt habe.

Private Sub CommandButton1_Click()
Dim ar As Variant, i As Long
Dim objDic As Object, strKey As String, varKey As Variant
Dim intMax As Integer, intCount As Integer, strMax As String

Set objDic = CreateObject("scripting.dictionary")
With Worksheets("Tabelle2")
ar = .Range(.Range("F2"), .Range("F1").End(xlDown))
End With
For i = 1 To UBound(ar)
strKey = LCase(Trim(ar(i, 1)))
If strKey <> "ok" Then objDic(strKey) = objDic(strKey) + 1
Next

intMax = 0
For Each varKey In objDic
intCount = objDic(varKey)
If intCount > intMax Then
intMax = intCount
strMax = varKey
End If
Next
MsgBox intMax, , strMax
objDic.RemoveAll
Set objDic = Nothing
End Sub