bräuchte Hilfe.
1.)Was muß ich machen, um die gerade active Zelle mit der Farbe Blau zu hinterlegen.
2.)Einen Wert, den ich in einer Zelle eingeben habe, in der Tabelle zu suchen und zu markieren,
Danke
Gerhard
1.)Was muß ich machen, um die gerade active Zelle mit der Farbe Blau zu hinterlegen.
2.)Einen Wert, den ich in einer Zelle eingeben habe, in der Tabelle zu suchen und zu markieren,
Danke
Gerhard
zu Frage 1:
Sub FarbeZuweisen()
ActiveCell.Interior.ColorIndex = 5
End Sub
zu Frage 2:
Sub BegriffSuchen()
Dim Zelle As Range
Dim sBegriff As String
sBegriff = InputBox("Bitte Suchbegriff eingeben!")
If sBegriff = "" Then Exit Sub
Set Zelle = Worksheets(1).Cells.Find(sBegriff, lookat:=xlWhole)
If Zelle Is Nothing Then
MsgBox "Suchbegriff icht gefunden!"
Else
Zelle.Select
End If
End Sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de