Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Excel VBA - Listbox mit Array befüllen und Auswahl in Array zurückschreiben

Frage Entwicklung VB for Applications

Mitglied: chef1568

chef1568 (Level 1) - Jetzt verbinden

19.08.2014, aktualisiert 14:30 Uhr, 8348 Aufrufe, 7 Kommentare, 1 Danke

Hallo,

ich habe derzeit einen Array wie folgt definiert: [ID, Abk, Text, aktiv]

Über einen Array lese ich [ID, Abk, Text] ein und verarbeite die Werte weiter.
Derzeit setze ich den letzten Array-Bereich [aktiv] statisch. Dieser Bereich dient dazu, das entsprechende Modul zu aktivieren oder deaktivieren.
Dies würde ich gerne über eine UserForm und variable Listbox zur Auswahl realisieren.

Der Ablauf sollte wie folgt sein:
1. vorhadenen Array-Elemente einlesen [ID, Abk, Text]
2. UserForm mit Listbox aller Array-Elemente [ID, Abk, Text] darstellen
3. Userauswahl der gewünschten Module
4. Bestätigung der Auswahl mit OK-Button --> Auswahl setzt die entsprechenden Array-Elemente [aktiv] = "TRUE"

Derzeit stehe ich aber etwas am Schlauch wie ich das realisiert bekomme.


Danke schonmal
Gruß feder
Mitglied: colinardo
LÖSUNG 19.08.2014, aktualisiert 20.08.2014
Hallo feder,
ich habe dir mal ein Demo-Sheet dazu gebaut das eine Listbox mit einem Beispiel-Array füllt, und welches du durch das Setzen von Checkboxen updaten kannst.

p.s. falls du die Ursprungswerte aus einer Excel-Tabelle ausliest lässt sich die Listbox auch ohne ein Zwischenarray mit einem Bereich im Sheet verbinden und entsprechend aktualisieren (mit der RowSource Eigenschaft der Listbox). Das würde dir das Füllen eines Arrays ersparen.

Grüße Uwe
Bitte warten ..
Mitglied: chef1568
20.08.2014, aktualisiert um 01:08 Uhr
Hall Uwe,

Dein Beispiel ist genau das, was ich benötige

Ich habe jetzt mal das Befüllen des Arrays entsprechend umgebaut. Jetzt befülle ich den Array der auch in dem MainModule zur Anwendung kommt. Das funktioniert auch entsprechend - allerdings werden mir alle definierten 100 Array-Elemente in die Listbox geladen - ich hätte dort nur die "befüllten" Elemente angezeigt.
<code type="html">
Private Sub UserForm_Initialize()
Dim STG(0 To 100, 0 To 3) As String 'Array [Variable](Diag, Abk, Text, Aktiv)
Dim iSTG, jSTG As Integer 'Zählerschleifen

For iSTG = 3 To 100 'Startadresse Zeile 4...54 --> Zeile 10 = Adresse 11
For jSTG = 0 To 2 'Startadresse Spalte A..C --> Spalte A = Adresse 0
STG(iSTG, jSTG) = Worksheets("Tabelle1").Cells(iSTG + 1, jSTG + 1).Value
Next jSTG
If STG(iSTG, 0) = "" Then 'Beende Schleife vorzeitig wenn Diag leer
Exit For
End If
Next iSTG

ListBox1.List = STG
End Sub
<code>

Danke schonmal
gruß feder
Bitte warten ..
Mitglied: colinardo
20.08.2014 um 09:15 Uhr
na dann befülle dein Array nur mit den Elementen die du anzeigen willst ....if Prüfung auf das "Aktiv"-Element, feddich.
Bitte warten ..
Mitglied: chef1568
20.08.2014 um 09:47 Uhr
Hallo,

das Problem ist, dass ich nicht weiß wie groß die Inhalte des Arrays tatsächlich sind.
Deshalb beende ich auch die Einleseschleife sobald ich die erste leere Zeile erreiche.

Über die ListBox wird eben der komplett deklarierte Arraybereich abgebildet - egal ob das Array vorher durchlaufen und befüllt wird oder nicht
Bitte warten ..
Mitglied: colinardo
20.08.2014, aktualisiert um 10:37 Uhr
Zitat von chef1568:
das Problem ist, dass ich nicht weiß wie groß die Inhalte des Arrays tatsächlich sind.
Deshalb beende ich auch die Einleseschleife sobald ich die erste leere Zeile erreiche.
du weist schon das man ein Array dynamisch gestalten und in der Größe anpassen kann ?! Stichwort: Redim Preserve
Bitte warten ..
Mitglied: 116301
20.08.2014, aktualisiert um 11:18 Uhr
Hallo zusammen!

