Office: VBA Problem

WIN 7 Prof
Office 2007 H+S

Hallo liebe Ex(cel)perten,

ihr habt mir mal ein VBA-Projekt gebastelt, bei dem ich innerhalb einer Datei aus einer Zelle heraus per Dropdown auf Daten eines anderen Tabellenblattes zugreifen konnte.
Ich habe vor kurzem mit Hilfe eines Freundes, (ich kann sowas nicht), meine C-Partition vergrößert. Dabei haben wir wahrscheinlich irgendetwas wichtiges für das VBA-Projekt verschoben oder sonstwas angestellt, das diese Funktion nicht mehr funktionieren lässt.

Beim Auswählen einer Zelle, erscheint nun folgende Fehlermeldung:
>>> Laufzeitfehler '-2147467259(80004005) Die Methode "LinkedCell" für das '_OLEObject' ist fehlgeschlagen. <<<

Beim öffnen des Debuggers erscheint im dann angezeigten Fenster der VBA-Code, bei dem eine Zeile "Gelb" hinterlegt ist, ich mach die hier mal "Rot" weil man das besser sieht.
Ich bin sicher ihr habt eine Lösung dafür und hoffe, dass ich die dann auch umsetzten kann.

Vielen Dank schon mal vorweg
Thomas



Option Explicit
Dim Shp As Shape, Ole As OLEObject

Private Sub ComboBox1_Change()

End Sub
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1.DropDown 'Nach einem Doppelklick wird die Comboliste angezeigt.
End Sub

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
ComboBox1.Visible = False 'ComboBox1 wird nach EINGABE-Taste ausgeblendet
ActiveCell.Select 'und die dahinterliegende aktive Zelle selektiert.
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Der Name "ComboBox1" muss unbedingt
'an den Namen der eingefügten Combo angepasst werden!!
Set Ole = ActiveSheet.OLEObjects("ComboBox1") '<—— <——
With Ole
If Target.Column = 4 And Target.Row > 3 Then
.Left = Target.Left
.Top = Target.Top
.Width = Target.Width
.Height = Target.Height
.Visible = msoTrue
.LinkedCell = Target.Address
Else
.Visible = msoFalse
End If
End With
End Sub
Public Sub ActiveX_Combo_Einfügen()
Set Ole = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
Link:=False, DisplayAsIcon:=False, _
Left:=340.5, Top:=435, Width:=153, Height:=18)
With Ole
.ListFillRange = "$A$4:$A$100"

With .Object
.ListRows = 45
.ColumnHeads = True
.MatchEntry = fmMatchEntryComplete
End With

MsgBox Prompt:="Name der Combobox (unbedingt notieren!): " & vbCrLf & vbCrLf & .Name, _
Title:="Combobox-Name", _
Buttons:=vbInformation

End With

End Sub

 

Moinsens!

Ich bin mir jetzt auch nicht sicher, was da eigentlich schief läuft. Aber die Fehlermeldung an sich ist schon irgendwie falsch / irreführend. Denn: .LinkedCell ist keine Methode sondern eine Eigenschaft des Objekts. (Ok, meist liegt hinter der "property" auch noch etwas Programm-Logik, aber definitiv kein "sub .. end sub" wie bei einer Methode.)

Interessanterweise lassen sich die anderen Eigenschaften ja aber ohne Fehlermeldung setzen. Es liegt also vielleicht nicht grundsätzlich am OLE-Objekt selbst, aber zumindest an dieser einen Eigenschaft. Denn ansonsten müßte das "Set ..." schon einen Fehler verursachen.

Oder es liegt am übergebenen "Target", welches sich nicht als Wert für .LinkedCell eignet. Dann wäre die Fehlermeldung zwar immer noch irreführend, aber im Kern berechtigt.

Ich hab das mal eben nachgebaut und kann eigentlich keine Probleme feststellen. Ich hab noch ein "and target.cells.count=1" mit in die erste Abfrage eingebaut, damit es nicht komisch aussieht, wenn man mit der Maus einen Bereich markiert.

Versuch mal als Gegenprobe das Ding im Anhang. Geht das auch nicht, dann ist vielleicht etwas mit Deiner Office-Installation zerhackt.

Btw: Beim Erzeugen der ComboBox kannst Du der auch gleich einen Namen vergeben. Damit sparst Du dir das Notieren des Namens und das Anpassen des VBA-Codes. Außerdem könntest Du ggf. vor dem Erzeugen versuchen, eine ComboBox mit dem Namen zu löschen oder zumindest die Existenz abzufragen, um ein mehrfaches Anlegen zu verhindern.

Gruß, Michael

 

Hallo Michael,
vielen Dank für deine Ausführungen, wie ich am Anfang erwähnte, wurde mir dieses Projekt von "Euch" gebastelt und es hat bis jetzt ja auch tadellos funktioniert.
Ich habe allerdings schon Probleme damit, eine ComboBox zu erzeugen, wenn ich das mit den Excel-Befehlen, (Entwicklertools, Einfügen, ActicX-Steuerelemente, Kombinationsfeld), versuche, bekomme ich die Fehlermeldung "Objekt kann nicht eingefügt werden". Andere Möglichkeiten sind mir nicht bekannt. Ich habe auch meine "Office-CD" eingelegt und bin auf "Reparieren" gegangen, leider auch ohne Erfolg. Ich habe leider von den ganzen Steuerbefehlen in VBA nicht den geringsten Schimmer, würde es etwas nützen, wenn ich die betroffene Datei hochlade??
Was ich mit absoluter Sicherheit ausschließen kann ist, das etwas an den Befehlszeilen in VBA verändert wurde, die würde ich niemals anfassen, weil ich mich damit, wie schon gesagt, nicht auskenne.
Ich bin allerdings nach wie vor überzeugt, dass die ganze Misere von der Veränderung meiner C-Partition herrührt, wir haben dabei auch einige "Ablageorte", die von den Programmen automatisch in C angelegt wurden auf D geändert und verschoben. Jetzt fehlt dem VBA-Projekt vermutlich irgendeine Verknüpfung, darum vielleicht auch die, wie du sagst, irreführende Fehlermeldung. Kann das wirklich der Grund sein, dann bräuchte man den Fehler nicht im VBA-Projekt zu suchen, siehst du das auch so, oder liege ich da mit meiner Einschätzung falsch??

Viele Grüße
Thomas

 

Moinsens!

Ah, ein Grund mehr, das Problem weniger im VBA-Code als an anderer Stelle zu suchen. Ich glaub aber nach wie vor nicht, daß die Partitionsänderung das Problem ist.

Und bei der Fehlermeldung denke ich gleich wieder an die unsäglichen Probleme des Office-Updates vom 18. Dezember 2014.

Schau mal hier:
http://blogs.technet.com/b/the_micr...top-working-after-december-2014-updates-.aspx

Gruß, Michael

 

Hallo Michael,
vielen Dank für den Link, habe ich mir angesehen, das scheint in der Tat ein Office-Problem zu sein, es wird da auch beschrieben, wie man das Problem "händisch" lösen kann, da geh' ich aber auch nicht ran, ich warte lieber bis das Prob hoffentlich beim nächsten Office-Update behoben wird.
Viele Grüße
Thomas

 

Hallo zusammen,
das Warten war erfolgreich, das Problem scheint gelöst zu sein, jetzt funktioniert wieder alles.

Vielen Dank für eure Hilfe
Thomas