Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1048to1052
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
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UserForm wiederholen > Schleife?!

UserForm wiederholen > Schleife?!
18.02.2009 11:39:00
Lenni
Moin Excellianer!
Ich möchte ein UserForm in eine Schleife schicken. In diesem UserForm habe ich 3 Commandbutton (CB1-3).
  • CB1: "OK" ...schließt das UserForm und Werte aus diesem werden in eine Tabelle übertragen

  • CB2: "Abbrechen" ...macht genau das

  • CB3: "Weitere Einträge" ...genau hier haperts bei mir, mein VBA ist noch nicht so weit...

    • ...die gerade eingegebenen Werte sollen in ein Tabellenblatt übertragen werden, das UserForm aber stehen bleiben! Bis auf ein Objekt (MultiPage) sollen alle Einträge in allen anderen Objekten stehen bleiben.
    Der Click auf den CB3 soll beliebig wiederholt werden können usw. usw. usw....
    Das MultiPage-Objekt soll jeweils einfach immer auf 0 gesetzt werden.
    Ich bitte um Eure Hilfe! Vielen Dank!
    Viele Grüße aus dem hohen Norden!
    Lenni

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

    Betreff
    Datum
    Anwender
    Anzeige
    AW: UserForm wiederholen > Schleife?!
    18.02.2009 12:14:00
    Renee
    Hi Lenni,
    Eine UF in eine Schleife schicken ist eine etwas verwirrende Ausdrucksweise, dein Problem zu beschreiben. Du möchtest doch sicher einfach gewisse Kontroll-Elemente neu initialisieren, wenn du die Schaltfläche CB3 drückst, also in etwa so:
    
Private Sub CB3_Click()
TextBox1.Value = ""     ' Zurücksetzen des Inhalts einer Textbox
MultiPage1.Value = 0    ' Multipage auf Seite 1 setzen
TextBox2.Value = "Neu"  ' Inhalt von Textbox2 auf Multipage 1 initialisieren
End Sub


    GreetZ Renée

    AW: UserForm wiederholen > Schleife?!
    18.02.2009 12:35:00
    Lenni
    Danke für den Tip Renée! ...aber so einfach ist das nicht.
    Bei Click auf CB3 sollen natürlich alle Werte des UserForms in eine Tabelle übergeben werden. Dieses Ereignis ist aber in der Click-Routine des CB1 (!) ...und dort laufen auch noch "ein paar" Prüfungen ab.
    UND: Wenn ich mit Click auf CB3 einen Call-Aufruf an das Click-Ereignis von CB1 starte, dann wird nur 1x wiederholt...
    Es soll aber beliebig oft wiederholt werden und jeweils nur das MultiPage auf 0 gesetzt werden.
    Gruß
    Lenni
    Anzeige
    AW: UserForm wiederholen > Schleife?!
    18.02.2009 13:47:00
    Renee
    Hi Lenni,
    Wenn es nicht so einfach ist, dann mach es einfacher!
    Zitat: Dieses Ereignis ist aber in der Click-Routine des CB1 (!) ...und dort laufen auch noch "ein paar" Prüfungen ab.
    Diese Prüfungen, das Übergeben an die Tabelle und das re-initialisieren der Kontrollelemente muss ja nicht dort (CB1) hinterlegt sein.
    Lagere sie in eine eigene Subroutine (z.B. Sub Übergeben()) aus. Rufe dann in CB1_Click die Routine Übergeben auf. Anschliessend schliesst du die UserForm.
    Ebenso kannst Du sie jetzt in CB3 dein Übergeben Routine brauchen. Also nach dem Muster:
    
Sub CB1_Klick()
Übergeben
Me.Hide
End Sub
Sub CB3_Klick()
Übergeben
End Sub
Sub Übergeben()
Prüfungen
Übergeben von Werten an Tabelle
Initialisierung von Kontrollelementen
End Sub


    GreetZ Renée

    Anzeige
    AW: UserForm wiederholen > Schleife?!
    18.02.2009 17:55:00
    Lenni
    Danke Renée! ...ist ein logischer Gedanke und ich finde diese "Vereinfachung" auch klasse... ...aber dann laufen bei Click auf CB1 die Prüfungen nur 1x durch und dann wird das UserForm ohne Werte zu übergeben dicht gemacht.
    Trotzdem vielen Dank!
    Ich würde ja gerne eine Demo-Datei hochladen... ...aber meine Datei ist schon so groß...
    Gruß
    Lenni
    Danke Renée!! ...Lösung gefunden!
    19.02.2009 18:34:00
    Lenni
    Moin Renée!
    Ich wollte mich noch ganz herzlich bei Dir bedanken!! ...denn vom Grundsatz her waren Deine Lösungsvorschläge der richtige Weg!!!
    Ich habe Sie nur um einen kleinen Trick erweitert: Ich habe eine weitere TextBox in das UserForm gesetzt und deren Sichtbarkeit (Visible) auf "False" gesetzt.
    Gemäß Deinen Vorschlägen in Deinem letzten Beitrag habe ich meinen Gesamtcode "aufgesplittet" und kleine Anweisungen mit aufgenommen, die mir in die "versteckte" TextBox eine 1 oder 2 hinein schreiben. Mit Hilfe dieser beiden Zahlen kann ich nun im Sinne von If...Then...Else usw. gezielt steuern!
    Leider ist meine Datei zu groß, sonst hätte ich gerne ein Beispiel hochgeladen!
    Nochmals Vielen Dank Renée! ...Deine "Anschubser" waren der Weg zur Lösung!!
    Gruß
    Lenni
    Anzeige

    299 Forumthreads zu ähnlichen Themen

    Zeichenkette per for-next-schleife erstellen
    lauer

    Hallo,
    ich möchte mir eine Zeichenkette erstellen lassen.
    Ich habe in einer Zelle (B11) den Anfang (1) angegeben und in der anderen (C11) steht das Ende (49).
    Nun möchte ich, dass er mir in der E11 die Zeichenkette reinschreibt.
    Also ich möchte dann in E11 stehen haben: 1,2,3,4,...
    09.08.2008 19:06:00
    Thread-ID: 1000538
    5 Beiträge
    Anzeige
    eine Schleife in Webabfrage
    mehmet

    Hallo Forum,
    ich habe mit dem Macrorecorder Webabfrage aufgezeichnet.
    Diese habe ich ergänst mit der URL Adresse und Zellinhalte.
    Hier die Aufzeichnung bzw. überarbeitete Version:
    Sub TAF1() derLink = "http://www.dieseite.de/main. _ htm?tp=sa&flag=" Sheets("Tabelle1").Sele...
    29.08.2008 09:30:05
    Thread-ID: 1005675
    2 Beiträge
    Schleife um ein Makro bauen
    Matthias

    Hallo zusammen,
    ich habe folgendes Makro, das per vlookup auf ein zweites Tabellenblatt greift:
    Sub importSortKey() Range("A2").select ActiveCell.FormulaR1C1 = _ "=IF(RC[1]="""","""",VLOOKUP(RC[1],Sortierschlüssel!C:C[1],2))" End Sub
    Zur Formel: RC[1] = Zelle B2;
    Ich würde d...
    01.10.2008 11:26:00
    Thread-ID: 1013562
    7 Beiträge
    Anzeige
    Schleife einbauen und variabler Tabellenname
    Markus

    Hallo zusammen,
    nach langer Suche bin ich auf folgendes funkionierendes Makro gestoßen. Diese Makro möchte ich gerne ein wenig anpassen und dazu brauche ichEure Hilfe!
    Sub PDF_Druck() Dim strAktuellerDrucker As String strAktuellerDrucker = Application.ActivePrinter Worksheets("Tabelle...
    16.10.2008 19:25:00
    Thread-ID: 1016959
    3 Beiträge
    Makro - einfache VBA Schleife für Excel
    pc-doc@k-u-p.de

    Hallo VBA MAkro Profis,
    programmiere fast nie in VBA mehr Web js, php/mysql,
    und brauche eine einfache VBA Schleife für Excel:
    Ich möchte in mehreren Registerblättern einer Arbeitsmappe in der
    Spalte D Zeile für Zeile checken ob
    ein Wert in der Zelle steht
    und wenn...
    20.10.2008 11:51:00
    Thread-ID: 1017619
    8 Beiträge
    momentanen Wert der For-Schleife anzeigen
    Joachim

    Hallo,
    ich habe eine For-Schleife, die ca. 5600 mal durchlaufen wird. In der Schleife werden viele IFs abgeprüft, was die Schleife langsam macht.
    FOR s = 2 to irow
    IF ...
    NEXT s
    Ich würde gerne wissen, bei welchem Wert s die Schleife momentan ist.
    Eine MsgBox unterbricht...
    11.11.2008 10:02:24
    Thread-ID: 1023432
    4 Beiträge
    Schleife in Formel
    Jochen

    Hallo,
    kann ich mit einer Formel eine Schleife laufen lassen?
    Meine Tabelle sieht etwa so aus:
    Pos. Stückzahl
    1 10
    2 15
    3
    4 2
    5 3
    6
    7
    8 10
    9 11
    10
    11
    12 12
    Meinergeb...
    11.11.2008 14:25:00
    Thread-ID: 1023549
    9 Beiträge
    Gesamtwert in Zell über Multiplikationsschleife...
    Jessi

    Hallo zusammen,
    habe wieder mal eine Frage:
    Ich habe eine Tabelle in der Spalte X und Y, ab der Zeile 5 Werte multipliziert werden und die Zeilen
    5 bis einschließlich 88 und anschließend ab Zeile 160 bis einschließlich die Zeile 182 aufsummiert werden. Wie bekomme ich das am geschic...
    10.12.2008 14:51:00
    Thread-ID: 1031705
    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
    4
    2
    1
    6
    4
    2
    7
    3
    8
    3
    5
    11
    8
    2
    7
    4
    8
    2
    4
    3
    2
    8
    11
    4
    2