9.3k Aufrufe
Gefragt in Tabellenkalkulation von knutschi10 Mitglied (135 Punkte)
Ein freundliches Hallo

Wieder einmal habe ich ein Problem, das ich allein nicht lösen kann.
Wie kann ich ein Suchergebniss mit Strg + F farblich(gelb) hervor heben?
Dabei sollte aber anschließend die ursprüngliche Zellfarbe (weiß) wieder hergestellt werden.

Ich habe gehört das dies schon im Excel mit Background Color gehen soll.
Kennt jemand die dazu gehörige Formel ??

Oder muss das wieder über VBA gemacht werden.


Vielen Dank im Voraus
Sven

44 Antworten

0 Punkte
Beantwortet von knutschi10 Mitglied (135 Punkte)
Hi Oliver,

habe mich da etwas vertippt.

Natürlich soll in Salte "F" die Einfahrzeit und in Spalte "G" die Ausfahrzeit.
Bin im Augenblick etwas neben der Rolle.
Sorry.
Ich ersetze gerade meinen Code durch deinen und fühe die Zeile ein.

Viele grüße Sven.
0 Punkte
Beantwortet von coros Experte (4k Punkte)
Hallo Sven,

nachfolgenden Code ersetze gegen Deinen Alten. Das wäre mal zum 1. Test eine Möglichkeit.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then
If Target.Value = "" Then
With Target.Offset(0, 3)
.NumberFormat = "hh:mm:ss"
.Value = ""
End With
Target.Offset(0, 4).Value = ""
Else
'Einfahrzeit in Spalte F
With Target.Offset(0, 3)
.NumberFormat = "hh:mm:ss"
.Value = Time
End With
End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim intAbfrage As Integer
If Not Intersect(Target, Range("C:C")) Is Nothing Then
If Target.Offset(0, 3) <> "" And Target.Offset(0, 4) = "" Then
intAbfrage = MsgBox("Soll die Abfahrzeit für dieses Fahrzeug gesetzt werden?", _
vbQuestion + vbYesNo, "Abfahrzeit setzen?")
If intAbfrage = 7 Then Exit Sub
'Ausfahrzeit in Spalte G
With Target.Offset(0, 4)
.NumberFormat = "hh:mm:ss"
.Value = Time
End With
End If
End If
End Sub
Ich hoffe, wir kommen der Sache langsam näher?

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]
0 Punkte
Beantwortet von knutschi10 Mitglied (135 Punkte)
Hi Oliver,

einen Gruß und einen schönen Tag zu dir.
Habe deinen Code in ein Modul geschrieben.Beim ausprobieren kommt aber Fehler beim Kompilieren: Syntaxfehler

in folgender Zeile

If Not Intersect(Target, Range("C:C)) Is Nothing Then

was ist zu tun ??

mfG Sven.
0 Punkte
Beantwortet von coros Experte (4k Punkte)
Hallo Sven,

das darf nicht

Range("C:C)) sondern muss

Range("C:C") heißen. Da ist Dir wohl ein schreibfehler unterlaufen.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]
0 Punkte
Beantwortet von knutschi10 Mitglied (135 Punkte)
Hi Oliver,

habe es abgeändert, aber jetzt kommt :

Fehler beim Kompilieren:
Erwartet Listentrennzeichen oder )

Was ist das für eine Fehlermeldung ??

Mal nebenbei bemerkt habe ich deinen Code kopiert ;-)

mfG Sven
0 Punkte
Beantwortet von coros Experte (4k Punkte)
Hallo Sven,

jetzt wird am Ende der Intersect-Methoode die Klammer fehlen. Ich dachte mir, Du verstehst was ich meinte. In Deiner Codezeile fehlte hinter dem 2. C die Anführungszeichen. Nun fehlt hinter dem Anführungszeichen die Klammer. Zumindest vermute ich das mal, ohne Dienen Code jetzt zu sehen.

Ganz nebenbei bemerkt, der Code aus meiner Antwort 22 funktioniert. Wenn das bei Dir nicht funktioniert, wird Deine Datei anders sein als meine Beispieldatei. Lade also Deine Datei mal hoch, wenn es immer noch nicht funktioniert oder meinst Du ich erstelle mir jetzt auf gut Glück eine Datei, die so aussieht wie Deine?

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]
0 Punkte
Beantwortet von knutschi10 Mitglied (135 Punkte)
Hi Oliver

Sorry ich wollte nicht nerven.Ich habe zu Anfang gesagt das ich ein absoluter Neuling auf dem Gebiet VBA bin und nicht so ein alter Hase wie du. Deshalb stelle ich mich so doof an und stelle so viele Fragen.

Habe jetzt alles geändert und warte vergeblich auf die Zeiten.

Der Code sieht jetzt wie folgt aus:

Option Explicit

Private Sub Worksheet_Cange(ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then
If Target.Value = "" Then
With Target.Offset(0, 3)
.NumberFormat = "hh:mm:ss"
.Value = ""
End With
Target.Offset(0, 4).Value = ""
Else
'Einfahrzeit in Spalte F
With Target.Offset(0, 3)
.NumberFormat = "hh:mm:ss"
.Value = Time
End With
End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim intAbfrage As Integer
If Not Intersect(Target, Range("C:C")) Is Nothing Then
If Target.Offset(0, 3) <> "" And Target.Offset(0, 4) = "" Then
intAbfrage = MsgBox("Soll die Abfahrzeit für dieses Fahrzeug gesetzt werden ?", _
vbQuestion + vbYesNo, "Abfahrzeit setzen?")
If intAbfrage = 7 Then Exit Sub
'Ausfahrzeit in Spalte G
With Target.Offset(0, 4)
.NumberFormat = "hh:mm:ss"
.Value = Time
End With
End If
End If
End Sub


Meine Tabelle sieht wie folgt aus:

Spalte A ; Spalte B ; Spalte C ; Spalte D ; Spalte E ; Spalte F ; Spalte G
Datum Firma KFZ Zeichen Lieferung Ort Einfahrt Ausfahrt


Ich bitte nochmals um Entschuldigung für mein Unwissen aber es scheint bei mir nicht zu funzen.
Bitte hilf mir denn es erleichtert meine Arbeit ungemein.
Der vorherige Code hat doch auch funktioniert , nur das mit dem Doppelklick auf die entsprechende Zelle in Spalte C zum eintragen der ausfahrzeit war noch nicht so wie ich dachte.

für deine Mühen danke ich dir noch vielmals.
mfG Sven
0 Punkte
Beantwortet von coros Experte (4k Punkte)
Hallo Sven

wo ist Deine Datei? Wie ich bereits geschrieben habe

...oder meinst Du ich erstelle mir jetzt auf gut Glück eine Datei, die so aussieht wie Deine?


MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]
0 Punkte
Beantwortet von knutschi10 Mitglied (135 Punkte)
Hi Oliver,

ich bin etwas verwirrt, denn ich habe aufgezeigt wie meine Tabelle aussieht.

Meine Tabelle sieht wie folgt aus:

Spalte A ; Spalte B ; Spalte C ; Spalte D ; Spalte E ; Spalte F ; Spalte G
Datum Firma KFZ Zeichen Lieferung Ort Einfahrt Ausfahrt


oder was möchtest du noch wissen??

mfG Sven
0 Punkte
Beantwortet von
Hi,

Knutschi schrieb in #23:
Habe deinen Code in ein Modul geschrieben.


Doch hoffentlich nicht in ein StandardModul. Dort gehört er nicht hin. Er gehört in das Project der bettroffenen Tabelle. Ich verweise dazu mal wieder auf die Site von coros. Dort dann unter Anleitungen die Nummer2.

Bye
malSchauen
...