Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
20.07.2017 21:09:15 |
Daniel |
|
|
|
21.07.2017 01:08:39 |
Gast13947 |
|
|
|
21.07.2017 01:41:44 |
Gast81667 |
|
|
|
22.07.2017 17:47:35 |
Daniel |
|
|
|
22.07.2017 18:09:04 |
Gast80088 |
|
|
|
22.07.2017 19:44:45 |
Daniel |
|
|
|
22.07.2017 19:59:10 |
Gast63907 |
|
|
mehrere Textboxen gleichzeitig ausfüllen |
24.07.2017 13:35:24 |
DanielPrivate Sub Tx |
|
|
|
24.07.2017 14:59:07 |
Gast91885 |
|
|
|
24.07.2017 16:14:51 |
Daniel |
|
|
|
24.07.2017 17:07:13 |
Gast4733 |
|
|
|
24.07.2017 17:26:40 |
Gast33335 |
|
|
|
24.07.2017 22:05:47 |
Daniel |
|
|
|
25.07.2017 19:28:52 |
Gast37363 |
|
|
Von:
DanielPrivate Sub Tx |
Datum:
24.07.2017 13:35:24 |
Views:
614 |
Rating:
|
Antwort:
|
Thema:
mehrere Textboxen gleichzeitig ausfüllen |
Ach so ich wollte die Funktion 4 mal anweden weil immer 2 Textboxen verknüpft werden müssen und das 4 mal. mein ganzer Code sieht so aus:
Private Sub TxBx_EL_EWjeEFH_Change()
Call EWFillBoxes
End Sub
Private Sub TxBx_EWjeEFH_Change()
Call EWFillBoxes
End Sub
Private Sub TxBx_EL_WEjeMFH_Change()
Call WEFillBoxes
End Sub
Private Sub TxBx_WEjeMFH_Change()
Call WEFillBoxes
End Sub
Private Sub TxBx_NumEFH_Change()
Call EFHFillBoxes
End Sub
Private Sub TxBx_AnzEFH_Change()
Call EFHFillBoxes
End Sub
Private Sub TxBx_NumMFH_Change()
Call MFHFillBoxes
End Sub
Private Sub TxBx_AnzMFH_Change()
Call MFHFillBoxes
End Sub
Private Sub EFHFillBoxes()
Static EFHNoChange As Boolean
If Not EFHNoChange Then
EFHNoChange = True
ActiveSheet.Cells(1, 2).VAlue = ActiveControl.VAlue
EFHNoChange = False
End If
End Sub
Private Sub MFHFillBoxes()
Static MFHNoChange As Boolean
If Not MFHNoChange Then
MFHNoChange = True
ActiveSheet.Cells(2, 2).VAlue = ActiveControl.VAlue
MFHNoChange = False
End If
End Sub
Private Sub EWFillBoxes()
Static EWNoChange As Boolean
If Not EWNoChange Then
EWNoChange = True
ActiveSheet.Cells(3, 2).VAlue = ActiveControl.VAlue
EWNoChange = False
End If
End Sub
Private Sub WEFillBoxes()
Static WENoChange As Boolean
If Not WENoChange Then
WENoChange = True
ActiveSheet.Cells(4, 2).VAlue = ActiveControl.VAlue
WENoChange = False
End If
End Sub
Meine Excel Tabelle hab ich in ActiveSheet umbenannt und es werden in der Spalte B die Zellen 1, 2, 3, 4 angesprochen.
Im ControlSource jedes Testfeldes wird mit der dazugehörigen Zelle Verbunden "ActiveSheet!B3" zum Beispiel.
So wie der Code jetzt ist tritt immer noch der Laufzeitfehler 91 auf
hoffentlich kann mir jemand helfen :)
|
- 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
|
|
20.07.2017 21:09:15 |
Daniel |
|
|
|
21.07.2017 01:08:39 |
Gast13947 |
|
|
|
21.07.2017 01:41:44 |
Gast81667 |
|
|
|
22.07.2017 17:47:35 |
Daniel |
|
|
|
22.07.2017 18:09:04 |
Gast80088 |
|
|
|
22.07.2017 19:44:45 |
Daniel |
|
|
|
22.07.2017 19:59:10 |
Gast63907 |
|
|
mehrere Textboxen gleichzeitig ausfüllen |
24.07.2017 13:35:24 |
DanielPrivate Sub Tx |
|
|
|
24.07.2017 14:59:07 |
Gast91885 |
|
|
|
24.07.2017 16:14:51 |
Daniel |
|
|
|
24.07.2017 17:07:13 |
Gast4733 |
|
|
|
24.07.2017 17:26:40 |
Gast33335 |
|
|
|
24.07.2017 22:05:47 |
Daniel |
|
|
|
25.07.2017 19:28:52 |
Gast37363 |
|
|