Wie wäre es mit:
01.
Option Explicit 
02.
 
03.
Private Const RowStart = 3 
04.
 
05.
Private Sub UserForm_Initialize() 
06.
    Dim RowEnd As Long 
07.
     
08.
    With Sheets("Tabelle1") 
09.
        RowEnd = .Cells(RowStart, 1).End(xlDown).Row 
10.
        ListBox1.List = .Cells(RowStart, 1).Resize(RowEnd - RowStart + 1, 4).Value 
11.
    End With 
12.
End Sub
Grüße Dieter
Bitte warten ..
Mitglied: chef1568
20.08.2014 um 11:42 Uhr
Hallo,

habe es jetzt wie folgt gelöst:
<code type="html">
Private Sub UserForm_Initialize()
Dim STG(0 To 100, 0 To 3) As String 'Array [Variable](Diag, Abk, Text, Aktiv)
Dim iSTG, jSTG As Integer 'Zählerschleifen

For iSTG = 3 To 100 'Startadresse Zeile 4...54 --> Zeile 10 = Adresse 11
For jSTG = 0 To 2 'Startadresse Spalte A..C --> Spalte A = Adresse 0
STG(iSTG, jSTG) = Worksheets("Tabelle1").Cells(iSTG + 1, jSTG + 1).Value
Next jSTG
If STG(iSTG, 0) = "" Then 'Beende Schleife vorzeitig wenn Diag leer
Exit For
End If

ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = STG(iSTG, 0)
ListBox1.List(ListBox1.ListCount - 1, 1) = STG(iSTG, 1)
ListBox1.List(ListBox1.ListCount - 1, 2) = STG(iSTG, 2)

Next iSTG

End Sub
<code>

gruß feder
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Excel VBA - Auswahl aus Listbox bearbeiten
Frage von MasterSchlumpfVB for Applications1 Kommentar

Hallo Profis, ich benötige Eure Hilfe in Excel VBA. Ich lasse den Inhalt einer Tabelle in einer Listbox anzeigen. ...

VB for Applications
Excel VBA: Listbox per AddItem befüllen
gelöst Frage von hesperVB for Applications5 Kommentare

Hallo miteinander! Meine Wege haben mich jetzt auch zu VBA geführt. Leider fehlt mir da das erweiterte Grundwissen. Ausgangslage: ...

Visual Studio
Array mit Excel-Range befüllen
gelöst Frage von MarcoBornVisual Studio4 Kommentare

Hallo Forum, ich möchte gern ein Array mit einer Spalte aus Excel befüllen. Das Ganze soll jedoch nicht Zeile ...

VB for Applications
Excel 2010 vba mehrspaltige listbox
Frage von AsciWhiteVB for Applications11 Kommentare

Hallo, ich versuche Daten aus einer Access-Datei in eine ListBox auf einer Userform einzulesen. Dazu habe ich die ListBox ...

Neue Wissensbeiträge
Datenschutz

Weitere Inforamtionen zum Sicherheitsproblem BeA

Information von Penny.Cilin vor 5 StundenDatenschutz

Im folgenden ein weiterer Bericht über die Sicherheitsprobleme von Bea. Fataler Konstruktionsfehler im besonderen elektronischen Anwaltspostfach Gruss Penny

Windows 10

Systemdienste behalten nach Win10 inplace-Upgrade nicht die ggf. modifizierte Startart bei

Tipp von DerWoWusste vor 7 StundenWindows 103 Kommentare

Stellt Euch vor, Ihr habt ein Win10 System und modifiziert dort die Startart von Systemdiensten. Zum Beispiel wollt Ihr ...

Microsoft Office

Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei

Anleitung von SarekHL vor 10 StundenMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...

Erkennung und -Abwehr

Sicherheitslücke Spectre und Meltdown: Status prüfen

Anleitung von Frank vor 16 StundenErkennung und -Abwehr2 Kommentare

Nach all den Updates der letzten Woche sollte man unbedingt auch den Status prüfen, ob die Sicherheitslücken Spectre, Meltdown ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

Batch & Shell
AD-Abfrage in Batchdatei und Ergebnis als Variable verarbeiten
gelöst Frage von Winfried-HHBatch & Shell19 Kommentare

Hallo in die Runde! Ich habe eine Ergänzungsfrage zu einem alten Thread von mir. Ausgangslage ist die Batchdatei, die ...

Microsoft Office
Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei
Anleitung von SarekHLMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...

Windows 10
Netbook erkennt Soundkarte nicht - keinerlei Info zum Hersteller und Modell vom Netbook und Hardware bekannt
Frage von fyrb38Windows 1017 Kommentare

Guten Tag, meine Schwester reist in einigen Wochen für ein paar Monate ins Ausland und hat sich dafür ein ...