Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1268to1272
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1268to1272
1268to1272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

InStr(ActiveCell.Formula...

InStr(ActiveCell.Formula...
Rolf
Guten Tag zusammen,
ich möchte, dass die Hintergrundfarbe einer Zelle automatisch vergeben wird, wenn in dieser Zelle sowohl ein "+"-Zeichen als auch ein "-"-Zeichen vorkommt. Also z.B. '-16,32+3,65+1,25'
Dazu habe ich folgendes gebastelt: 

Private Sub Worksheet_Change(ByVal Target As Range)
If InStr(ActiveCell.Formula, "-") And InStr(ActiveCell.Formula, "+") Then
ActiveCell.Interior.ColorIndex = 6
End If
End Sub

Wenn ich nur "-" oder "+"-Werte abfrage (geänderte If-Verzweigung) funktioniert es.
In Kombination der beiden Parameter aber nur dann, wenn der negative Wert Was mache ich falsch?
Gruß, Rolf

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: InStr(ActiveCell.Formula...
02.07.2012 18:30:47
Hajo_Zi
Hallo Rolf,
ich hätte 

If InStr(ActiveCell.Formula, "-")>0 or InStr(ActiveCell.Formula, "+") >0 Then

geschrieben

AW: InStr(ActiveCell.Formula...
02.07.2012 18:38:01
Rolf
Hallo Hajo,
Super, Danke!
Gruß, Rolf
ActiveCell statt Target?
02.07.2012 18:45:56
Erich
Hi ihr beiden,
ActiveCell ist die Zelle, in defr der C ursor nach der Änderung in Target steht, meist rechts oder unter Target.
Rolf, probier mal: 

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
MsgBox ActiveCell.Address
MsgBox Target.Address
MsgBox .Formula
MsgBox InStr(.Formula, "+")
MsgBox InStr(.Formula, "-")
MsgBox InStr(.Formula, "-") And InStr(.Formula, "+")
MsgBox InStr(.Formula, "-") > 0 Or InStr(.Formula, "+") > 0
MsgBox InStr(.Formula, "-") > 0 And InStr(.Formula, "+") > 0
MsgBox InStr(.Formula, "-") * InStr(.Formula, "+")
If InStr(.Formula, "-") * InStr(.Formula, "+") Then
.Interior.ColorIndex = 6
Else
.Interior.ColorIndex = xlColorIndexNone
End If
End With
End Sub
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
Anzeige
Ergänzung
02.07.2012 18:56:47
Erich
Hi Rolf,
hier noch ein paar Anzeigen und noch eine richtige Möglichkeit mehr: 

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
'      MsgBox ActiveCell.Address
'      MsgBox Target.Address
If Target.Cells.Count = 1 Then
'        MsgBox .Formula
'        MsgBox InStr(.Formula, "+")
'        MsgBox InStr(.Formula, "-")
MsgBox InStr(.Formula, "-") And InStr(.Formula, "+")         ' falsch
MsgBox InStr(.Formula, "-") > 0 Or InStr(.Formula, "+") > 0  ' falsch
MsgBox InStr(.Formula, "-") > 0 * InStr(.Formula, "+") > 0   ' falsch
MsgBox InStr(.Formula, "-") > 0 And InStr(.Formula, "+") > 0   ' ok
MsgBox (InStr(.Formula, "-") > 0) * (InStr(.Formula, "+") > 0) ' ok
MsgBox InStr(.Formula, "-") * InStr(.Formula, "+")             ' ok
If InStr(.Formula, "-") * InStr(.Formula, "+") Then
.Interior.ColorIndex = 6
Else
.Interior.ColorIndex = xlColorIndexNone
End If
End If
End With
End Sub
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
Anzeige
AW: Ergänzung
02.07.2012 19:25:50
Rolf
Hallo Erich,
Dank auch an dich.
Obwohl ich so was ausgeflipptes mit MsgBox momentan nicht brauche, ist es evtl. für andere Anwendungen recht hilfreich. Aber die Code-Zeile ".Interior.ColorIndex = xlColorIndexNone" hat mein Makro schon mal um 4 Zeilen reduziert. - Nach Eingabe eines Datums in Spalte D meiner Tabelle muss die Hintergrundfarbe nämlich wieder neutralisiert werden. Nochmals Danke.
Gruß, Rolf

300 Forumthreads zu ähnlichen Themen

Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
Anzeige
@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Kann Fehler in Formel nicht finden. :(
Alex

Hallo Forum!
Ich habe eine Formel, die ein Moment für eine Schraubverbindung berechnet. Eigentlich ist die Eingabe von Formeln kein Problem für mich, aber irgendwie habe ich in der aktuellen Formel einen Fehler reingepackt, den ich nicht finden kann.
Hier erstmal die Formel:

Hi...
20.08.2008 09:09:00
Thread-ID: 1003086
5 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Brüche mit kleiner Schrift formatieren
Siegfried

Hallo Excelianer,
der Betreff sagt sicher wenig aus. Ich möchte Zeiten, die auf Viertelstunden gerundet sind, als Brüche darstellen - soweit kein Problem. Jetzt hätte ich aber gern die Viertelstunden nicht in der Standardformatierung, also 1 1/4 z. B., sondern mit kleingeschriebenen Ziffern...
25.08.2008 11:32:00
Thread-ID: 1004409
7 Beiträge
Bild in UserForm dynamisch aus Internet laden
Ben

hallo,
ich möchte in folgender Codezeile ein Bild aus dem Internet laden, statt von der Festplatte.
Wenn ich jedoch einfach C:\... durch eine "http" Resource ersetze bekomme ich eine Fehlermeldung.
UserForm.DYNAMISCH_PIC.Picture = LoadPicture("C:\temp\bild.jpg")
Weiss jemand w...
05.09.2008 12:55:00
Thread-ID: 1007652
2 Beiträge
Excel-Daten in ein Excel-Formular übertragen
Martin

Hallo
Ich habe folgende Problemstellung: Ich habe einerseits eine Datenbank mit Adressfeldern (Tabelle "Daten") und ich habe ein Excel-Formular (Tabelle "Protokoll") kreiert. Nun möchte ich eine Art Serienbrief im Excel erstellen, d.h. jede Zeile in der Daten-Tabelle soll ein eigenes Protok...
08.09.2008 17:43:25
Thread-ID: 1008225
7 Beiträge
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
5
3
4
3
5
6
1
6
3
2
2
1
1
1
3
5
7
3
6
15
3
3
1
14