Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
04.06.2020 18:39:59 |
Dietmar |
|
|
|
04.06.2020 19:22:58 |
Gast35886 |
|
|
|
05.06.2020 06:39:51 |
Dietmar |
|
|
|
05.06.2020 09:08:26 |
Gast35886 |
|
|
|
05.06.2020 10:48:06 |
Dietmar |
|
|
|
05.06.2020 11:17:43 |
Gast35886 |
|
|
Versuchs mal so: |
05.06.2020 18:07:44 |
Dietmar |
|
|
|
05.06.2020 18:43:08 |
Gast 35886 |
|
|
|
05.06.2020 19:51:21 |
Dietmar |
|
|
|
05.06.2020 20:29:15 |
Gast 35886 |
|
|
|
06.06.2020 09:04:40 |
Dietmar |
|
|
|
06.06.2020 14:14:23 |
Gast 35886 |
|
|
|
06.06.2020 14:16:48 |
Gast 35886 |
|
|
|
06.06.2020 14:18:24 |
Gast 35886 |
|
|
|
07.06.2020 08:46:57 |
Dietmar |
|
|
|
07.06.2020 08:58:52 |
Gast 35886 |
|
|
|
07.06.2020 09:01:59 |
Gast 35886 |
|
|
|
08.06.2020 17:12:09 |
Dietmar |
|
|
|
07.06.2020 11:37:10 |
Dietmar |
|
|
|
08.06.2020 19:16:35 |
Gast 35886 |
|
|
|
08.06.2020 19:54:28 |
Dietmar |
|
|
|
08.06.2020 23:19:19 |
Gast 35886 |
|
|
|
09.06.2020 08:07:26 |
Dietmar |
|
|
|
09.06.2020 08:22:34 |
Gast 35886 |
|
|
|
09.06.2020 11:49:06 |
Dietmar |
|
|
|
04.06.2020 19:30:34 |
Flotter Feger |
|
|
|
04.06.2020 19:36:37 |
Gast11642 |
|
|
Von:
Dietmar |
Datum:
05.06.2020 18:07:44 |
Views:
596 |
Rating:
|
Antwort:
|
Thema:
Versuchs mal so: |
Hallo Gast 35886,
sorry - es will einfach nicht. Es tur mir leid, aber ich glaube , habe jetzt alle Kombinationen durch.
Alle 3 Aufrufe probiert. Die jeweils nicht gültigen habe ich natürlich auskommentiert.
Hier der Code ...
Private Sub Befehl16_Click()
Dim i As Long, x As Long
With LST
For i = 0 To .ListCount - 1
If .Selected(i) Then
ReDim vnt(x)
vnt(x) = .ItemData(x) 'Wertzuweisung hier ?
MsgBox vnt(x)
x = x + 1
End If
Next
End With
'Debug.Print vnt(1) 'wenn aktiviert = keine Anzeige im Direktbereich
'Debug.Print vnt(0) 'wie vor
'siehe Beschreibung / Fehler
For i = LBound(vnt()) To UBound(vnt())
Debug.Print vnt()
Next i
End Sub
'
' #####Modul ####
Option Compare Database
Option Explicit
Public Function vnt() As Variant
'vnt() = array ' was ist hier gemeint ?
vnt() = vnt() 'so ? Irgendwie doppelt. Kein fehler aber nichts passiert.Der og. Eintrag erzeugt einen Fehler
End Function
'#########################################
Public Function VNT2() As Variant
'auch so probiert
'Debug.Print vnt(1)
'Debug.Print vnt(0)
'Debug.Print vnt(x)
'Debug.Print vnt()
'negativ
End Function
Egal wie,im Direktbereich ist nichts zu sehen.
|
- 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
|
|
04.06.2020 18:39:59 |
Dietmar |
|
|
|
04.06.2020 19:22:58 |
Gast35886 |
|
|
|
05.06.2020 06:39:51 |
Dietmar |
|
|
|
05.06.2020 09:08:26 |
Gast35886 |
|
|
|
05.06.2020 10:48:06 |
Dietmar |
|
|
|
05.06.2020 11:17:43 |
Gast35886 |
|
|
Versuchs mal so: |
05.06.2020 18:07:44 |
Dietmar |
|
|
|
05.06.2020 18:43:08 |
Gast 35886 |
|
|
|
05.06.2020 19:51:21 |
Dietmar |
|
|
|
05.06.2020 20:29:15 |
Gast 35886 |
|
|
|
06.06.2020 09:04:40 |
Dietmar |
|
|
|
06.06.2020 14:14:23 |
Gast 35886 |
|
|
|
06.06.2020 14:16:48 |
Gast 35886 |
|
|
|
06.06.2020 14:18:24 |
Gast 35886 |
|
|
|
07.06.2020 08:46:57 |
Dietmar |
|
|
|
07.06.2020 08:58:52 |
Gast 35886 |
|
|
|
07.06.2020 09:01:59 |
Gast 35886 |
|
|
|
08.06.2020 17:12:09 |
Dietmar |
|
|
|
07.06.2020 11:37:10 |
Dietmar |
|
|
|
08.06.2020 19:16:35 |
Gast 35886 |
|
|
|
08.06.2020 19:54:28 |
Dietmar |
|
|
|
08.06.2020 23:19:19 |
Gast 35886 |
|
|
|
09.06.2020 08:07:26 |
Dietmar |
|
|
|
09.06.2020 08:22:34 |
Gast 35886 |
|
|
|
09.06.2020 11:49:06 |
Dietmar |
|
|
|
04.06.2020 19:30:34 |
Flotter Feger |
|
|
|
04.06.2020 19:36:37 |
Gast11642 |
|
|