Thema Datum  Von Nutzer Rating
Antwort
04.06.2020 18:39:59 Dietmar
NotSolved
04.06.2020 19:22:58 Gast35886
NotSolved
05.06.2020 06:39:51 Dietmar
NotSolved
05.06.2020 09:08:26 Gast35886
NotSolved
05.06.2020 10:48:06 Dietmar
NotSolved
05.06.2020 11:17:43 Gast35886
NotSolved
05.06.2020 18:07:44 Dietmar
NotSolved
05.06.2020 18:43:08 Gast 35886
NotSolved
05.06.2020 19:51:21 Dietmar
NotSolved
05.06.2020 20:29:15 Gast 35886
NotSolved
06.06.2020 09:04:40 Dietmar
NotSolved
06.06.2020 14:14:23 Gast 35886
NotSolved
06.06.2020 14:16:48 Gast 35886
NotSolved
06.06.2020 14:18:24 Gast 35886
NotSolved
Rot 3 neue Probleme (korrigierte Ansicht & Deine korrigierte Function)
07.06.2020 08:46:57 Dietmar
NotSolved
07.06.2020 08:58:52 Gast 35886
NotSolved
07.06.2020 09:01:59 Gast 35886
NotSolved
08.06.2020 17:12:09 Dietmar
NotSolved
07.06.2020 11:37:10 Dietmar
NotSolved
08.06.2020 19:16:35 Gast 35886
NotSolved
08.06.2020 19:54:28 Dietmar
NotSolved
08.06.2020 23:19:19 Gast 35886
Solved
09.06.2020 08:07:26 Dietmar
NotSolved
09.06.2020 08:22:34 Gast 35886
NotSolved
09.06.2020 11:49:06 Dietmar
NotSolved
04.06.2020 19:30:34 Flotter Feger
NotSolved
04.06.2020 19:36:37 Gast11642
NotSolved

Ansicht des Beitrags:
Von:
Dietmar
Datum:
07.06.2020 08:46:57
Views:
613
Rating: Antwort:
  Ja
Thema:
3 neue Probleme (korrigierte Ansicht & Deine korrigierte Function)

Sonntag Morgen und gleich getestet.

 

Bringt in der Sub einen Laufzeitfehler..

:(

 

Laufzeitfehler 9

Index außerhalb des gültigen Bereichs

 

Verweist auf den For / Next Bereich

Dim i As Long, x As Long
    Dim v As Variant
    With LST
            For Each v In .ItemsSelected
                    ReDim vnt(x)
                    vnt(x) = .ItemData(v)       'habe auch mit X probiert ( negativ ) - siehe alter Code
                    x = x + 1
            Next
    End With
       
 
    For i = LBound(vnt()) To UBound(vnt())
        Debug.Print fnSTAAT(vnt(i))
    Next i
    

Gruß Dietmar

 


Ihre Antwort
  • 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: Name: Email:



  • 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
NotSolved
04.06.2020 19:22:58 Gast35886
NotSolved
05.06.2020 06:39:51 Dietmar
NotSolved
05.06.2020 09:08:26 Gast35886
NotSolved
05.06.2020 10:48:06 Dietmar
NotSolved
05.06.2020 11:17:43 Gast35886
NotSolved
05.06.2020 18:07:44 Dietmar
NotSolved
05.06.2020 18:43:08 Gast 35886
NotSolved
05.06.2020 19:51:21 Dietmar
NotSolved
05.06.2020 20:29:15 Gast 35886
NotSolved
06.06.2020 09:04:40 Dietmar
NotSolved
06.06.2020 14:14:23 Gast 35886
NotSolved
06.06.2020 14:16:48 Gast 35886
NotSolved
06.06.2020 14:18:24 Gast 35886
NotSolved
Rot 3 neue Probleme (korrigierte Ansicht & Deine korrigierte Function)
07.06.2020 08:46:57 Dietmar
NotSolved
07.06.2020 08:58:52 Gast 35886
NotSolved
07.06.2020 09:01:59 Gast 35886
NotSolved
08.06.2020 17:12:09 Dietmar
NotSolved
07.06.2020 11:37:10 Dietmar
NotSolved
08.06.2020 19:16:35 Gast 35886
NotSolved
08.06.2020 19:54:28 Dietmar
NotSolved
08.06.2020 23:19:19 Gast 35886
Solved
09.06.2020 08:07:26 Dietmar
NotSolved
09.06.2020 08:22:34 Gast 35886
NotSolved
09.06.2020 11:49:06 Dietmar
NotSolved
04.06.2020 19:30:34 Flotter Feger
NotSolved
04.06.2020 19:36:37 Gast11642
NotSolved