Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1604to1608
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
1604to1608
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UserForm_Initialize()

UserForm_Initialize()
03.02.2018 18:17:26
Sabrina
Hallo liebes Forum
ich habe mir - dank Recherche hier im Forum - eine kleine Datenerfassungsmaske erstellt. Habe hin und her „geschrieben“ und mittlerweile habe ich mich total „verrannt“. Ich denke das Hauptproblem wird die „Private Sub UserForm_Initialize()“ sein, denn hier wollte ich eine Sortierung einbauen sowie das keine doppelte Eingabe in meiner ComboBox erfolgen darf. Und nun funktioniert noch nicht einaml mehr das Speichern!
Leider weiß ich einfach nicht mehr weiter und würde mich sehr freuen, wenn jemand von euch einmal drüber gucken würde. Danke danke danke.
https://www.herber.de/bbs/user/119512.xlsm
Viele Grüße
Sabrina

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UserForm_Initialize() + mehr
04.02.2018 02:30:54
fcs
Hallo Sabrina,
ich habe dein Userform bezgl. Makros mal aufgeräumt und angepasst.
https://www.herber.de/bbs/user/119523.xlsm
Wesentliche Punkte:
  • Auswahlliste Combobox
    Du hattest in der Initialisierungs-Prozedur im 1. Teil die Zuweisung der Auswahlliste zur List-Eigenschaft der Combobox und am Ende noch die die Zuweisung des Zellbereichs als RowSource-Eigenschaft. Die Zuweisung zur RowSource-Eigenschaft muss hier wegfallen.
    Das Füllen der Auswahlliste ist jetzt in eine separate Sub ausgegliedert.
    Diese wird aufgerufen in der Initialisierung, beim Anfügen eines neuen Datensatzes und beim Löschen eines Datensatzes.

  • Combobox1-Ereignis-Makros
    Change:
    Hier wird jetzt die Combox-Eingabe mit dem Parameter LookAt:=xlWhole gesucht (gesamter Zellinhalt wird verglichen). Falls gefunden wird die Variable rngID auf die gefundene Zelle gesetzt. rngID wird dann in den Makros der Schaltflächen genutzt
    KeyPress:
    Per Tastatur können nur noch Ziffern als Werte eingegeben werden
    Exit:
    Es wird geprüft, ob die Eingabe nummerisch ist

  • Datensatz neu/ändern
    Die via Combox1 gesetzte Variable rngID wird geprüft (neuer/vorhndener Datensatz) und es erfolgen zusätzliche Meldungen zur Bestätigung der Speicher-Aktion
    Der Inhlt von Textbox5 wird auf Datum geprüft und vor dem Eintragen in die Tabelle ggf. in ein Datum umgewandelt.

  • Datensatz löschen
    Hier hab ich gründlich aufgeräumt. Die Variable rngID wird auch hier genutzt um den Löschvorgang zu steuern.

    • Gruß
    Franz
    Anzeige
    eine Kleinigeit noch.... :-)
    04.02.2018 10:18:11
    robert
    Hi Franz,
    wenn noch keine Lieferanten angelegt, sollte man letzte Zeile auf 1 prüfen
    wenn 1 dann Exit Sub-oder so ähnlich :-)
    Gruß
    robert
    AW: eine Kleinigeit noch.... :-)
    04.02.2018 10:28:37
    Sabrina
    Guten Morgen Franz,
    recht herzlichen Dank für die wahnsinns Arbeit, die du dir gemacht hast. Es funktioniert - natürlich - perfekt.
    Diese Eingabemaske kann ich später 1:1 für andere Daten nutzen, allerdings kann es sein, dass dann die Lieferantennummer zur Artikelnummer wird und diese dürfen auch Buchstaben beinhalten. Ist diese Änderung ein sehr großer Aufwand? Hättest du evtl. Zeit und Lust, das zu ändern? Ist mir doch etwas unangenehm die Frage, weil du dir schon so viel Mühe gegeben hast.
    Nochmals: Vielen vielen Dank!
    Viele Grüße
    Sabrina
    Anzeige
    AW: eine Kleinigeit noch.... :-)
    04.02.2018 12:50:38
    Werner
    Hallo Sabrina,
    da deine Variable varID nicht explicit deklariert wurde (Dim varID as Long oder Dim varID as String), ist sie vom Typ Variant (das gleiche wie Dim varID as Variant), kann also alles an Daten aufnehmen, auch Text.
    Beim Schreiben in die Zelle mußt du dann nur das Val weglassen. 
    varID = Me.ComboBox1.Text
    Gruß Werner
    Alphanummerische ComboBox
    04.02.2018 13:46:20
    Sabrina
    Hallo Werner,
    leider reicht es nicht, das VAL raus zu nehmen. Zwar habe ich noch 2 Prozeduren?!! deaktiviert, welche die Prüfung auf nummerisch setzt.
    Eingaben in allen Varianten sind jetzt möglich und auch das Schreiben in die Tabelle aber die Anzeige in der ComboBox erfolgt nicht mehr bei Aufruf des Lieferanten mit alphanummrischer Zeichenfolge.
    Trotzdem, vielen Dank.
    Viele Grüße
    Sabrina
    Anzeige
    AW: eine Kleinigeit noch.... :-)
    04.02.2018 14:10:01
    fcs
    Hallo Sabrina,
    hier eine angepasste Fassung, die auch nicht nummerische Eingaben in der Combobox zuläßt.
    https://www.herber.de/bbs/user/119535.xlsm
    Die zulässigen Tastatureingaben werden in dieser Prozedur festgelegt: 
    Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'zulässige Tastatur-Eingben für Combobox1
Select Case KeyAscii
Case Asc("0") To Asc("9")
'zulässige Tastatur-Eingaben sind Ziffern
Case Asc("A") To Asc("Z"), Asc("a") To Asc("z")
'zulässige Tastatur-Eingaben sind Großbuchstaben und Kleinbuhstaben
Case Asc("ä"), Asc("ö"), Asc("ü"), Asc("Ä"), Asc("Ö"), Asc("Ü"), Asc("ß")
'zulässige Tastatur-Eingaben deutsche Sonderzeichen
Case Else
KeyAscii = 0
End Select
End Sub
    Gruß
    Franz
    Anzeige
    ..mein Hinweis-(leere Datei) ignoriert?....
    04.02.2018 14:23:04
    robert
    AW: ..mein Hinweis-(leere Datei) ignoriert?....
    04.02.2018 15:01:36
    Sabrina
    Hallo ihr Zwei,
    zuerst einmal vielen Dank an euch. Soweit passt es. Allerdings hatte ich tatsächlich nicht bedacht, dass es zu einem "Laufzeitfehler 13 Typen unverträglich" kommt, falls die Tabelle, in denen die Daten geschrieben werden, noch leer ist, lediglich die Überschrift vorhanden ist. Oohh weia :-(
    Kann ich noch weiterhin auf eure Hilfe zählen? Vorab schon einmal vielen Dank.
    Viele Grüße
    Sabrina
    AW: ..falls sich fcs nicht meldet-Datei anbei..Gruß
    04.02.2018 16:25:45
    Sabrina
    Hallo Robert,
    vielen Dank für die Änderung. Jetzt passt soweit alles. Werde mir in Ruhe die Codes angucken, denke aber, jetzt komme ich klar. Hoffe natürlich, alle "wenn und abers" :-) abgedeckt zu haben. Ansonsten melde ich mich einfach noch einmal.
    Dir und Franz noch einen schönen Sonntag.
    Viele Grüße
    Sabrina
    Anzeige
    Danke gleichfalls und viel "Erfolg" :-) owT
    04.02.2018 16:30:14
    robert

    80 Forumthreads zu ähnlichen Themen

    Userform Initialize versagt
    Axel

    hallo könner,
    ich habe mit application.visible = false / true experimentiert.
    hat funktioniert, außer beim schließen mit kreuz. Excel abgeschossen/weg. also hab ich windows abgemeldet und neu gestartet.
    Und jetzt das Problem: seither funktioniert mein
    Privat Sub Userform1_in...
    01.10.2008 15:28:31
    Thread-ID: 1013657
    11 Beiträge
    Anzeige
    UserForm_Initialize
    Fredy

    Hallo alle
    Ich Habe ein Problem mit einem Code
    Ich möchte gerne eine zweite Combobox in mein Userform einfügen
    Aber Leiter kriege ich es nicht zum Laufen da ich den UserForm_Initialize nur einmal verwenden kann
    Die Datei https://www.herber.de/bbs/user/74031.xlsm wurde aus Daten...
    20.03.2011 15:04:37
    Thread-ID: 1206527
    2 Beiträge
    Wiederholungen im UserForm_Initialize vermeiden
    chandler

    Hallo,
    ich habe drei Dutzend Selectboxen die den gleichen Inhalt haben, siehe Beispiel:
    With Me.cbo4
    .Clear
    .AddItem "N"
    .AddItem "O"
    .AddItem "S"
    .AddItem "W"
    End With
    Wie kann ich die unzähligen Wiederholungen im UserForm_Initialize vermeiden, dadurch auch...
    24.12.2011 15:21:50
    Thread-ID: 1243439
    7 Beiträge
    Anzeige
    userform_initialize mehrere objekte wg combobox*3
    satori

    Hallo liebe Leut´
    Ich habe kl. Problem :
    Folgender Code funzt aber nur solange ich bei einer Combobox bleibe :
    Private Sub UserForm_Initialize() Dim oListe3, oListe1, oListe2 Dim LoI, LoI1, LoI2 As Long Dim arrListe3, arrListe1, arrListe2 As Long Set oListe1 = CreateObject(...
    26.04.2012 14:57:29
    Thread-ID: 1261099
    2 Beiträge
    UserForm_Initialize aus Tabelle aktivieren, wie?
    Lorenz

    Hallo VBA´ler
    Kann man in "Private Sub Worksheet_Change(ByVal Target As Range)" die "UserForm_Initialize" Prozedur aufrufen?
    Die UF ist dabei "VbModeless" geladen. Innerhalb der UF aufgerufen funkts problemlos. Wie soll (muß) der Code lauten um so nach dem Motto: "Call Userform1.UserFor...
    14.06.2012 09:44:05
    Thread-ID: 1267354
    5 Beiträge
    Unload Me in UserForm_Initialize
    Timo

    Hallo zusammen,
    kann man eigentlich im UserForm_Initialize Sub ein "Unload Me" einbauen?
    Es funktioniert einfach nicht.
    Hintergrund:
    Sobald die UserForm geladen wird, soll eine Prüfung ausgeführt werden.
    In einem Label steht dann entweder ein Text oder eben "Fehler".
    Wen...
    19.10.2012 18:32:12
    Thread-ID: 1282910
    2 Beiträge
    UserForm_Initialize()
    Thomas

    Liebes Forum!Kann mir jemand "UserForm_Initialize()" erläutern?Vielen Dank
    Thomas
    01.07.2002 15:45:55
    Thread-ID: 132765
    2 Beiträge
    UserForm_Initialize()
    Rainer

    Hallo,ich dreh bald durch! Hab folgendes Problem...Ich habe eine User Form "frmAA" mit 29 Textboxen (EingabeAA1 - EingabeAA29).
    Diese Textboxen möchte ich beim Öffnen der Form automatisch mit Daten aus der Tabelle "Test" füllen. Diese Daten stehen in der selben Reihenfolge von Zelle (B41:B69...
    12.07.2002 07:57:56
    Thread-ID: 135993
    2 Beiträge

    Links zu Excel-Dialogen

    ComboBox TextBox

    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
    10
    7
    1
    6
    2
    1
    4
    1
    1
    1
    7
    3
    3
    3
    1
    5
    4
    2
    7
    5
    5
    3
    2
    11
    2