Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1796to1800
1796to1800
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehler beim Schließen/Druck aus Userform

Forumthread: Fehler beim Schließen/Druck aus Userform

Fehler beim Schließen/Druck aus Userform
12.12.2020 17:47:25
Andre
Hallo zusammen,
mit Hilfe des Forums habe ich einen Lagerdatei erstellt.
Über eine USerform soll ein Auftrag erstellt werden.
Wenn die Userform vorzeit beendet werden soll, bekomme ich eine Fehlermeldung. Gleiches beim Drucken des Beleges.
Da ich eigentlich keine Ahnung habe, würde ich mich freuen, wenn sich einer von Euch Experten das mal ansehen könnte.
Die Datei ist beigefügt:
https://www.herber.de/bbs/user/142284.xlsm
Danke und Gruß
Andre
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler beim Schließen/Druck aus Userform
12.12.2020 18:12:20
Nepumuk
Hallo Andre,
im "CommandButton_Druck_Click"-Event hast du einmal statt UserForm_Auftrag, IserForm_Auftrag geschrieben. Das war aber der einzige Fehler den ich entdecken konnte.
Klick mal im VBA-Editor - Menüleiste - Debuggen - Kompilieren von VBAProjekt. Das zeigt dir den Fehler.
Gruß
Nepumuk
Anzeige
AW: Fehler beim Schließen/Druck aus Userform
12.12.2020 19:37:22
Andre
der Fehler ist beim "TextBox-Artikel-AfterUpdate"-Event:
Private Sub TextBox_Artikel_AfterUpdate()
Dim boVorhanden As Boolean, ws As Worksheet
Dim zeile As Long, letzte As Long
Set ws = ThisWorkbook.Sheets("BESTAND")
letzte = ws.Cells(Rows.Count, 6).End(xlUp).Row
With ws
For zeile = 2 To letzte
If CLng(.Cells(zeile, 2)) = CLng(TextBox_Artikel) Then
boVorhanden = True
ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = .Cells(zeile, 1)
ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(zeile, 3)
ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(zeile, 2)
ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(zeile, 4)
ListBox1.List(ListBox1.ListCount - 1, 4) = .Cells(zeile, 7)
ListBox1.List(ListBox1.ListCount - 1, 5) = .Cells(zeile, 8)
ListBox1.List(ListBox1.ListCount - 1, 6) = .Cells(zeile, 9)
End If
Next
End With
If Not boVorhanden Then
Me.ListBox1.Clear
MsgBox "Die Artikel-Nummer ist nicht vorhanden!"
End If
Set ws = Nothing
End Sub
Die Zeile "If CLng(.Cells(zeile, 2)) = CLng(TextBox_Artikel) Then" wird dabei gelb markiert.
Anzeige
AW: Fehler beim Schließen/Druck aus Userform
12.12.2020 19:45:14
onur
Du meinst wohl, der ZWEITE Fehler.
Wenn die Textbox leer ist, ergibt CLng natürlich einen "Typen unverträglich"-Fehler.
Schreibe das vor die Zeile mit dem Fehler: 
If TextBox_Artikel="" then TextBox_Artikel="0"

AW: Fehler beim Schließen/Druck aus Userform
12.12.2020 19:47:00
Nepumuk
Hallo Andre,
so besser?
Private Sub TextBox_Artikel_AfterUpdate()
    
    Dim boVorhanden As Boolean
    Dim zeile As Long
    
    If IsNumeric(TextBox_Artikel.Text) Then
        
        With ThisWorkbook.Worksheets("BESTAND")
            
            For zeile = 2 To .Cells(.Rows.Count, 6).End(xlUp).Row
                
                If Clng(.Cells(zeile, 2).Value) = Clng(TextBox_Artikel.Text) Then
                    boVorhanden = True
                    ListBox1.AddItem
                    ListBox1.List(ListBox1.ListCount - 1, 0) = .Cells(zeile, 1).Value
                    ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(zeile, 3).Value
                    ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(zeile, 2).Value
                    ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(zeile, 4).Value
                    ListBox1.List(ListBox1.ListCount - 1, 4) = .Cells(zeile, 7).Value
                    ListBox1.List(ListBox1.ListCount - 1, 5) = .Cells(zeile, 8).Value
                    ListBox1.List(ListBox1.ListCount - 1, 6) = .Cells(zeile, 9).Value
                End If
            Next
        End With
        
        If Not boVorhanden Then
            ListBox1.Clear
            MsgBox "Die Artikel-Nummer ist nicht vorhanden!"
        End If
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: Fehler beim Schließen/Druck aus Userform
12.12.2020 19:59:53
Andre
beide Varianten funktionieren. Danke für die Hilfe!

Forumthreads zu verwandten Themen

Datei und Userform schliesen klappt nicht
chris

Hallo VBA Experten,
ich muss um eure Hilfe bitten.
Würde mich sehr über Hilfe freuen.
ich habe eine userform.Diese möchte ich gerne schliesen wenn ich auf das X oben rechts klicke.
Aber es hängt sich bei mir immer Excel auf.
Diesen Code verwende ich.Muss dann zwar noch weit...
29.10.2008 13:15:05
Thread-ID: 1020256
7 Beiträge
Userform schliesen fehler (min,max buttons)
chris

Hallo VBA Profis,
ich glaube ich habe heute ein schweres Problem.
ich komme nicht weiter und das schon lange.
Ich habe eine Datei erstellt mit meheren Userformen usw..
Meine formen können verschoben werden und auch die größe kann mit der Maus verändert werden.
Dazu lade ich...
04.11.2008 07:19:21
Thread-ID: 1021453
4 Beiträge
TextBox von Aktivierreihenfolge ausschliesen
Aktivierreihenfolge

Mahlzeit Leute
Eine Frage: Wie kann man in einer UF TextBoxen & CheckBoxen von der Aktivierungs Reihenfolge ausschliessen ?
Also das man diese Boxen mit der Eingabetaste überspringt ? Habe Locked auf True gestellt.
Gruß
Heinz
19.01.2009 12:36:00
Thread-ID: 1041374
7 Beiträge
Mappe geht nach Schließen wieder auf!?
Konni

Hallo Freunde,
ich habe eine Excelmappe, die automatisch per Countdown gespeichert und geschlossen wird, wenn innerhalb einer vorgegeben Frist (hier 1 Minute) keine Eingabe erfolgt. Funktioniert tadellos.
Auch bei anderen Mappen mit dem gleichen Code habe ich keinerlei Probleme
Prob...
24.06.2009 13:54:41
Thread-ID: 1084107
10 Beiträge
beim Schließen mit Kreuz soll ...
ben

Hallo,
Ich habe eine UserForm erstellt. Beim Schließen dieser Userform durch das Kreuz (X) am rechten oberen Userformrand (tut mir leid, ich weiß nicht wie das Ding in Fachkreisen genannt wird), soll Excel automatisch in eine andere Tabelle springen (Sheets.Select).
Danke für eure Hilf...
03.07.2009 10:53:49
Thread-ID: 1086175
8 Beiträge
Workbook einer anderen Instanz schließen
andreas78

Hi liebes Forum-
komm nicht mehr weiter.
wie kann ich elegant mittels VBA aus einer Instanz heraus ein Workbook einer anderen Instanz schließen (Pfad bekannt).
12.07.2009 18:50:49
Thread-ID: 1088006
6 Beiträge
Datei mit Time und anschließend löschen
Kay

Hi,
habe eine Datei, aus der ich 3 Arbeitsblätter in eine neue kopiere und diese dann anhand von einigen Infos bestimmter Zellen umbenenne und diese "neue" Datei dann per Outlook s Anhang versende...
Jetzt habe ich folgende Frage:
Wie kann ich die "Uhrzeit" (Time) mit in den Datei...
19.07.2009 11:16:17
Thread-ID: 1089751
4 Beiträge
UserForm Schließen
Werner

Hallo zusammen,
habe folgendes Makro geschrieben........
Private Sub CommandButton2_Click() Application.ScreenUpdating = False Rows("11:36").EntireRow.Hidden = True ' Abteilung 1 Ausblenden Range("A8:AG258").PrintOut Copies:=1, Collate:=False ' Abteilung 2...
23.07.2009 16:17:58
Thread-ID: 1090863
3 Beiträge
msgbox für 3 sekunden, dann automatisch schließen
k

Hallo,
...kann man eine MSGbox 3 Sekunden stehen lassen (Warnung) und dann automatisch schließen ?
Wenn ja wie ?
Gruß und Danke
Kay
14.08.2009 14:47:19
Thread-ID: 1096002
8 Beiträge
Anzeige
Datei Schließen
Werner

Hallo zusammen,
ich habe Dank Eurer Hilfe folgendes Makro erstellt.
Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("Startcenter").Activate If Workbooks.Count = 1 Then Application.Quit Else ActiveWorkbook.Close End If End Sub
das klapt eigentlich wunderb...
16.08.2009 06:30:21
Thread-ID: 1096189
4 Beiträge
Anzeige
Task iexplorer.exe schließen
k

Hallo,
...ich nutzte per VBA-Code (hatte ich hier mal gefunden) die Möglichkeit auf ggogle.maps im Hintergrund zu greifen, um die Fahrzeit und Entfernung von 2 Anschriften zu ermitteln.
Das klappt soweit ganz gut, aber wie lautet der Befehl - um iexplore.exe wieder zu schließen ?
Im...
25.08.2009 14:37:45
Thread-ID: 1098456
3 Beiträge
arbeitsmappe öffnen, speichern und schließen
otto

Hi,
ich habe eine Arbeitsmappe mit einer Webabfrage.
Beim starten des PC öffnet sich die Arbeitsmappe(Autostart) und im Workbook.Open Ereignis wird die Abfrage aktualisiert.
Nun möchte ich, dass die Arbeitsmappe nach der Aktualisierung automatisch gespeichert und geschlossen wird. W...
27.08.2009 11:35:34
Thread-ID: 1098953
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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