Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1912to1916
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
1912to1916
1912to1916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Private Sub Workbook_Open()

Private Sub Workbook_Open()
01.01.2023 16:21:01
Heinz
Ein gutes neues Jahr an alle hier im Forum,
Mein Problem:
Habe bei "Private Sub Workbook_Open()"
eine UserForm die ich mit "Fehler_Eingabe.Show" aufrufe.
Seit neuestens kommt jetzt aber immer der LaufzeitFehler "380" Eigenschaft Value konnte nicht gesetzt werden. Ungültiger Eigenschaftenwert."
Wüsste jemand woran das liegen kann ?
Danke
SG, Heinz

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Private Sub Workbook_Open()
01.01.2023 16:32:02
onur
An Zeile 17 deines Codes liegt es.
AW: Private Sub Workbook_Open()
01.01.2023 16:38:21
Heinz
Hallo onur,
Du hast natürlich recht mit Zeile 17, mit deiner Glaskugel
Aber der Code wurde nie geändert.
Danke
Heinz

Option Explicit
Private Sub Workbook_Open()
'Private Sub Workbook_Activate()
Application.ScreenUpdating = False
'UserForm2.Show
Worksheets("Eingabe").Activate
'Fehler_Eingabe.Show
Call Datumformat_erzeugen
Call text_in_zahl_allSheets2
If Worksheets("Eingabe").Range("F14")  2 Then ActiveWindow.ScrollRow = ActiveCell.Row - 2
End If
Fehler_Eingabe.Show
'Unload Fehler_Eingabe
'Fehler_Eingabe.Show
'Sheets("Schicht AF").Visible = True ' einblenden
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Private Sub Workbook_Open()
01.01.2023 16:41:02
onur
Jetzt müsstest du nur noch verraten, WO genau die Fehlermeldung kommt.....
AW: Private Sub Workbook_Open()
01.01.2023 16:46:30
Heinz
Hallo onur,
Beim öffnen der Arbeitsmappe "Fehler_Eingabe.Show"
Heinz
AW: Private Sub Workbook_Open()
01.01.2023 16:51:29
onur
In welcher ZEILE ? Einfach mal "Debuggen" anklicken und VBA zeigt es dir.
AW: Private Sub Workbook_Open()
01.01.2023 16:55:10
Heinz
onur,
in der 3. letzten

Fehler_Eingabe.Show
Application.ScreenUpdating = True
End Sub

AW: Private Sub Workbook_Open()
01.01.2023 16:57:50
onur
Das hilft mir so nicht weiter. Poste mal die Datei (Daten kannst du ja löschen).
AW: Private Sub Workbook_Open()
01.01.2023 17:22:16
onur
Es gibt keine UF "Fehler_eingetragen", nur "Fehler_Eingabe" und "UFEinblenden".
AW: Private Sub Workbook_Open()
01.01.2023 18:13:53
Heinz
Hallo onur,
Ja es geht um die UF "Fehler_Eingabe"
SG, Heinz
AW: Private Sub Workbook_Open()
01.01.2023 18:33:58
onur
Als würde ich mit der Wand reden: Dein Code versucht eine Userform zu öffnen, die es NICHT gibt ! Daher die Fehlermeldung !
AW: Private Sub Workbook_Open()
01.01.2023 18:54:11
Heinz
Hallo onur,
Hier in der UF "Fehler_Eingabe" liegt der Fehler, habe ich gerade herausbekommen.
If Sheets("Schicht AF").Range("A2").Value > Date Then MsgBox "Falsches Datum"
If Sheets("Schicht AF").Range("A2").Value > Date Then 'MsgBox "Falsches Datum"
MsgBox "Sie sollten die Datei erst ab " & Sheets("Schicht AF").Range("A2") & " " & "benutzen"

Könnte man diese Zeilen nicht ändern, zB. einen Monat vor 01.01.2023 ?
Mit dem Datum im Sheets "Schicht AF").in Range("A2") steht das Datum von heute (01.01.2023), denke das es ab morgen Fehlerfrei geht

Private Sub UserForm_Initialize()
Dim MyArray  As Variant
Dim lIndx    As Long
Dim oDic     As Object
Dim lIndxA   As Long      ' For/Next Index - außen
Dim lIndxI   As Long      ' For/Next Index - innen
Dim sTemp    As String    ' temporärer Zwischenspeicher
'Dim i As Long, k As Long
'      hier wird die ComboBoxDatum befüllt
With ThisWorkbook.Worksheets("Schicht AF") ' den Tabellenblattnamen ggf. anpassen!
MyArray = .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With
Set oDic = CreateObject("Scripting.Dictionary")
For lIndx = 1 To UBound(MyArray)
If MyArray(lIndx, 1)  "" Then
oDic(MyArray(lIndx, 1)) = 0
End If
Next lIndx
With ComboBoxDatum
.Style = 2
.List = Application.Transpose(oDic.keys)
End With
ComboBoxSchicht.AddItem 1
ComboBoxSchicht.AddItem 2
ComboBoxSchicht.AddItem 3
'ComboBoxSchicht = AddItem 1
If Sheets("Schicht AF").Range("A2").Value > Date Then MsgBox "Falsches Datum"
If Sheets("Schicht AF").Range("A2").Value > Date Then  'MsgBox "Falsches Datum"
MsgBox "Sie sollten die Datei erst ab " & Sheets("Schicht AF").Range("A2") & " " & "benutzen"
Fehlerbehandlung:
Exit Sub
Fehler:
End If
ComboBoxDatum = Date - 1 'Datum von gestern  ' Wieder aktivieren 02.12.2014
'hier kannste wieder automatisch einlesen
Call ComboboxList_Blattnamen_FehlerLinie 'im Modul1 neu!
With ComboBoxgemeldetHE
.AddItem "VF"
.AddItem "FF"
.AddItem "LS"
.AddItem "Kontrolle"
.AddItem "k.A."
.AddItem ""
End With
With ComboBoxVerdacht
.AddItem "Ja"
.AddItem "Nein"
.AddItem ""
End With
With ComboBoxUmbau
.AddItem "Ja"
.AddItem "Nein"
.AddItem ""
End With
With ComboBoxwie_oft
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "4"
.AddItem "5"
.AddItem "6"
.AddItem "7"
.AddItem "8"
.AddItem "9"
.AddItem "10"
.AddItem ""
End With
End Sub
Danke Heinz
Anzeige
AW: Private Sub Workbook_Open()
01.01.2023 19:01:59
onur
Was wess ich? Die von dir gepostete Datei bleibt schon an der Zeile 

Fehler_eingetragen.Show
hängen, weil so eine UF in dieser Datei nicht existiert, ebensowenig wie ein Blatt namens "Schicht AF".
AW: Private Sub Workbook_Open()
02.01.2023 05:19:54
Heinz
Hallo onur,
Hier mit den UF,
Wie gesagt ab heute 2.1.2023 funktioniert die Datei ohne Probleme.
https://www.herber.de/bbs/user/157027.xlsm
Danke
SG, Heinz
AW: geschlossen
06.01.2023 10:52:57
Piet
Hallo
warum offen lassen? Es gibt keine Rückfragen mehr!
mfg Piet

223 Forumthreads zu ähnlichen Themen

Private Sub open geht nicht gut
Lukas

Hi Allerseits
Kann mir jemand von Euch helfen'
Ich starte die Datei mit Private Sub Workbook_Open() und lasse die Willkommenseite als Userform öffnen. Bis dahin alles i.O. Private Sub Workbook_Open() On Error Resume Next Application.Visible = False Application.ScreenUpdating = False...
14.02.2009 14:03:00
Thread-ID: 1050709
7 Beiträge
Anzeige
Private Sub Workbook_Open()
Sandra

Hallo zusammen,
mittels dieses Ereignisses erhält mein Chef montags und mittags beim Öffnen der Datei eine Info:
Private Sub Workbook_Open() Sheets("Übersicht").Select If Weekday(Date, 2) = 1 Or Weekday(Date, 2) = 3 Then MsgBox "über ..... informieren!" End If End Sub
Dummerweise...
16.10.2009 17:36:38
Thread-ID: 1110164
7 Beiträge
Private Sub WorkbookOpen() | Herbers Excel-Forum
Heinz H
Hallo Leute
Ich habe unten den Code. Wenn Arbeitsmappe öffnen dann, von Sheet "OrgWert" B4:B13 in
Sheet "Prüfungen" B4:B13 kopieren.
Ist hier ein Fehler ?
Denn es wird nicht immer kopiert.
Gruß
Heinz
Private Sub Workbook_Open()
Sheets("OrgWert").Range("B4:B13").Copy<...
31.01.2010 17:59:02
Thread-ID: 1134636
4 Beiträge
Anzeige
Private Sub Workbook_BeforeClose
Scot

Liebe Leute
Ich hab mal wieder ein kleines Problem. Folgendes habe ich in "DieseArbeitsmappe" geschrieben:
Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ScreenUpdating = False Application.MoveAfterReturnDirection = xlDown Application.CommandBars("Standard").Visible =...
22.09.2011 13:56:18
Thread-ID: 1231079
11 Beiträge
Sub Workbook_Open()
Manfred

Hallo zusammen,
ist es möglich nach einem Sub Workbook_Open() dierekt auf das Blatt KALENDER zu springen ? Ich bekomme das einfach nichthin. Sub Workbook_Open() 'hier werden die Tabellen versteckt Sheets("Passwort").Visible = 2 Sheets("Benutzer_01").Visible = 2 'Die Passwortabfrage sollt...
22.08.2013 09:53:58
Thread-ID: 1327935
2 Beiträge
Zwei unterschiedliche Private Sub Workbook_Sheet..
Alex

Hallo Herr Herber,
ich fürchte, dass ich bei einer Kombination aus zwei VBA-Codes nicht weiterkomme.
Ich habe einen Urlaubsplaner auf der Arbeit.
Bei diesem habe ich den Code (aus dem Netz) eingebettet, der die Datei nach 10 unbenutzten Minuten automatisch schließt.
Link: http:/...
15.01.2015 08:26:00
Thread-ID: 1402921
2 Beiträge
Private Sub Workbook_BeforeClose
Heinz

Hallo Leute
Könnte man den unteren Code etwas eleganter schreiben?
Denn wenn ich die Arbeitsmappe schließe, Flackert der Bildschirm so lange bis alle Sheets geschlossen sind.
Also etwa im Hintergrund schließen.
Danke & gruß Heinz Private Sub Workbook_BeforeClose(Cancel As B...
18.08.2015 21:00:19
Thread-ID: 1443017
3 Beiträge
Private Sub Workbook_Open() aus AddIn in Datei
Veit

Hallo,
ich suche ein Möglichkeit einer neuen EXCEL-Datei aus einem AddIn heraus ein Start-Makro zuzuweisen. Hintergrund der Geschichte ist, daß sobald eine zum AddIn gehörende Datei geöffnet wird schon die ersten Makros aus dem Addin ausgeführt werden sollen.
Gibt es da eine Möglichkeit?...
20.08.2002 14:55:16
Thread-ID: 150664
4 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox 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
6
2
6
3
2
10
1
1
2
3
1
4
10
9
3
4
4
3
7
4
1
5
7
1
20