Wenn Zahl 3 in Zelle A1 dann Text in Zelle B1

Forumthread: Wenn Zahl 3 in Zelle A1 dann Text in Zelle B1

18.05.2006 17:44:55

Torge

Hallo,
gibt es eine Möglichkeit die Abfrage eines Zelleninhaltes so zu gestalten, dass Z.B. steht in Zelle A1 der Wert 3, dann trage in Zelle B2 den Text "Hallo" ein und unterlege die Zelle mit der Farbe grün. Hintergrund ist, dass ganze soll über VBA Funktionieren, nicht über Excel.
Gibt es da eine Möglichkeit, wer kann helfen?
Vielen Dank
Gruß Torge

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Wenn Zahl 3 in Zelle A1 dann Text in Zelle B1

18.05.2006 17:53:12

Peter

Hallo Torge
mache einen Rechtsklick auf den Tabellenreiter des fraglichen Tabellenblattes, klick auf Code anzeigen und füge in dem sich öffnenden Fenster den nachfolgenden Code ein:


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value = 3 Then
Range("B2").Value = "Hallo"
Range("B2").Interior.ColorIndex = 10
End If
End If
End Sub

Nun gehe wieder in das Tabellenblatt (Schließen-Kreuz) und gib in A1 eine 3 ein.
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

AW: Wenn Zahl 3 in Zelle A1 dann Text in Zelle B1

18.05.2006 18:04:29

Torge

Hallo Peter,
vielen Dank. Eine letzte Frage:
Ich lese die Zellen in A1:A30 aus in B1:B30 erscheinen Fehlermeldungen in Rot je nach Eingabe im Bereich A1:A30 (über Bedingte Formatierung). Nun möchte ich unter dem Bereich die Anzahl der mit Rot gekennzeichneten Felder ausgeben (z.B. 3 oder 5) mit einem Hinweis auf die zu überprüfenden Felder.
Geht dies in ähnlicher Art und Weise?
Vielen Dank für die Hilfe schon mal.
Gruß Torge

AW: Wenn Zahl 3 in Zelle A1 dann Text in Zelle B1

20.05.2006 06:38:51

Mustafa

Hallo Torge,
bei bedingter Formatierung wird der ColorIndex der Zelle nicht geändert, darum kannst du diese auch nicht abfragen.
Da musst du dann wie bei der bedingter Formatierung die Bedingung abfragen.
Auch in VBA.
Rückmeldung obs Hilft ist immer gern gesehen.
Viele Grüße aus Köln.

AW: Wenn Zahl 3 in Zelle A1 dann Text in Zelle B1

22.05.2006 09:02:03

Torge

Hallo Peter,
vielen Dank für die Antwort.
Ich wünsch Dir einen schönen Wochenanfang.
Gruß Torge

Infobox / Tutorial

Wenn Zahl 3 in Zelle A1 dann Text in Zelle B1

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um in Excel über VBA eine Abfrage zu erstellen, die den Inhalt von Zelle A1 überprüft und basierend darauf Text in Zelle B2 einfügt sowie die Hintergrundfarbe ändert, gehe wie folgt vor:

Tabellenblatt öffnen: Mache einen Rechtsklick auf den Tabellenreiter des relevanten Blattes.
Code anzeigen: Wähle die Option "Code anzeigen".

VBA-Code einfügen: Füge den folgenden VBA-Code in das sich öffnende Fenster ein:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$A$1" Then
       If Target.Value = 3 Then
           Range("B2").Value = "Hallo"
           Range("B2").Interior.ColorIndex = 10
       End If
   End If
End Sub

Zurück zum Tabellenblatt: Schließe das VBA-Fenster.
Wert eingeben: Gib in Zelle A1 die Zahl 3 ein. Du solltest nun sehen, dass in Zelle B2 der Text "Hallo" erscheint und die Zelle grün unterlegt ist.

Häufige Fehler und Lösungen

Fehler: Der Text erscheint nicht in Zelle B2.
- Lösung: Prüfe, ob der VBA-Code korrekt eingefügt wurde und ob der Code im richtigen Modul des Arbeitsblattes gespeichert ist.
Fehler: Die Zelle wird nicht grün.
- Lösung: Stelle sicher, dass der Code die Zelle korrekt anspricht und dass der ColorIndex 10 tatsächlich grün darstellt (in einigen Excel-Versionen kann dies abweichen).

Alternative Methoden

Falls Du keine VBA-Lösung nutzen möchtest, kannst Du auch eine bedingte Formatierung verwenden, um die Zelle zu färben. Allerdings wird der ColorIndex in VBA nicht geändert, wenn Du bedingte Formatierung verwendest. Es ist daher ratsam, die Logik über VBA zu implementieren, um sicherzustellen, dass die gewünschten Änderungen korrekt durchgeführt werden.

Praktische Beispiele

Erweiterte Funktionalität: Wenn Du mehrere Zellen (z.B. A1:A30) überprüfen und entsprechende Texte in B1:B30 einfügen möchtest, kannst Du den Code entsprechend erweitern. Du müsstest die Schleife anpassen, um jede Zelle im Bereich zu überprüfen.
Zähler für Fehler: Um die Anzahl der mit Rot gekennzeichneten Felder auszugeben, kannst Du eine zusätzliche Funktion in VBA implementieren, die die Zellen zählt, die eine bestimmte Bedingung erfüllen.

Tipps für Profis

Debugging: Nutze die Debugging-Tools in VBA, um Fehler im Code zu finden.
VBA Lernressourcen: Informiere Dich über VBA-Programmierung, um komplexere Automatisierungen in Excel zu erstellen.
Bedingte Formatierung kombinieren: Verwende VBA in Kombination mit bedingter Formatierung, um die Benutzeroberfläche Deiner Excel-Tabellen zu verbessern.

FAQ: Häufige Fragen

1. Wie kann ich die Farbe ändern? Du kannst die Farbe ändern, indem Du den ColorIndex im Code anpasst. Für andere Farben gibt es unterschiedliche Indexwerte.

2. Kann ich diesen Code in anderen Excel-Versionen verwenden? Ja, der Code ist in den meisten modernen Excel-Versionen (ab Excel 2007) anwendbar. Achte darauf, dass die VBA-Umgebung in Deinem Excel aktiviert ist.

Beliebteste Forumthreads (12 Monate)

Wenn Zahl 3 in Zelle A1 dann Text in Zelle B1

Forumthread: Wenn Zahl 3 in Zelle A1 dann Text in Zelle B1

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Wenn Zahl 3 in Zelle A1 dann Text in Zelle B1

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Wenn Zahl 3 in Zelle A1 dann Text in Zelle B1

Forumthread: Wenn Zahl 3 in Zelle A1 dann Text in Zelle B1

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Wenn Zahl 3 in Zelle A1 dann Text in Zelle B1

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread