Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
540to544
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
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn A1="5", dann Objektanzeige

Wenn A1="5", dann Objektanzeige
04.01.2005 09:33:10
Giuseppe
Hallo Excelfreunde
Gutes neues Excel-Jahr wünsche ich allen!
Nun mein Problem:
Ich möchte gerne eine MSGBOX oder ein Textfenster anzeigen lassen, wenn
die Bedingung in einer Exceltabelle zutrifft.
BSP:
Im Feld A1 wird ein Wert verlangt.
Ist dieser =5, dann erscheint eine Meldung.
(natürlich könnte ich eine Meldung in einem X-Beliebigen Feld darstellen,
zbs: =wenn(A1=5;"ja";"nein") ... aber das möchte ich nicht.
Es muss ein Textfeld, MSGBOX oder der Assistent sein)
Kann ich da was mit VBA machen?
mfG
Giuseppe

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn A1="5", dann Objektanzeige
Galenzo
Hallo,
dazu nutzt du das Ereignis Worksheet_Change, daß bei jeder (manuellen) Änderung einer Zelle ausgelöst wird.
Öffne den VBA-Editor,gehe dort zu dem entsprechenden Arbeitsblatt und wähle das Ereignis Worksheet_Change aus. In diese ereignisprozedur schreibst du die Anweisung:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Target, Range("a1"))
If rng Is Nothing Then Exit Sub
If rng = 5 Then MsgBox "FÜNF!"
End Sub

Viel Erfolg!
AW: Wenn A1="5", dann Objektanzeige
04.01.2005 10:02:28
Giuseppe
Hallo Galenzo
Vielen Dank!
Das ist genau das, wonach ich gesucht hatte.
Funktioniert einwandfrei...
ich bin Happy
mfG
Giuseppe
Anzeige
AW: Wenn A1="5", dann Objektanzeige
04.01.2005 09:58:28
Russi
Hi Giuseppe!
Alternativvorschlag zu VBA: Wie wärs mit einer Eingabe- bzw. "Fehler"meldung, die Du unter DATEN, GÜLTIGKEIT definieren kannst?
Definiere dort den zulässigen Zellinhalt und eine Meldung, die erscheint, wenn ein abweichender Wert eingegeben wird. Dann musst Du Dich nicht mit VBA rumplagen ;-)
Viele Grüße
Russi
www.Russi.de.tt
AW: Wenn A1="5", dann Objektanzeige
04.01.2005 10:11:14
Giuseppe
Hallo Russi
Vielen Dank.
Auch das ist eine extrem gute Möglichkeit.
Ich liebe denoch VBA.
Doch dein Vorschlag ist spitze,
weil es sich, für mich, ganz neue Möglichkeiten bieten.
mfG
Giuseppe
AW: Wenn A1="5", dann Objektanzeige
04.01.2005 10:18:09
Russi
Hi Giuseppe!
Hab mir gedacht, beim angegebenen VBA-Level wäre dies die einfachste Lösung für Dich.
Aber wenn Du VBA LIEBST - nur zu! ;-)))
Viele Grüße
Russi
www.Russi.de.tt
Anzeige
AW: Wenn A1="5", dann Objektanzeige
04.01.2005 11:23:20
Giuseppe
Hallo Russi
Nun, ein wenig mehr als mit "Recorder" kann ich schon.
Aber als "gut" möchte ich mich sicherlich nicht bezeichnen.
mfG
Giuseppe
AW: Wenn A1="5", dann Objektanzeige
Galenzo
nur keine falsche Bescheidenheit - die Antwort (Ausführlichkeit, Machbarkeit) bezieht sich, wie du siehst, orientiert sich doch sehr stark an dieser Angabe.

300 Forumthreads zu ähnlichen Themen

Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
Anzeige
"Wenn Zeit > 17.30 Uhr dann"
Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne
14.09.2008 23:24:58
Thread-ID: 1009640
6 Beiträge
Aufruf von Makros mit Abfrage (JA oder NEIN) ?
Makros

Hallo Leute,
wenn ich ein Makro starte, würde ich gerne eine Abfrage (MsgBox) einschalten, wo ich gefragt werde, ob die weitere Makros (siehe Beispiel) tatsächlich ausgeführt werden sollen. Geht das überhaupt?
Beispiel:
Sub Makro1() Dim rng As Range For Each rng In Range("A1:A" &a...
18.09.2008 18:59:00
Thread-ID: 1010835
3 Beiträge
Anzeige
Wenn ComboBox Dann ListBox
sockel939

Hallo Excelfreunde,
habe hier ne Legerverwaltung dessen Code ich gerne um einen Punkt erweitern möchte.
Und zwar soll die TextBox " Lagerbestand" aus der UserForm die Gesamtmenge aus der Tabelle "Lagerstand" wiedergeben in abhängigkeit des Wertes der in der ComboBox "Marke"
eingegeb...
16.10.2008 15:36:46
Thread-ID: 1016894
3 Beiträge
Wenn Eintrag in ListBoxspalte dann Eintrag in lbl
Josef

Guten Morgen!
In eine mehrspaltige ListBox werden eine Menge Datensätze eingelesen.
Ich möchte nun folgendes erreichen:
Wenn ich einen Datensatz in der ListBox markiere oder anklicke und wenn jetzt z.B. in der 2.Spalte in der ListBox ein "J" steht, dann soll ein vordefinierter Text...
29.10.2008 07:57:42
Thread-ID: 1020127
3 Beiträge
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
Textboxhintergrundfarbe ändern wenn aktiv
Jochen

Hallo Forum
Ich habe in einer UserForm fünf Textboxen in die nach einander Werte eingetragen werden.
Die Hintergrundfarbe der Textboxen ist weiss.
Möchte jetzt erreichen wenn die einzelnen Texboxen aktiv werden das sich die Hintergrundfarbe
ändert.
ZB. so: Textbox1 ist aktiv...
29.11.2008 18:50:15
Thread-ID: 1028885
15 Beiträge
Wenn Ordner noch nicht existiert dann MsgBox Meld.
Josef

Hallo!
Ich möchte mit folgendem Code gleich den richtigen Ordner zum aussuchen der Dateien öffnen lassen:
Dim dokname
Dim dokname2
dokname = Range("Tabelle1!D1").Value
dokname2 = Range("Tabelle1!D2").Value
With Application.FileDialog(4)
.InitialFileName = "K:\Allg_da...
04.12.2008 06:21:22
Thread-ID: 1030007
3 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
2
4
5
2
6
2
2
4
14
2
2
2
1
2
11
3
5
1
6
3
6
9
1
4
5