Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Fehler im Quellcode: Objekt wird nicht unterstützt! |
26.12.2011 22:25:30 |
Toreg |
|
|
|
31.12.2011 22:45:40 |
Gast85437 |
|
|
|
01.01.2012 14:05:34 |
Torsten |
|
|
|
01.01.2012 15:38:34 |
Heiko |
|
|
|
12.01.2012 16:32:44 |
Gast35136 |
|
|
Von:
Toreg |
Datum:
26.12.2011 22:25:30 |
Views:
2434 |
Rating:
|
Antwort:
|
Thema:
Fehler im Quellcode: Objekt wird nicht unterstützt! |
Hallo,
ich fange an VBA mit Hilfe eines Buches zu erlernen, allerdings funktioniert der Code bei mir nicht, obwohl er so im Buch steht. Konnte keinen Fehler finden. Beim Starten zeigt er immer folgende Meldung an: Das Objekt unterstützt diese Eigenschaft oder Methode nicht!
Leider wird nicht angezeiogt wo der Fehler liegt. Ich hoffe mir kann jemand helfen. Ich benutze Excel 2011 for Mac.
hier mal der Quellcode:
Option Explicit
Dim i As Integer
Dim Kost As String
Private Sub Userform_Initialize()
Dim i As Integer
'Kombinationsfeld Abteilung füllen
For i = 2 To 6
Userform1.ComboBox1.AddItem _
Sheets("Vorgaben").Cells(i, 2).Value
Next i
'Den ersten Eintrag erstellen
Userform1.ComboBox1.ListIndex = 0
i = Userform1.ComboBox1.ListIndex
'Textfeld Kostenstelle füllen
Userform1.cmdKostenstelle.Value = _
HoleKostenstelle(Userform1.ComboBox1.List(i))
'Die Optionsbutton beschriften
Userform1.OptionButton1.Caption = _
Sheets("Vorgaben").Cells(2, 3).Value
Userform1.OptionButton2.Caption = _
Sheets("Vorgaben").Cells(3, 3).Value
Userform1.OptionButton3.Caption = _
Sheets("Vorgaben").Cells(4, 3).Valiue
'Die erste Optionsschaltfläche vorbelegen
Userform1.OptionButton1.Value = 1
End Sub
Function HoleKostenstelle(Abt As String) As String
Dim Kost As String
Application.ScreenUpdating = False
Sheets("Vorgaben").Activate
Range("B2").Select
Do Until ActiveCell.Value = "" Or Abt = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
If Abt <> "" Then
Kost = ActiveCell.Offset(0, -1).Value
Else
Kost = ""
End If
HoleKostenstelle = Kost
Sheets("Mitarbeiter").Activate
Application.ScreenUpdating = True
End Function
Private Sub ComboBox1_Change()
i = Userform1.ComboBox1.ListIndex
Userform1.cmdKostenstelle.Value = _
HoleKostenstelle(Userform1.ComboBox1.List(i))
End Sub
Vielen Dank schonmal.
Toreg
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Fehler im Quellcode: Objekt wird nicht unterstützt! |
26.12.2011 22:25:30 |
Toreg |
|
|
|
31.12.2011 22:45:40 |
Gast85437 |
|
|
|
01.01.2012 14:05:34 |
Torsten |
|
|
|
01.01.2012 15:38:34 |
Heiko |
|
|
|
12.01.2012 16:32:44 |
Gast35136 |
|
|