Thema Datum  Von Nutzer Rating
Antwort
16.05.2019 18:01:29 JD
NotSolved
17.05.2019 08:18:39 Gast87236
*****
Solved
Rot ListBox Inhalte speichern
 17.05.2019 12:13:32 Flotter Feger
NotSolved
17.05.2019 13:54:11 JD
NotSolved
17.05.2019 16:53:49 Flotter Feger
NotSolved

Ansicht des Beitrags:
Von:
Flotter Feger		 Datum:
17.05.2019 12:13:32		 Views:
453		 Rating:
     
Antwort:
  Ja
Thema:
ListBox Inhalte speichern

Hallo,

wenn du der Antwort 5 Sterne gibst, bin ich gespannt, wie du den Code bewertest ...

Private Sub Userform_Initialize()
    Call ManageMyLIST(ListBox1, True)  'lesen
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Call ManageMyLIST(ListBox1, False) 'schreiben
End Sub

Private Sub ManageMyLIST(ByVal CTL As Object, Optional ReadWrite As Boolean = True)

With Worksheets("SETUP").Range("A1") ' Worksheet anpassen - in diesem Worksheet sollte nichts anderes stehen !!!
    If ReadWrite = True Then 'lesen
        CTL.List = .CurrentRegion.Value
    Else
        .CurrentRegion.ClearContents
        .Resize(CTL.ListCount, CTL.ColumnCount).Value = CTL.List
        CTL.Clear
    End If
End With
End Sub

VG Sabina

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
16.05.2019 18:01:29 JD
NotSolved
17.05.2019 08:18:39 Gast87236
*****
Solved
Rot ListBox Inhalte speichern
 17.05.2019 12:13:32 Flotter Feger
NotSolved
17.05.2019 13:54:11 JD
NotSolved
17.05.2019 16:53:49 Flotter Feger
NotSolved