|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
06.02.2009 18:28:05 |
Michael |
|
|
|
07.02.2009 11:31:45 |
Holger |
|
|
 Aw:Aw:Zelleninhalt automatisch vergleichen |
07.02.2009 15:25:51 |
Michael Lang |
|
|
Von:
Michael Lang |
Datum:
07.02.2009 15:25:51 |
Views:
804 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Zelleninhalt automatisch vergleichen |
Hallo Holger,
super! vielen Dank für Dein schnelles Feedback!
Gruß
Michael
Holger schrieb am 07.02.2009 11:31:45:
Hallo Michael,
soweit ich weiß, gibt es kein Open-Ereignis für ein Tabellenblatt, aber für die Arbeitsmappe. Wenn das Durchsuchen auch beim Öffnen der Arbeitsmappe erfolgen kann, bietet sich etwas ähnliches wie folgt an:
Private Sub Workbook_Open()
sheets("Name des zu durchsuchenden Tabellenblatt").activate 'Name wie auf dem Reiter dargestellt!
Set a = Range("D:D").Find(What:="problem", lookat:=xlPart, searchorder:=xlByColumns, MatchCase:=False)
If Not a Is Nothing Then
Cells(1, 1).Interior.ColorIndex = 3
Else
Cells(1, 1).Interior.ColorIndex = 0
End If
End Sub
Wenn du alle Tabellenblätter der Arbeitsmappe beim Öffnen durchsuchen willst, kannst du auch
Private Sub Workbook_Open()
For Each s In Sheets
Set a = s.Range("D:D").Find(What:="problem", lookat:=xlPart, searchorder:=xlByColumns, MatchCase:=False)
se = s.Name
If Not a Is Nothing Then
Cells(1, 1).Interior.ColorIndex = 3
Else
Cells(1, 1).Interior.ColorIndex = 0
End If
Next
End Sub
verwenden. Die Prozeduren musst du unter "Microsoft Excel Objekte" - "Diese Arbeitsmappe" in den Codeteil schreiben. Es wird nach jeder Schreibart von "Problem", also z.B. auch nach "PrOBleM" gesucht.
Gruß
Holger
Michael schrieb am 06.02.2009 18:28:05:
Hallo zusammen,
habe folgendes Problem:
Ich benötige eine Funktion, die Spalte D nach dem Öffnen des Sheets automatisch durchsucht. Sobald in einer Zelle in Spalte D (Zellenformat Standard) der Text ...problem... oder ...Problem... oder ...PROBLEM... auftaucht, soll Zelle A1 farblich hinterlegt werden:
evtl. hiermit:?
With Worksheets(1).Cells(Zeile, Spalte).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Leider reichen meine Kenntnisse nicht aus, den richtigen Code zu erstellen. Habe schon viele Fehlversuche hinter mir.
Könnt ihr mir helfen?
Danke und Grüße
Michael |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
06.02.2009 18:28:05 |
Michael |
|
|
|
07.02.2009 11:31:45 |
Holger |
|
|
Aw:Aw:Zelleninhalt automatisch vergleichen |
07.02.2009 15:25:51 |
Michael Lang |
|
|