Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1064to1068
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
1064to1068
1064to1068
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hinweis bei Eingabe einer farbig markierten Zahl

Hinweis bei Eingabe einer farbig markierten Zahl
28.03.2009 11:25:14
Harald
Hallo,
habe eine Tabelle mit Maschinennummern. Die z. Zt. defekten Geräte markiere ich rot. Auf einer zweiten
Tabelle ordne ich die Geräte einzelnen Mitarbeitern zu. Nun möchte ich bei versehentlicher Eingabe einer der
rot markierten Gerätenummern die Meldung "Gerät defekt" erhalten. Ist das möglich ?
Hoffe jemand kann mir helfen.

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hinweis bei Eingabe einer farbig markierten Zahl
28.03.2009 11:48:45
Tino
Hallo,
so müsste es gehen, Tabellennamen und Zellbereiche müsstest Du noch anpassen.
kommt als Code in Eingabetabelle 
Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
Dim rZelle As Range, varRow 
Application.EnableEvents = False 
    For Each rZelle In Target 
        'wo die Gerätenummer eingegeben wird 
        If Not Intersect(rZelle, Columns(1)) Is Nothing Then 
            'Tabelle wo die farblich gekennzeichneten Nummern stehen 
             With Worksheets("Tabelle1") 
                'in welcher Spalte stehen die Nummern mit farblicher Kennzeichnung 
                 varRow = Application.Match(rZelle, .Columns(1), 0) 
                    'wurde Nummer gefunden? 
                     If IsNumeric(varRow) Then 
                     'ist die Zelle rot? 
                        If .Cells(varRow, 1).Interior.ColorIndex = 3 Then 
                        'meldung ausgeben 
                         MsgBox "Dieses Gerät mit der Nummer: " & rZelle & " ist defekt" 
                         'eingabe zurücksetzen 
                         rZelle.Value = "" 
                        End If 
                     End If 
             End With 
        End If 
    Next rZelle 
Application.EnableEvents = True 
End Sub


Gruß Tino

Anzeige
AW: Hinweis bei Eingabe einer farbig markierten Zahl
28.03.2009 13:54:00
Harald
Hallo,
erstmal vielen Dank für die schnelle Antwort. Habe kaum Erfahrung mit VBA und jetzt natürlich Probleme.
Habe die Daten ergänzt. Die Tabelle mit den markierten Nummern heißt "Einteilung" (Spalte B1 bis B71 und G1 bis G70). Die Tabelle in die ich die Nummern eintrage heißt "Planung" (Spalte D1 bis D244).
Der Code ist in der Eingabetabelle eingetragen, nur die MsgBox öffnet sich nach Markierung und Eintrag nicht. Es kommt auch keine Fehlermeldung.
Hoffe, du hilfst mir weiter.
Gruß Harald
AW: Hinweis bei Eingabe einer farbig markierten Zahl
28.03.2009 14:01:55
Tino
Hallo,
ok. versuche es mal mit dieser Version.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rZelle As Range, varRow
Application.EnableEvents = False
    For Each rZelle In Target
        'wo die Gerätenummer eingegeben wird 
        If Not Intersect(rZelle, Columns(1)) Is Nothing Then
            'Tabelle wo die farblich gekennzeichneten Nummern stehen 
             With Worksheets("Einteilung")
                'in welcher Spalte stehen die Nummern mit farblicher Kennzeichnung 
                 varRow = Application.Match(rZelle, .Range("B1:B71"), 0)
                 If Not IsNumeric(varRow) Then
                  varRow = Application.Match(rZelle, .Range("G11:G70"), 0)
                 End If
                    'wurde Nummer gefunden? 
                     If IsNumeric(varRow) Then
                     'ist die Zelle rot? 
                        If .Cells(varRow, 1).Interior.ColorIndex = 3 Then
                        'meldung ausgeben 
                         MsgBox "Dieses Gerät mit der Nummer: " & rZelle & " ist defekt"
                         'eingabe zurücksetzen 
                         rZelle.Value = ""
                        End If
                     End If
             End With
        End If
    Next rZelle
Application.EnableEvents = True
End Sub


Gruß Tino

Anzeige
AW: Hinweis bei Eingabe einer farbig markierten Zahl
28.03.2009 15:10:05
Harald
Hallo,
danke für deine Mühe.
habe jetzt diese Version eingetragen, aber es passiert nix. Keine MsgBox, keine Fehlermeldung.
Gruß Harald
Bitte Beispiel hochladen. oT.
28.03.2009 15:13:11
Tino
AW: habe Beispiel aufgebaut.
28.03.2009 16:06:41
Harald
Hallo,
habe das eingefügt. Es funktioniert SUPER. Keine Ahnung wo bei mir der Fehler lag.
Danke nochmals für die viele Mühe !
Gruß Harald
war nicht Dein Fehler...
28.03.2009 16:57:09
Tino
Hallo,
, war meiner. sorry
Habe das Makro einfach blind geschrieben ohne zu testen.
Sei also beruhigt, an Dir hat es nicht gelegen.
Gruß Tino
Anzeige
AW: Hinweis bei Eingabe einer farbig markierten Zahl
28.03.2009 13:18:04
Daniel
Hi
markieren die defekte Maschine nicht über eine rote Farbe, sondern in einer Hilfsspalte mit einem Kennbuchstaben (z.B. "D")
diesen Kennbuchstaben kannst du dann z.B. über die SVERWEIS-Funktion ermitteln und dem Anwender bei Eingabe der Maschinen-Nummer ggf in einer weiteren Hilfsspalte einen entsprechenden Hinweis geben.
das Rotfärben kannst du dann immer noch per bedingter Formatierung ausführen.
(dh. die Maschine wird rot, sobald du in der Hilfsspalte ein "D" einträgst)
https://www.herber.de/bbs/user/60774.xls
Gruß Daniel
Anzeige
AW: Hinweis bei Eingabe einer farbig markierten Zahl
28.03.2009 14:00:45
Harald
Hallo,
Danke für die schnelle Antwort. Habe das getestet und es funktioniert auch gut. Aber da in der Tabelle sowieso schon so viele Spalten sind (Personalnummer, Funktion etc.) , wollte ich eigentlich nicht mehr mit einer Hilfsspalte arbeiten. Aber falls du noch 'ne Idee hast ....................
Gruß Harald
AW: Hinweis bei Eingabe einer farbig markierten Zahl
28.03.2009 14:26:13
Daniel
Hi
du kannst (allerdings über eine weitere Hilfsspalte) nur funktionierende Maschinen für die Eingabe zulassen über die Funktion DATEN-GÜLTIGKEIT
https://www.herber.de/bbs/user/60775.xls
Gruß, Daniel

308 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
mehrere Zufallszahlen aus Bereich ohne Wiederholun
Dieterlem

Hallo Excelfreunde,
ich suche eine VBA-Lösung für Zufallszahlen. Ich habe zwar einiges gefunden aber konnte ich es nicht nach meinen Anforderungen anpassen.
Ich will eine bestimmte Anzahl (per Variable veränderbar) von Zufallszahlen generieren (Ganzzahlen).
Dabei dürfen keine Wiede...
19.08.2008 22:05:38
Thread-ID: 1003045
4 Beiträge
Zahlen einer Tabelle in Userform einlesen
Josef

Guten Morgen!
Ich habe in einem Arbeitsblatt mehrere Tabellen.
In einer UserForm habe habe ich 460 TextBoxen, wobei die Zählung immer pro Reihe senkrecht erfolgt.
Spalte 1 = TextBox1-23, Spalte2 = TextBox24- TextBox46 usw.
Ich möchte nun z.B. die erste Tabelle in die Textboxen e...
20.08.2008 07:07:03
Thread-ID: 1003059
19 Beiträge
Erste Zahlen eine Tel.-Tabelle in Farbe
Bernie
Hallo,
in einer Telefontabelle, welche sich ständig ändert, möchte ich die ersten 4 Ziffern der Rufnummer per Makro rot einfärben.
Hat jemand eine gute Idee?
https://www.herber.de/bbs/user/54765.xls
21.08.2008 12:04:53
Thread-ID: 1003430
4 Beiträge
Umwandlung text nach zahlen bei Formulareingabe
Dieter

Hallo miteinander,
ich habe ein Problem mit der umwandlung von Text nach Zahlen. In meinem Formular habe ich Textfelder definiert, in dem eigentlich nur Zahlen eingetragen werden. Nun sollen diesen Werte in einer Zelle abspeichern und weitere Berechnung durchführen, leider werden diese Zahl...
26.08.2008 19:48:34
Thread-ID: 1004910
4 Beiträge
Anzeige

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
20
6
1
2
4
3
18
3
3
2
1
1
3
11
5
15
3
11
2
5
2
2
3
1