Userform-Fehlermeldung
12.11.2014 15:11:41
H.Peter
der VBA-Analphabet hat immer noch ein Problem. Nach dem Aufruf einer
Userform (Abfrage) kann ich das Formular ausfüllen und die Daten werden beim Schließen auch korrekt auf das Excel-Sheet übertragen. Ich erhalte allerdings gleichzeitig die Fehlermeldung "Objektvariable oder With-Blockvariable nicht festgelegt".
Ich habe danach alle sinnigen oder unsinningen Variablen festgelegt, ohne dass sich was geändert hat.
Frage 1: was ist falsch?
Frage 2: welche Variablen sind überflüssig?
Frage 3: wären für den Wert bzw Index aus der ComboBox auch die markierte Kurzform okay gewesen?
Frage 4: Gibt es eine Möglichkeit, dass die Daten in der Userform erhalten bleiben
und bei Bedarf geändert werden können?
Vielen Dank für die Hilfe und Eure Geduld
https://www.herber.de/bbs/user/93715.xlsm
Option Explicit
Private Sub Leeren_Click()
Abfrage.Hide
End Sub
Private Sub Schließen_Click()
Unload Me
End Sub
Private Sub Userform_Initialize()
'Abfrage = UserForm
Abfrage.Show
Dim Deckblatt As Worksheet
Dim Routine As Worksheet
Dim Ben As Integer 'neue Version
Dim Spwa As Single 'neue Version
Dim PLZ As String
Dim Schnee As Single
Dim PN As String
PLZ = Postleitzahl.Value
Schnee = Schneelast.Value
PN = Projektname.Value
Ben = Me.Bearbeiter.ListIndex 'neue Version
Spwa = Me.Spannweite.Value 'neue Version
'alt
'Worksheets("Routine").Range("A10").Value = Me.Bearbeiter.ListIndex
'Worksheets("Routine").Range("I16").Value = Me.Spannweite.Value
Sheets("Routine").Select
Cells(10, 1).Value = Ben 'neue Version
Cells(16, 9).Value = Spwa 'neue Version
Sheets("Deckblatt").Select
Cells(9, 1).Value = PLZ
Cells(9, 3).Value = Schnee
Cells(9, 5).Value = PN
End Sub