Im laufenden VBA-Code eine Meldung anzeigen

Wie schafft man es, dem User mitzuteilen, das noch ein VBA-Code läuft.

Ich habe eine Kopier-Routine, die etwas länger dauert und beim Blattwechsel automatisch startet. Damit der User nicht abbricht, möchte ich eine Meldung ausgeben.

Schalte ich aber eine eigene Userform dafür, bleibt der Code beim UserForm.Show hängen und arbeitet nicht weiter.

Hat jemand Vorschläge?

Schon mal Dank vorab.

3 Antworten

Vom Beitragsersteller als hilfreich ausgezeichnet

MoeS1973

11.10.2013, 16:55

Denn du genau weisst wie lange der Protess dauert, kannst du eine Progress-Bar einfügen. Rechtsklick auf die Werkzeugsammlung (bei UF erstellen), "Zusätzlichs Steuerelemente...", dann in der Liste nach "Microsoft Progress Bar Control" suchen und ankreuzen.

Einige Beispiele findest Du hier:

www.herber.de/bbs/user/16993.xls

daCypher

09.10.2013, 10:19

Ich erstelle normalerweise einfach ein Formular, das nur ein Label enthält, wo "Bitte warten" drauf steht und öffne es mit docmd.openForm "frmWarten"

Schließen kann man es dann mit docmd.close acForm, "frmWarten"

Ich weiß allerdings nicht, ob das nur in Access so funktioniert.

PauleVBA

Beitragsersteller

09.10.2013, 10:32

Danke erst mal, aber

ich vergas zu sagen, dass es Excel2003 ist.

Excle kennt leider kein DoCmd.

Und ein Verweis auf die Lib von Access funzt auch nicht.

daCypher

09.10.2013, 11:11

@PauleVBA

Hmm, dann kann ich dir leider auch nicht weiterhelfen. Eine Funktion, die mir bei Access noch einfällt, ist SysCmd acSysCmdSetStatus, "Bitte Warten" Dadurch wird die Statusleiste des Programms mit dem Text gefüllt. Ist aber nicht besonders auffällig. Vielleicht gibt's ja eine vergleichbare Funktion auch in Excel.

Suboptimierer

09.10.2013, 13:29

Gib doch einfach eine Meldung aus: "Es wird eine umfangreiche Kopieraktion gestartet. Bitte brechen Sie diesen Vorgang nicht ab. Am Ende des Vorgangs wird Ihnen eine Statusmeldung angezeigt."

Ähnliche Beiträge

Wie kann man ein Userform mithilfe von VBA-Code schließen?

Frohes Neues liebe Community,

ich möchte in meinem VBA-Programm ein Userform direkt durch einen Befehl im Code schließen. Auf dem Userform befindet sich ein Button, welcher das Programm startet, dass am Ende eine Messagebox öffnet und nebenbei zum Schluss das Userform schließt. Sicherlich ist es ein ganz einfacher Befehl, aber ich bekomme es einfach nicht hin. Unloadme hat nicht funktioniert.

LG Patrick

...zum Beitrag

Ich möchte eine Userform mit einem VBA Code ausdrucken, wer weis wie es geht?

Private Sub btn3_Click() frmMengenrechner_Obi.PrintForm End Sub

Der Befehl druckt die Userform aus, aber leider nur einen kleinen Teil. Ich möchte einen Code, der mir ohne viel aufwand für den Anwender, die UserForm ausdruckt. Vielen Dank schon mal!!

...zum Beitrag

Word Datei Kopie VBA?

Hallo Leute,

folgendes: ich habe ein Word Datei mit Makros (.docm) und möchte einen Code in VBA schreiben der mir eine Kopie dieser Datei erstellt, am selben Ort speichert und anschließend öffnet. Hat jemand eine Idee wie das geht?

Danke im voraus!

Grüße

...zum Beitrag

Word VBA Textmarken Text ersetzen?

Hallo zusammen,

ich arbeite gerade an einer UserForm, mittels welcher der User Daten zu einer Person eingeben kann, welche automatisch ins Dokument eingefügt werden.

Sollstnad : "Name : Hans Peter" und sobald das Makro nochmal ausgeführt wird, soll Hans Peter z.B. durch Michale Maier ersetzt werden.

Jedoch sieht das beim zweiten Ausführen des Makros so aus : "Name : Hans PeterMichael Maier"

Also die eingabe wird hinter die erste Eingabe gesetzt, statt sie zu erseten

Mein code :

Private Sub CB_Submit_Click()

Dim v_Name As Range

Set v_Name = ActiveDocument.Bookmarks("BS_Name").Range

v_Name.Text = Me.TB_Name.Value

UserForm.Hide

End Sub

Danke schonmal für eure Antworten :)

...zum Beitrag

VBA User Input bei jedem Buchstaben/Zahl prüfen?

Hallo Miteinander
Ich würde gerne in VBA Word eine Inputbox oder Userform machen bei welcher man ein Passwort eingeben kann. Ich will aber nicht, das man das Passwort abschliessen muss, sondern das bei jedem Buchstaben bereits kontrolliert wird, ob das Passwort stimmt.

Weiss jemand wie das Funktioniert?

...zum Beitrag

VBA | UserForm öffnen, sobald Excel-Zelle (die eine Formel enthält) = 2?

Hallo,

Excel-VBA....

ich benötige Hilfe beim Thema UserForm öffnen und ständige Abfrage.

Ich habe eine Zelle mit einer Formel, der Wert, welcher raus kommt soll verglichen werden und bei z.b höher als 2 soll eine User Form geöffnet werden.

Kann mir da wer helfen? Ich bin komplett auf dem Holzweg..

Der Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$T$6" Then
If UCase(Target.Value) > 2 Then NewUserForm.Show
End If

End Sub

Devo

...zum Beitrag

VBA | Passwortschutz des Codes = ERROR?

Hallo zusammen.

ich habe einen ewigen VBA Code und dachte mir, diesen extra zu schützen. (Schutzfunktion von Excel)

Nun spinnt mein Programm an vielen Stellen.

cell.Interior.Pattern = xlNone

Wird ständig als falsch markiert, etc..

Woran liegt das?

Kann mein Code nicht auf die Tabellen zugreifen wenn diese ebenfalls gesperrt sind oder generell nicht auf die anderen module, userformen, tabellen, etc.

...zum Beitrag

Wie kann ich einen Excel VBA Code Wert in eine vorhandene UserForm einfügen, bearbeiten und zurück übertragen?

Wie kann ich die Werte der Zellen einer Spalte in ein die Textboxen einer UserForm übergeben sodass ich die Werte im Formular bearbeiten und bearbeitet wieder in die Tabelle eintragen kann. Also ich suche einen Code den ich in VBA eingeben kann.

...zum Beitrag

VBA | Abbrechen des Hineinschreibens bei Überschreitung der TxBOX der UserForm?

Hallo miteinander.

Ich bräuchte unbedingt mal ein paar Profi-Tipps.

Ich habe einen Code, welcher eingetragene Daten aus der UserForm abspeichert und in verschiedene Tabellen übernimmt.

Soll die Textbox jedoch einen höheren Wert als 100 beinhalten, soll das hineinschreiben und alle weiteren Befehle abgebrochen werden.
Eine weitere UserForm soll als popup auftauchen. bzw. mit popup.show

Die frage, welche ich mir stelle ist:

Wie bekomme ich es hin, dass sich das Popup-Fenster öffnet und das Eintragen der Textbox in die Tabellen gar nicht erst stattfindet.

...zum Beitrag

VBA: Variablenwert aus Textbox in Zahl ausgeben?

Moin,

Ich möchte aus einer UserForm (Textbox) einen wert (numerisch) als Zahlenwert in eine Zelle ausgeben.

Mein Problem besteht darin, dass Excel den wert als Text erkennt...

Public gewicht As Single
'----
ActiveSheet.Cells(7 , 6).Value = gewicht

Hat jemand eine Idee, wie ich da eine Zahl, mit der ich in Excel selber rechnen kann, draus macht

...zum Beitrag

VBA ListBox abfragen?

Hallo Leute,

ich habe ein VBA Userform mit einer Listbox und möchte den ausgewählten Eintrag abfragen für eine If-Verzweigung.

Der Code soll folgendes tun:

Wenn z.B der erste Beitrag der Liste ausgewählt, dann ...

Habe es bereits mit If Listbox.Selected(0) = True Then .... versucht, geht aber nicht.

Hat jemand Vorschläge?

Danke im voraus!

Grüße

...zum Beitrag

VBA Wenn TextBox leer dann Zeile ausblenden sonst einblenden und Text in Zeile kopieren?

Ich habe eine Userform erstellt wo man Rabatte einfügen kann und möchte das wenn die TextBox leer ist die Rabatt Zeile ausgeblendet ist und wenn sie beschrieben ist das die Zeile wieder angezeigt wird und der Text aus der TextBox in die Zeile gespielt wird

...zum Beitrag

Wie kann ich in VBA-Excel per laufender Nummer meine Userform Einlesen und danach diese "Einlesung" bearbeiten?

Hi, ich arbeite momentan an einer Userform(Bild) womit ich in meiner Tabelle "Gesamtdaten": In die erste leere Zeile einen neuen Mitarbeiter anlegen kann.

Diese läuft auch einwandfrei.

Der Übernehmen Button hat folgende Programierung: (ist nur der teil den Ihr auch auf dem Screenshot seht ... der rest wäre zu viel :D )

Private Sub cmdÜbernehmen_Click()

Dim ELZ As Long

ELZ = Sheets("Gesamtdaten").Cells(Rows.Count, 1).End(xlUp).Row + 1

Sheets("Gesamtdaten").Cells(ELZ, 1).Value = Me.TXTlfdNr.Value
Sheets("Gesamtdaten").Cells(ELZ, 2).Value = Me.TXTLehrjahr.Value
Sheets("Gesamtdaten").Cells(ELZ, 3).Value = Me.CBAusbildungsart.Value
Sheets("Gesamtdaten").Cells(ELZ, 4).Value = Me.CBAusbilder.Value
Sheets("Gesamtdaten").Cells(ELZ, 5).Value = Me.TXTName.Value
Sheets("Gesamtdaten").Cells(ELZ, 7).Value = Me.TXTVorname.Value
Sheets("Gesamtdaten").Cells(ELZ, 8).Value = Me.TXTPersonalnummer.Value
Sheets("Gesamtdaten").Cells(ELZ, 9).Value = Me.CBGeschlecht.Value
Sheets("Gesamtdaten").Cells(ELZ, 10).Value = Me.TXTStrasseHsNr.Value
Sheets("Gesamtdaten").Cells(ELZ, 11).Value = Me.CBPLZ.Value
Sheets("Gesamtdaten").Cells(ELZ, 12).Value = Me.CBOrt.Value

Der Abbruch button:

Private Sub cmdAbbruch_Click()

Unload Me

End Sub

Nun würde ich jedoch noch gerne einen button haben der wenn ich oben im Textfeld "lfdNr" eine schon vorhandene nummer eingebe. Dieser sofort alle daten in die jeweilge Combbox/Textbox einträgt und falls ich eine änderung vornehme diese auch mit rückfrage (msgbox Datensatz wurde geänder etc.) auch wieder in die Zeile der passenden LfdNr übernimmt.

Ich bin recht neu in VBA ... bzw. arbeite diese Jahr das 1. mal überhaupt mit excel ... desswegen hole ich mir (wenn ich nach [nun fast 1 woche] suchen keine lösung zu diesem problem finde die mir "zusagt" bzw. ich diese verstehe ... ( will ja was lernen ;'D )

Ich entschuldige mich schonmal für mein etwas "konfuses" auftreten aber hoffe auf Unterstützung :)

Was villeicht auch noch zu erwähnen ist:

Die lfdNr setzt sich automatisch beim öffnen der Userform auf die LfdNr die ein Neuer Datensatz automatisch bekommen sollte.

    TXTlfdNr = Sheets("DropDown-Menü's").Range("J15") 'In J15 steht die Formel =ANZAHL2(Gesamtdaten!A2:A502)

MfG Tim

...zum Beitrag

Excel VBA UserForm "Passwort ändern" funktioniert nicht?

Ich komme echt nicht weiter bei so einem einfachen Code! :(

Das Problem ist, dass die UserForm einmal funktioniert, aber beim zweiten Mal sagt er "Das Passwort ist nicht korrekt", obwohl es das eigentlich sein müsste. Per Direktbereich abgefragt ergibt sich dann immer, dass das Passwort auf "" steht. Findet jemand im Code den Fehler?

PS: "NeuesPasswort1" steht für die obere, "NeuesPasswort2" für die untere Reihe.

Option Explicit

Sub CheckBoxAltesPasswort_Click()
  If CheckBoxAltesPasswort.Value = True Then
    TextBoxAltesPasswort.PasswordChar = ""
    Else
      TextBoxAltesPasswort.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort1_Click()
  If CheckBoxNeuesPasswort1.Value = True Then
    TextBoxNeuesPasswort1.PasswordChar = ""
    Else
      TextBoxNeuesPasswort1.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort2_Click()
  If CheckBoxNeuesPasswort2.Value = True Then
    TextBoxNeuesPasswort2.PasswordChar = ""
    Else
      TextBoxNeuesPasswort2.PasswordChar = "*"
  End If
End Sub

Sub CommandButtonAbbrechen_Click()
  Me.Hide
End Sub

Sub CommandButtonSpeichern_Click()
  If TextBoxAltesPasswort.Value <> AltesPasswort Then
    MsgBox ("Das Passwort ist nicht korrekt.")
    Exit Sub
  End If
  If TextBoxNeuesPasswort1.Value <> TextBoxNeuesPasswort2.Value Then
    MsgBox ("Die Passwörter stimmen nicht überein.")
    Exit Sub
  End If
  If Len(TextBoxNeuesPasswort1.Value) < 5 Then
    MsgBox ("Bitte wählen Sie ein Passwort mit mindestens 5 Zeichen.")
    Exit Sub
  End If
  NeuesPasswort = TextBoxNeuesPasswort1.Value
  Passwort = NeuesPasswort
  Me.Hide
End Sub

Sub UserForm_Activate()
  AltesPasswort = Passwort
End Sub

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen