Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Arbeitsmappe nicht mehr sichtbar
#1
Question 
Hallo zusammen,

ich hab leider folgendes Sub ausgeführt:


Code:
Private Sub Workbook_Open()
Windows(Me.Name).Visible = False
Bedieneroberflaeche.Show
End Sub

Nun lässt sich die Datei zwar öffnen aber meine Arbeitsmappe ist unsichtbar und folgende Fehlermeldung kommt:

Laufzeitfehler'1004':

Die Methode "Range" für das Objekt'_Global' ist fehlgeschlagen

Beim drücken auf den Button Debuggen wird folgende Zeile angezeigt:

Code:
Private Sub TextBox1_Change()
Range("F12").Value = TextBox1.Value
End Sub

Jedoch muss das mit dem Oben genannten Sub zusammenhängen da diese Zeile noch nie Probleme bereitet hat.

Kann mir zufällig jemand helfen?

Danke & viele Grüße.
Antwortento top
#2
Hallo Pascala,

Du musst das Worksheet mit angeben.

Code:
Private Sub TextBox1_Change()
ThisWorkbook.Worksheets("Blabla").Range("F12").Value = TextBox1.Value
End Sub

Gruß Uwe
Antwortento top
#3
(22.07.2020, 08:23)Kuwer schrieb: Hallo Pascala,

Du musst das Worksheet mit angeben.

Code:
Private Sub TextBox1_Change()
ThisWorkbook.Worksheets("Blabla").Range("F12").Value = TextBox1.Value
End Sub

Gruß Uwe

Dankeschön Uwe!


es besteht aber leider noch weiterhin das Problem das ich meine Arbeitsmappe nicht sehe.
Und Weiterer Fehler wird mir nun angezeigt:
Code:
ComboBox1.RowSource = "Parameter!A1:A12"
Antwortento top
#4
Hallo Pascala,

Code:
Private Sub Workbook_Open()
Windows(Me.Name).Visible = True
Bedieneroberflaeche.Show
End Sub

Gruß Uwe
Antwortento top
#5
(22.07.2020, 09:12)Kuwer schrieb: Hallo Pascala,

Code:
Private Sub Workbook_Open()
Windows(Me.Name).Visible = True
Bedieneroberflaeche.Show
End Sub

Gruß Uwe

Dankeschön!

Jedoch hat das auch nicht zum erfolg verholfen.
Ich habe jetzt nochmal den Code auf eine ganz neue Arbeitsmappe kopiert und die Printvorlage angepasst.
Jetzt geht wieder alles.
Trotzdem Dankeschön.Smile

Viele Grüße.
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste