eigener suchen-dialog zeile einfärben

12/02/2008 - 21:01 von tom7263 | Report spam
hallo leute

ich habe mir mit einer userform ein eigenes suchen-dialog erstellt
auf der userform ist ein textfeld in dem ich eine zweistellige
maschinennummer eingebe und ein commandbutton
mit nachfolgendem code wird die spalte B von unten durchsucht
und bei gefundenem ergebnis die zeile gelb eingefàrbt und die zelle
in spalte J aktiviert

Private Sub CommandButton1_Click()
Dim frm1 As UserForm
Set frm1 = UserForm1
With frm1
Range("B:B").Select
On Error GoTo fehler1
Selection.Find(What:=.TextBox1.Value, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlDescending, MatchCase:=False).Activate
ActiveCell.Offset(0, 8).Select
ActiveCell.EntireRow.Interior.ColorIndex = 6
Unload Me
Exit Sub
fehler1:
MsgBox "eine Maschinennummer " & .TextBox1.Value & " ist nicht
vorhanden!"
End With
End If
End Sub

nun möchte ich gerne das nur die zellen A bis J dieser zeile
eingefàrbt werden
und nicht die komplette zeile

wer kann mir da einen tip geben?

mfg Thomas Koch
 

Lesen sie die antworten

#1 Peter Schleif
13/02/2008 - 08:02 | Warnen spam
schrieb:

ActiveCell.EntireRow.Interior.ColorIndex = 6



Ersetze diese Zeile mit dieser:

Range(Cells(ActiveCell.Row, "A"), _
Cells(ActiveCell.Row, "J")) _
.Interior.ColorIndex = 6

Peter

Ähnliche fragen