Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.03.2011 14:42:26 |
daniel001 |
|
|
|
07.03.2011 14:43:42 |
daniel001 |
|
|
|
07.03.2011 14:50:01 |
Gast42947 |
|
|
|
07.03.2011 15:13:48 |
Severus |
|
|
|
07.03.2011 15:26:32 |
daniel001 |
|
|
|
07.03.2011 16:03:16 |
daniel001 |
|
|
|
07.03.2011 16:25:01 |
Severus |
|
|
|
07.03.2011 16:41:01 |
Gast3944 |
|
|
|
07.03.2011 16:44:12 |
Daniel001 |
|
|
|
07.03.2011 16:55:20 |
daniel001 |
|
|
|
07.03.2011 17:58:32 |
Severus |
|
|
|
08.03.2011 10:27:52 |
Gast27201 |
|
|
|
08.03.2011 12:22:28 |
Severus |
|
|
|
08.03.2011 12:36:32 |
Gast14356 |
|
|
|
08.03.2011 13:32:55 |
Severus |
|
|
|
08.03.2011 14:05:04 |
Severus |
|
|
Laufzeitfehler -2147024809 (80070057) |
08.03.2011 14:12:11 |
Severus |
|
|
|
08.03.2011 15:28:56 |
Gast79202 |
|
|
|
15.03.2011 16:37:22 |
daniel001 |
|
|
|
15.03.2011 17:33:36 |
Severus |
|
|
|
16.03.2011 10:27:45 |
daniel001 |
|
|
Von:
Severus |
Datum:
08.03.2011 14:12:11 |
Views:
1281 |
Rating:
|
Antwort:
|
Thema:
Laufzeitfehler -2147024809 (80070057) |
Ein weiterer Hinweis: Wenn Du die TextColumn Eigenschaft bei CB1 auf 1 und bei CB2 auf 2 setzt kann man den Code auch so gestalten:
Private Function TB_fuellen() As String
Dim ctrCTR As Control
Dim ctrCB As ComboBox
Dim strTBText As String
TB_fuellen = ""
For Each ctrCTR In Me.Controls
If InStr(1, UCase(ctrCTR.Name), "COMBOBOX", vbBinaryCompare) <> 0 Then
Set ctrCB = ctrCTR
If ctrCB.ListIndex = -1 Then
Set ctrCB = Nothing
Exit Function
Else
strTBText = strTBText & ctrCB.Text
Set ctrCB = Nothing
End If
End If
Next
TB_fuellen = strTBText
End Function
OK. Ein bißchen was mußt Du ja auch tun.
Severus
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.03.2011 14:42:26 |
daniel001 |
|
|
|
07.03.2011 14:43:42 |
daniel001 |
|
|
|
07.03.2011 14:50:01 |
Gast42947 |
|
|
|
07.03.2011 15:13:48 |
Severus |
|
|
|
07.03.2011 15:26:32 |
daniel001 |
|
|
|
07.03.2011 16:03:16 |
daniel001 |
|
|
|
07.03.2011 16:25:01 |
Severus |
|
|
|
07.03.2011 16:41:01 |
Gast3944 |
|
|
|
07.03.2011 16:44:12 |
Daniel001 |
|
|
|
07.03.2011 16:55:20 |
daniel001 |
|
|
|
07.03.2011 17:58:32 |
Severus |
|
|
|
08.03.2011 10:27:52 |
Gast27201 |
|
|
|
08.03.2011 12:22:28 |
Severus |
|
|
|
08.03.2011 12:36:32 |
Gast14356 |
|
|
|
08.03.2011 13:32:55 |
Severus |
|
|
|
08.03.2011 14:05:04 |
Severus |
|
|
Laufzeitfehler -2147024809 (80070057) |
08.03.2011 14:12:11 |
Severus |
|
|
|
08.03.2011 15:28:56 |
Gast79202 |
|
|
|
15.03.2011 16:37:22 |
daniel001 |
|
|
|
15.03.2011 17:33:36 |
Severus |
|
|
|
16.03.2011 10:27:45 |
daniel001 |
|
|