Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1116to1120
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Fehlermeldung 91

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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
probier mal: rng.Interior.Colorindex oT
13.11.2009 08:42:22
Matthias
geht so doch nicht, sorry oT
13.11.2009 08:56:40
Matthias
AW: Fehlermeldung 91
13.11.2009 09:08:08
JogyB
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
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige