Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1160to1164
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1160to1164
1160to1164
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Userforms nacheinander abarbeiten

Alle Userforms nacheinander abarbeiten
Helmut
Hallo,
wie kann ich alle Userforms in einem Workbook abklappern, ohne die Namen und die Anzahl der integrierten Userforms zu kennen.
For Each ....
Next
Danke im Voraus
Helmut

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Alle Userforms nacheinander abarbeiten
23.06.2010 10:27:55
Oberschlumpf
Hi Helmut 

Dim lctrControl As Control
For Each lctrControl In Userform1.Controls
If TypeName(lctrControl) = "TextBox" Then
If TypeName(lctrControl) = "CheckBox" Then
If TypeName(lctrControl) = "Label" Then
'usw
Next

Hilfts?
Ciao
Thorsten
AW: Alle Userforms nacheinander abarbeiten
23.06.2010 10:38:11
Helmut
Danke für die Lösung,
aber damit bin ich eine Stufe zu tief. Ich habe mehrer Userforms, die Anzahl kann variabel sein und die Namen auch (kenne ich im Makro praktisch nicht, weil immer verschieden)
Und jetzt möchte ich mit z. B. "For Each k in Userforms" (Beispiel funktioniert so nicht! )alle Userforms abklappern und dann die Parameter aus jeder einzelnen auslesen
Was mir fehlt ist, wie ich auf eine x-beliebige Anzahl von Userforms, mit unbekannten Namen, frei skalierbar zugreifen kann
Gruß
Helmut
Anzeige
AW: Alle Userforms nacheinander abarbeiten
23.06.2010 10:54:53
Anton
Hallo Helmut,
so vllt:
Code:

Sub b()
  Dim vbcomp As Object, ctl As Object  
  For Each vbcomp In ThisWorkbook.VBProject.VBComponents  
    If vbcomp.Type = 3 Then  
      Debug.Print vbcomp.Name
      For Each ctl In vbcomp.Designer.Controls  
        Debug.Print vbTab & ctl.Name
      Next
    End If  
  Next
End Sub  


mfg Anton
Anzeige
@Helmut @Anton
23.06.2010 11:14:10
Oberschlumpf
Hallo ihr 2!
erst mal...
Ja, Helmut, recht haste - ich hatte nicht bedacht, dass du mehr als 1 UF abfragen willst.
Anton, deine Idee hatte ich auch schon...war dann aber an .Designer.Controls gescheitert, weil ich das gar nicht kannte, und deswegen nicht wusste, wie ich die Controls eines UFs ansprechen kann ;-)
Aber...mir gefiel an dieser Lösung von Anfang an nicht, dass man "dem VBA-Projekt vertrauen muss", da sonst der Code nicht läuft.
Helmut:
Hier nun noch ne andere Idee: 
Sub sbUFs()
Dim lctrControl As Control
Load UserForm1
Load UserForm2
For i = 0 To UserForms.Count - 1
For Each lctrControl In UserForms.Item(i).Controls
If TypeName(lctrControl) = "TextBox" Then Beep
If TypeName(lctrControl) = "CheckBox" Then Beep
If TypeName(lctrControl) = "Label" Then Beep
Next
Next
End Sub

Hier muss zwar jedes UF, welches du abfragen willst, vorher geladen sein, aber ich denke (ich hoffe :-) ), dass deine UFs eh geladen sind, bevor du deren Daten in die Tabelle bringen willst, oder?
Auf jeden Fall muss man mit diesem Code dem VBA-Projekt nicht vertrauen.
Hilfts denn?
Ciao
Thorsten
Anzeige
AW: @Helmut @Anton
23.06.2010 11:38:43
Helmut
Hallo,
ich danke Euch für die tollen Lösungen
Gruß
Helmut

300 Forumthreads zu ähnlichen Themen

Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
Anzeige
@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Kann Fehler in Formel nicht finden. :(
Alex

Hallo Forum!
Ich habe eine Formel, die ein Moment für eine Schraubverbindung berechnet. Eigentlich ist die Eingabe von Formeln kein Problem für mich, aber irgendwie habe ich in der aktuellen Formel einen Fehler reingepackt, den ich nicht finden kann.
Hier erstmal die Formel:

Hi...
20.08.2008 09:09:00
Thread-ID: 1003086
5 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Brüche mit kleiner Schrift formatieren
Siegfried

Hallo Excelianer,
der Betreff sagt sicher wenig aus. Ich möchte Zeiten, die auf Viertelstunden gerundet sind, als Brüche darstellen - soweit kein Problem. Jetzt hätte ich aber gern die Viertelstunden nicht in der Standardformatierung, also 1 1/4 z. B., sondern mit kleingeschriebenen Ziffern...
25.08.2008 11:32:00
Thread-ID: 1004409
7 Beiträge
Bild in UserForm dynamisch aus Internet laden
Ben

hallo,
ich möchte in folgender Codezeile ein Bild aus dem Internet laden, statt von der Festplatte.
Wenn ich jedoch einfach C:\... durch eine "http" Resource ersetze bekomme ich eine Fehlermeldung.
UserForm.DYNAMISCH_PIC.Picture = LoadPicture("C:\temp\bild.jpg")
Weiss jemand w...
05.09.2008 12:55:00
Thread-ID: 1007652
2 Beiträge
Excel-Daten in ein Excel-Formular übertragen
Martin

Hallo
Ich habe folgende Problemstellung: Ich habe einerseits eine Datenbank mit Adressfeldern (Tabelle "Daten") und ich habe ein Excel-Formular (Tabelle "Protokoll") kreiert. Nun möchte ich eine Art Serienbrief im Excel erstellen, d.h. jede Zeile in der Daten-Tabelle soll ein eigenes Protok...
08.09.2008 17:43:25
Thread-ID: 1008225
7 Beiträge
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
5
3
4
3
5
6
1
6
3
2
2
1
1
1
3
5
7
3
6
15
3
3
1
14