Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zwei userformen, eine Sub

Forumthread: zwei userformen, eine Sub

zwei userformen, eine Sub
volker
Hallo Leute,
unter der Überschrift "zwei userformen, eine Sub - Ansteuerung userform?" hatte ich das Problem schon mal gefragt, aber keine abschließende Antwort bekommen (Paket 404to408).
Deswegen nochmal:
Also:
Userform1:
Name: usflisteeinlesen
eine Listbox: lbo1
eine Comandbutton: cob1
plus diverses anderes.
Userform2:
Name: usflisteweiterverarbeiten
eine Listbox: lbo1
eine Comandbutton: cob1
(wie bei Userform1)
plus diverses anderes (ungleich Userform1)
Bei Klick auf cob1 soll jeweils lbo1 mit einer txt-Datei gefüllt werden. Dafür habe ich ein Makro, dass funktioniert, wenn es als Private Sub im Code der userform abgelegt ist.
Wie kann ich nun diese Sub in ein allgemeines Modul übertragen, dass von beiden userformen angesteuert werden kann. Wie muß ich die Zeile:
lbo1.AddItem
anpassen, damit es einmal in Userform 'usflisteeinlesen' und einmal in 'usflisteweiterverarbeiten' die Listbox gefüllt wird?
Die Beispielmappe steht unter:
https://www.herber.de/bbs/user/4861.xls
Dank Euch!
Volker
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: zwei userformen, eine Sub
Josef
Hallo Volker!
So sollte es gehn!
'UserForm

Private Sub coblisterein_Click()
listereinAllgemein Me
End Sub

'Allgemeines Modul
Sub listereinAllgemein(myForm As UserForm)
Dim Textzeile
Dim Textzeilealt
Dim datei As String
Dim i As Long 'Zeilenzähler
datei = Application.GetOpenFilename
i = 0
Open datei For Input As #1 ' Datei öffnen.
Do While Not EOF(1) ' Schleife bis Dateiende.
i = i + 1
Line Input #1, Textzeile ' Zeile in Variable einlesen.
myForm.lbolabels.AddItem Textzeile
Loop
Close #1 ' Datei schließen
End Sub
Gruß Sepp
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige