Fehlermeldung 91
LJTom
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
Anzeige