Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1652to1656
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
1652to1656
1652to1656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Zellen auf unterschiedliche Werte abfragen

Mehrere Zellen auf unterschiedliche Werte abfragen
18.10.2018 15:02:02
Jürgen
Hallo Excelprofis,
ich bräuchte eure Hilfe.
In meiner Tabelle möchte ich mehrere Zellen (B80:F80) auf unterschiedliche Werte (unten im Bsp. AG61, AG62, AG63 ... in echt ca.30 Werte mehr) abfragen und bei Treffer ein MsgBox Hinweis (aus hinterlegten Texten in Tabelle "Listen") ausgeben.
Auch sollen mehrere Msgbox Hinweise (oder zb. alle 5) kommen wenn zb. in B80 "AG61" gefunden wird und in E80 "AG63" gefunden etc. usw.
Mit meinen leider bescheidenen VBA Kenntnissen bekomme ich das nicht hin.
Die Abfrage auf eine Zelle habe ich wie folgt gelöst. 
Sub Worksheet_Change(ByVal Target As Range)
text61 = Sheets("Listen").Range("C223")
text62 = Sheets("Listen").Range("C224")
text63 = Sheets("Listen").Range("C225")
If Sheets("Tab1").Range("B80") = "AG61" Then
GoTo Hinweiß61
ElseIf Sheets("Tab1").Range("B80") = "AG62" Then
GoTo Hinweiß62
ElseIf Sheets("Tab1").Range("B80") = "AG63" Then
GoTo Hinweiß63
End If
GoTo Ende
Hinweiß61:
MsgBox text61, vbInformation, "Hinweiß zu beachten ..."
GoTo Ende
Hinweiß62:
MsgBox text62
GoTo Ende
Hinweiß63:
MsgBox text63
GoTo Ende
Ende:
End Sub
Wie bekomme ich nun die Abfrage hin ohne den Code auf die 30 Werte auszuweiten und 5x zu kopieren?
Vielen Dank schon mal für eure Hilfe

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

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Zellen auf unterschiedliche Werte abfragen
18.10.2018 15:41:48
Rudi
Hallo,
du solltest dir eine Liste mit Zellwert - Hinweistext anlegen. Die kannst du dann z.B. per SVERWEIS abfragen.
Etwa so:
Arbeitsblatt 'Listen'
AB
1ZellwertHinweis
2AG61Hinweistext für AG61
3AG62Hinweistext für AG62
4AG63Hinweistext für AG63
5AG64Hinweistext für AG64
6AG65Hinweistext für AG65
7AG66Hinweistext für AG66
8AG67Hinweistext für AG67
9AG68Hinweistext für AG68
10AG69Hinweistext für AG69
11AG70Hinweistext für AG70
12AG71Hinweistext für AG71

Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, arrHinweis(1 To 5), vntHinweis, bolHin As Boolean
For i = 2 To 6
vntHinweis = Application.VLookup(Cells(80, i), Sheets("Listen").Range("A:B"), 2, 0)
If Not IsError(vntHinweis) Then
bolHin = True
arrHinweis(i - 1) = vntHinweis
End If
Next i
If bolHin Then MsgBox Join(arrHinweis, vbLf), , "Hinweise"
End Sub

Gruß
Rudi
Anzeige
AW: Mehrere Zellen auf unterschiedliche Werte abfragen
18.10.2018 16:06:14
Jürgen
Hallo Rudi,
Klasse funkioniert ... jedoch wird in der ausgegebenen MsgBox auch ST ausgegeben. Ich gehe davon aus das sind Platzhalter für die Ausgabewerte B80:F80 ?
Bekommt man die irgendwie weg?
Gruß
Jürgen
AW: Mehrere Zellen auf unterschiedliche Werte abfragen
18.10.2018 16:16:41
Jürgen
Hallo Rudi,
sorry mein Fehler mit dem "ST" ... habs gefunden, lag an meiner bestehenden Tabelle.
Vielen Dank du hast mir sehr geholfen.
Gruß
Jürgen
AW: Mehrere Zellen auf unterschiedliche Werte abfragen
18.10.2018 16:12:58
Jürgen
Hallo Rudi,
Klasse funkioniert ... jedoch wird in der ausgegebenen MsgBox auch ST ausgegeben. Ich gehe davon aus das sind Platzhalter für die Ausgabewerte B80:F80 ?
Bekommt man die irgendwie weg?
Gruß
Jürgen
Anzeige

300 Forumthreads zu ähnlichen Themen

Nullwerte nur bei Bezug auf leere Zellen unterdrüc
Christian

Hallo,
ich suche nach einem Tipp, wie ich Excel dazu bringen kann, keine Nullwerte anzuzeigen, wenn es sich auf eine leere Zelle bezieht. Es soll jedoch eine Null anzeigen, wenn es sich auf eine Zelle mit dem tatsächlichen Wert 0 bezieht. Daher scheidet die generelle Möglichkeit, die Nullwe...
21.01.2009 13:59:43
Thread-ID: 1042168
5 Beiträge
Anzeige
Eingabe in USERFORM/Prüfen ob Wert vorhand
Peter

Guten Tag,
wir benutzen im Büro eine Tabelle, die von mehreren Mitarbeitern genutzt wird.
Die Eingabe erfolgt über eine USERFORM mit Textbox für Datum (Spalte A),
Textbox für Preis "A" (Spalte B) und Textbox für Preis "B" (Spalte C) etc..
Da sich in letzter Zeit häufig Fehler ei...
21.06.2009 17:38:10
Thread-ID: 1083287
11 Beiträge
Zelle auf mehrere werte aus tabelle überprüfen
Michael

hallo
für einen script müsste eine zelle a1 dahingehend überprüft werden, ob der dort eingegebene wert identisch ist mit werten, die in b1:b200 stehen. sollte der wert in a1 identisch sein mit einem der werte in b1:b200, wird dann eine if-anweisung ausgeführt.
wie lautet der code für di...
07.08.2009 13:18:50
Thread-ID: 1094283
3 Beiträge
Anzeige
Zelle auf bestimmten Inhalt prüfen
Mandy

Hallo,
ich habe in meinem Excel Sheet sowas wie ein Kopf, wo der User Pflichtfelder ausfüllen MUSS.
Leider ist das Format so blöd, dass gleich 5 Abfragen in einer Zelle gemacht werden.
Die 5 Angaben sind also durch einen Zeilenumbruch innerhalb der Zelle dargestellt, sieht ungefähr...
14.09.2009 10:06:22
Thread-ID: 1102539
7 Beiträge
Combobox in Abhängigkeit von Wert in 2. Spalte
Wert

Hallo Forum,
Ich habe in Tabelle1 eine Spalte (A2:A45) mit Mitarbeiternamen.
In der 2. Spalte wird festgehalten, ob diese MA eine bestimmte Qualifikation haben (mittels "x" quasi angekreuzt).
In Tabelle2 gibt es eine Combobox, die ich nun mit den Werten aus der o.g. Spalte befüllen...
11.10.2009 23:11:06
Thread-ID: 1108963
4 Beiträge
Zelle auf Anzahl Zeichen prüfen
Kai

Hi,
ich möchte im Sheet "Daten" die Zelle A1 prüfen, ob der Inhalt mehr als 35 Zeichen ist, wenn ja, soll eine MsgBox ausgegeben werden.
Wie zähle ich denn die Zeichen per Makro ?
Danke schon mal
Kai
03.11.2009 08:56:05
Thread-ID: 1114000
2 Beiträge
Zelle auf verschiedene Inhalte überprüfen
massimo17

Hallo,
ich möchte gerne eine Zelle auf verschiedene Inhalte überprüfen.
Bisher kann ich nur nach einem Suchen mit folgender Formel:
=WENN(ISTZAHL(SUCHEN("E10";W2));"1";"0")
Also Zelle"W2" nach dem Wert E10 durchsuchen; ich möchte aber dass die Zelle nach E10 oder E11 oder E12 od...
03.12.2009 20:55:44
Thread-ID: 1121687
7 Beiträge
Bereich prüfen ob Wert enthalten oder leer
chris

Hallo Excelprofis und guten morgen,
ich hätte eine frage.Vielleicht könnt ihr mir helfen.
ich möchte gerne einen bereich prüfen ob ein wert vorhanden ist.
Also z.b Bereich A1 bis G1
ich möchte jetzt einfach prüfen ob in einer dieser 7 Zellen prüfen ob ein wert vorhanden/eingetra...
04.03.2010 07:47:03
Thread-ID: 1143197
3 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
4
12
10
2
3
6
3
1
6
2
3
3
3
2
9
3
2
3
2
4
5
2
6
2
6