Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1112to1116
1112to1116
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Debug Problem

Forumthread: Debug Problem

Debug Problem
Stefanglander
Hallo Forum,
ich bekomme in einer Userform bei folgendem Code einen Fehler in Reihe Selection.Font.ColorIndex = 40
Weiß Jemand Rat ?
Private Sub cmdOK_Click()
If txtName.Value  "" Then
If txtName.Text = "bart#" Then
frmStart.Hide
Else
If (MsgBox("Name korrekt ?" & Chr(13) & Chr(13) & _
txtName.Value, vbYesNo + vbQuestion, _
"Überprüfung")) = vbYes Then
Worksheets(1).Activate
Range("a1").Value = txtName.Text
Range("a1").Select
Selection.Font.ColorIndex = 40
Selection.Cells(5, 3).Activate
frmStart.Hide
End If
End If
End If
End Sub
Gruss
Stefan
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Debug Problem
03.11.2009 15:32:45
Rudi
Hallo,
verzichte auf Select und Activate! 
Private Sub cmdOK_Click()
If txtName.Value  "" Then
If txtName.Text = "bart#" Then
frmStart.Hide
Else
If (MsgBox("Name korrekt ?" & Chr(13) & Chr(13) & _
txtName.Value, vbYesNo + vbQuestion, _
"Überprüfung")) = vbYes Then
With Worksheets(1)
With .Range("a1")
.Value = txtName.Text
.Font.ColorIndex = 40
End With
.Cells(5, 3).Activate
End With
frmStart.Hide
End If
End If
End If
End Sub

Gruß
Rudi
Anzeige
AW: Debug Problem
03.11.2009 17:05:23
Stefanglander
Hallo Rudi,
leider markiert er mir auch mit Deinem Code die Zeile .Font.ColorIndex = 40
wieder gelb.
Wenn ich sie einfach lösche läuft der Code ohen Fehler durch aber der Text wird eben nicht in der richtigen Farbe angezeigt.
Gruss
Stefan
AW: Beispieldatei
03.11.2009 22:03:26
Daniel
Hi
am Code liegts nicht, der funktioniert.
dh. der Fehler liegt irgendwoanders.
wenn wir ihn finden sollen, müsstest du ne Beispieldatei, in der der Fehler auch auftritt, hochladen.
Gruß, Daniel
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige