Hallo zusammen,
ich bräuchte Hilfe bei Erstellung einer Userform.
ich habe eine Datenpunktliste wo diverse Zellen über andere Tabelle aus anderen Tabellenblat konfiguriert werden. ich habe mir zur Änderung der Konfiguration eine Userform erstellt, diese funktioniert ausschließlich wenn der Tabellenblatt wo sich die Daten befinden aktiv ist. Sobald ich das Makro von anderem Blatt abrufe, bekomme ich die Meldung Laufzeitfehler '91': Objektvariable oder With-Blockvariable nicht festgelegt.
Anbei ist der Code:
Private Sub button_abbrechen_Click()
Unload UserForm3
End Sub
Private Sub button_uebernehmen_Click()
Dim zelle As Range
Set zelle = Tabelle4.Range("tab_DLH_Konfigurator[DLH]").Columns(1).Find(UserForm3.cbx_dlh.Value, LookIn:=xlValues, lookat:=xlWhole)
zelle.Offset(0, 1).Value = UserForm3.TextBox1.Value
zelle.Offset(0, 2).Value = UserForm3.cbx_zone.Value
If UserForm3.opt_kondensatpumpe_ja.Value = True Then
zelle.Offset(0, 3).Value = "ja"
ElseIf UserForm3.opt_kondensatpumpe_nein.Value = True Then
zelle.Offset(0, 3).Value = "nein"
Else
zelle.Offset(0, 3).Value = ""
End If
zelle.Offset(0, 4).Value = UserForm3.cbx_regelventil.Value
If UserForm3.opt_zulufttemperatur_ja.Value = True Then
zelle.Offset(0, 5).Value = "ja"
ElseIf UserForm3.opt_zulufttemperatur_nein.Value = True Then
zelle.Offset(0, 5).Value = "nein"
Else
zelle.Offset(0, 5).Value = ""
End If
If UserForm3.opt_raumtemp_ja.Value = True Then
zelle.Offset(0, 6).Value = "ja"
ElseIf UserForm3.opt_raumtemp_nein.Value = True Then
zelle.Offset(0, 6).Value = "nein"
Else
zelle.Offset(0, 6).Value = ""
End If
zelle.Offset(0, 7).Value = UserForm3.txt_sensorbezeichnung.Value
If UserForm3.opt_kombisensor_ja.Value = True Then
zelle.Offset(0, 8).Value = "ja"
ElseIf UserForm3.opt_kombisensor_nein.Value = True Then
zelle.Offset(0, 8).Value = "nein"
Else
zelle.Offset(0, 8).Value = ""
End If
zelle.Offset(0, 9).Value = UserForm3.cbx_sensortyp.Value
If UserForm3.opt_freigabe_ja.Value = True Then
zelle.Offset(0, 10).Value = "ja"
ElseIf UserForm3.opt_freigabe_nein.Value = True Then
zelle.Offset(0, 10).Value = "nein"
Else
zelle.Offset(0, 10).Value = ""
End If
Unload UserForm3
End Sub
Private Sub cbx_dlh_Change()
Dim zelle As Range
Set zelle = Sheets("Konfigurator").Range("tab_DLH_Konfigurator[DLH]").Columns(1).Find(UserForm3.cbx_dlh.Value, LookIn:=xlValues, lookat:=xlWhole)
UserForm3.TextBox1.Value = zelle.Offset(0, 1).Value
UserForm3.cbx_zone.Value = zelle.Offset(0, 2).Value
If zelle.Offset(0, 3).Value = "ja" Then
UserForm3.opt_kondensatpumpe_ja.Value = True
ElseIf zelle.Offset(0, 3).Value = "nein" Then
UserForm3.opt_kondensatpumpe_nein.Value = True
Else
End If
UserForm3.cbx_regelventil.Value = zelle.Offset(0, 4).Value
If zelle.Offset(0, 5).Value = "ja" Then
UserForm3.opt_zulufttemperatur_ja.Value = True
ElseIf zelle.Offset(0, 5).Value = "nein" Then
UserForm3.opt_zulufttemperatur_nein.Value = True
Else
End If
If zelle.Offset(0, 6).Value = "ja" Then
UserForm3.opt_raumtemp_ja.Value = True
ElseIf zelle.Offset(0, 6).Value = "nein" Then
UserForm3.opt_raumtemp_nein.Value = True
Else
End If
UserForm3.txt_sensorbezeichnung.Value = zelle.Offset(0, 7).Value
If zelle.Offset(0, 8).Value = "ja" Then
UserForm3.opt_kombisensor_ja.Value = True
ElseIf zelle.Offset(0, 8).Value = "nein" Then
UserForm3.opt_kombisensor_nein.Value = True
Else
End If
UserForm3.cbx_sensortyp.Value = zelle.Offset(0, 9).Value
If zelle.Offset(0, 10).Value = "ja" Then
UserForm3.opt_freigabe_ja.Value = True
ElseIf zelle.Offset(0, 10).Value = "nein" Then
UserForm3.opt_freigabe_nein.Value = True
Else
End If
End Sub
Private Sub UserForm_Initialize()
Dim zelle As Range
UserForm3.cbx_dlh.RowSource = Range("tab_DLH_Konfigurator[DLH]").Address
UserForm3.cbx_zone.RowSource = Range("tab_Zonenliste").Address
UserForm3.cbx_regelventil.AddItem "auf/zu"
UserForm3.cbx_regelventil.AddItem "MOD"
UserForm3.cbx_regelventil.AddItem "Bacnet"
UserForm3.cbx_regelventil.ListIndex = 0
UserForm3.cbx_dlh.ListIndex = 0
Set zelle = Tabelle4.Range("tab_DLH_Konfigurator[DLH]").Columns(1).Find(UserForm3.cbx_dlh.Value, LookIn:=xlValues, lookat:=xlWhole)
UserForm3.TextBox1.Value = zelle.Offset(0, 1).Value
UserForm3.cbx_zone.Value = zelle.Offset(0, 2).Value
If zelle.Offset(0, 3).Value = "ja" Then
UserForm3.opt_kondensatpumpe_ja.Value = True
ElseIf zelle.Offset(0, 3).Value = "nein" Then
UserForm3.opt_kondensatpumpe_nein.Value = True
Else
End If
Me.cbx_regelventil.Value = zelle.Offset(0, 4).Value
If zelle.Offset(0, 5).Value = "ja" Then
UserForm3.opt_zulufttemperatur_ja.Value = True
ElseIf zelle.Offset(0, 5).Value = "nein" Then
UserForm3.opt_zulufttemperatur_nein.Value = True
Else
End If
If zelle.Offset(0, 6).Value = "ja" Then
UserForm3.opt_raumtemp_ja.Value = True
ElseIf zelle.Offset(0, 6).Value = "nein" Then
UserForm3.opt_raumtemp_nein.Value = True
Else
End If
UserForm3.txt_sensorbezeichnung.Value = zelle.Offset(0, 7).Value
If zelle.Offset(0, 8).Value = "ja" Then
UserForm3.opt_kombisensor_ja.Value = True
ElseIf zelle.Offset(0, 8).Value = "nein" Then
UserForm3.opt_kombisensor_nein.Value = True
Else
End If
UserForm3.cbx_sensortyp.Value = zelle.Offset(0, 9).Value
If zelle.Offset(0, 10).Value = "ja" Then
UserForm3.opt_freigabe_ja.Value = True
ElseIf zelle.Offset(0, 10).Value = "nein" Then
UserForm3.opt_freigabe_nein.Value = True
Else
End If
End Sub
Hätte jemand Idee wie ich es beheben könnte?