Hallo zusammen,
hier habe ich ein Problem, welches ich mir nicht erklären kann.
Ursprünglicher Quellcode Auszug:
For Each cb In Me.Controls
If TypeName(cb) = "ComboBox" Then
z = 1 ' Hinweis: FC 380 ListenIndex: Es muss der Zelleneintrag immer gesetzt werden hier geht der Eintrag ab Zelle A3 los
s = 1
While Worksheets("Speisen_mit_Preisen").Cells(z, s) <> "" And _
cb.Tag <> Worksheets("Speisen_mit_Preisen").Cells(z, s) '*hier bei beiden Speisen_mit_Preisen machen
s = s + 1
Wend
z = 2 'Hinweis: FC 380 ListenIndex: Es muss der Zelleneintrag immer gesetzt werden hier geht der Eintrag ab Zelle A3 los
While Worksheets("Speisen_mit_Preisen").Cells(z, s) <> ""
cb.AddItem Worksheets("Speisen_mit_Preisen").Cells(z, s) _
& vbTab & Worksheets("Speisen_mit_Preisen").Cells(z, s + 1).text '* Damit alle Eingabe der CB passen immer das neue Tabellenblatt mit Preisen nutzen
z = z + 1
Wend
cb.ListIndex = 0
End If
Next
Me.txt_Datum_Zeit = Format(Now, "dd-mm-yy hh:mm")
Warum wird hier (in Fett) .text immer automatisch klein geschrieben, obwohl ich .Text eingebe?
Woran liegt das & wie kann man dieses Problem beheben?
Vielen Dank an alle die Tipps für mich haben.
FG
Claus
|