Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

Fehlermeldung 91 | Herbers Excel-Forum


Betrifft: Fehlermeldung 91 von: LJTom
Geschrieben am: 13.11.2009 08:23:40

Hallo Leute!!

Habe folgenden Code in meiner einem Modul bzw. in einem Userform Fenster.

Beim abrufen bekomme ich immer eine fehlermeldung 91

beim Debuggen springt er in die Zeile
unter Sub Reservieren

rng.Interior.Color = vbRed

komme aber nicht auf den fehler, könnt ihr mir bitte weiter Helfen!!!

MFG Tom

Modul: Modul1 Typ = Allgemeines Modul

Option Explicit

Const Sitze As String = "C2:W12"
Dim bestellt As String

'Userform mit Listbox starten
Sub startUF()
Dim i%
bestellt = InputBox("Bitte Bestelldaten eingeben: " & vbLf _
& "Name, Adresse, usw", "Reservierung")
With UserForm1
.ListBox1.Clear
For i = 1 To 200
.ListBox1.AddItem i
Next
.ListBox1.MultiSelect = fmMultiSelectMulti
.ListBox1.ListIndex = 0
.Show vbModeless
End With
End Sub 'Plätze einfärben + Bestelldaten als Kommentar eingeben
Sub reservieren(platz%)
Dim plätze As Range
Dim rng As Range
Set plätze = Range(Sitze)
Set rng = plätze.Find(platz)
rng.Interior.Color = vbRed
rng.AddComment bestellt
End Sub
'Farben + Kommentare beseitigen
Sub löschenEinträge()
Dim com As Comment
For Each com In ActiveSheet.Comments
com.Delete
Next
Range(Sitze).ClearFormats
End Sub

' **************************************************************
' Modul: UserForm1 Typ = Userform
' **************************************************************

Option Explicit

Private Sub CommandButton1_Click()
 Dim i%
 With Me
    For i = 0 To .ListBox1.ListCount - 1
        If .ListBox1.Selected(i) Then
            Call reservieren(.ListBox1.List(i))
        End If
    Next
 End With
 Unload Me
End Sub

  

Betrifft: probier mal: rng.Interior.Colorindex oT von: Matthias L
Geschrieben am: 13.11.2009 08:42:22




  

Betrifft: geht so doch nicht, sorry oT von: Matthias L
Geschrieben am: 13.11.2009 08:56:40




  

Betrifft: AW: Fehlermeldung 91 von: JogyB
Geschrieben am: 13.11.2009 09:08:08

Hi.

Bist Du Dir sicher, dass auch etwas gefunden wurde? Wenn es keine Fundstelle gibt, dann kannst Du die auch nicht einfärben.

Gruss, Jogy


Beiträge aus den Excel-Beispielen zum Thema "Fehlermeldung 91"