ich habe in diesem Forum schon viel Hilfe und Lösungen gefunden. Allerdings komme ich nun nicht weiter und finde auch keine Lösung für mein Problem.
Vielleicht könnt ihr mir helfen?
Ich bekomme bei nachfolgendem Skript immer folgende Fehlermeldung
"Laufzeitfehler '91: Objektvariable oder With-Blockvariable nicht festgelegt"
Ich habe auch schon verschiedene Websiten konsultiert und verschiedene Skriptanpassungen vorgenommen (ein paar seht ihr noch im Skript). Leider bekomme ich diesen Fehler bisher nicht behoben und mir gehen die Ideen aus ... seht ihr noch etwas? vielleicht offensichtliches, was ich aus betriebsbildheit bisher übersehen habe?
Das Script soll bei Änderung einer ComboBox (cbVorlage) in einer UserForm den Wert der ComboBox(strVorlage = cbVorlage.Value) nehmen, in der Zeile 1 der Mappe wsHS finden (Ergebnis = ....) und die Nummer der Spalte in der Variablen z ablegen. Der Debugger markiert die Zeile ....
Ergebnis = wsHS.Rows(1).Find(what:=strVorlage, LookIn:=xlValues, lookat:=xlWhole)
Vielen Dank im Voraus für eure Unterstützung.
Grüße
Richard
Option Explicit
Dim wb As Workbook
Dim wsHS As Worksheet, wsHT As Worksheet
Dim i As Long, z As Long
Dim Ergebnis As Range
Dim strVorlage As String
Private Sub Definition()
Set wb = ThisWorkbook
Set wsHT = wb.Worksheets("Hilfstabelle")
Set wsHS = wb.Worksheets("Hochschulen")
End Sub
Private Sub cbVorlage_Change()
Call Definition
strVorlage = cbVorlage.Value
'Ergebnis = Application.Match(strVorlage, Range("1:1"), 0)
'Ergebnis = wsHS.Rows(1).Find(strVorlage)
'Ergebnis = wsHS.Rows(1).Find(what:=strVorlage, LookIn:=xlValues)
Ergebnis = wsHS.Rows(1).Find(what:=strVorlage, LookIn:=xlValues, lookat:=xlWhole)
z = Ergebnis.Column
End Sub