Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1592to1596
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
1592to1596
1592to1596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

wennfehler...

wennfehler...
20.11.2017 13:47:18
Christian
Hallo Zusammen,
ich habe wirklich versucht, selbst eine Lösung zu finden, hänge aber schon länger fest. Wie bekomme ich denn den Wennfehler in den VBA-Code?
If IsError(WorksheetFunction.VLookup(UserForm7.ComboBox3.Value, Worksheets("Dropdowns Analyse").Range("T7:T1000"), 1, False)) Then
UserForm7.ComboBox3 = ""
UserForm7.ComboBox3.BackColor = vbWhite
UserForm7.ComboBox3.Locked = False
Exit Sub
End If
If WorksheetFunction.VLookup(UserForm7.ComboBox3.Value, Worksheets("Dropdowns Analyse").Range("T7:T1000"), 1, False) = UserForm7.ComboBox3.Value Then
UserForm7.ComboBox3.BackColor = vbWhite
UserForm7.ComboBox3.Locked = False
End If
Vielen Dank und viele Grüße
Christian

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
WorksheetFunction.IsError
20.11.2017 14:03:24
lupo1
AW: WorksheetFunction.IsError
20.11.2017 14:17:04
Christian
Mmh... so ist das sicher zu kurz gedacht, oder?
If WorksheetFunction.IsError(WorksheetFunction.VLookup(UserForm7.ComboBox3.Value, Worksheets("Dropdowns Analyse").Range("T7:T1000"), 2, False)) = True Then
In VBA ist .FIND die bessere Alternativ zu VLookUP
20.11.2017 14:29:28
Daniel
Hi
in VBA ist es oft besser, .FIND anstelle von Worksheetfunction.VLookUp zu verwenden (vorallem, wenn du nur feststellen willst, ob der Wert überhaupt vorhanden ist)
If Worksheets("Dropdowns Analyse").Range("T7:T1000").Find(What:=UserForm7.ComboBox3.Value, Lookat:=xlwhole) Is Nothing then
UserForm7.ComboBox3 = ""
UserForm7.ComboBox3.BackColor = vbWhite
UserForm7.ComboBox3.Locked = False
Exit Sub
End If

In VBA verwende ich den VLookUp nur in der Variante mit dem 4. Parameter = TRUE, weil er dann eine schnellere Suchmethode verwendet.
Oder du verwendest nicht WorkSheetfunction.VLookUp, sondern WorksheetFunction.CountIf.
das ergibt bei nichtvorhanden sein des Suchbegriffs keinen Fehler, sondern den Wert 0, was in VBA auch einfacher zu händeln ist.
solltest du beim VLookUp bleiben wollen, dann vielleicht so, beachte dass du hier dann nicht Worksheetfunction.VLookUp verwenden musst, sondern ApplicationVLookUp:
IF VarType(Application.VLookUP(...)) = vbError Then
Gruß Daniel
Anzeige
AW: In VBA ist .FIND die bessere Alternativ zu VLookUP
20.11.2017 14:37:47
Christian
Hallo Daniel,
vielen Dank - auch wieder für die hilfreichen Erklärungen.
Leider übernimmt er
UserForm7.ComboBox3 = ""
obwohl das Wort "Gesamt" in den Spalte T wiederzufinden ist.
Liegt es möglicherweise daran, dass in der Spalte T keine Werte sondern Formeln stehen?
Viele Grüße
Christian
AW: In VBA ist .FIND die bessere Alternativ zu VLookUP
20.11.2017 14:46:49
Daniel
Hi
kommt darauf an.
bei .FIND hast du die Option, in Formeln oder in Werten zu suchen.
Dh, du solltest im Parameter LookIn:=xlValues dieses noch angeben.
Lässt du diese Angabe weg, so verwenden die .Find-Funktion die Einstellung, die du beim letzten mal gemacht hast.
Daher sollte man bei .Find die Parameter möglichst vollständig angeben (die weitern Parameter kannst du in der Hilfe nachlesen):
Range(..).Find(what:=..., lookIn:=xlvalues, lookat:=xlwhole, MatchCase:=False)
Gruß Daniel
Anzeige
AW: In VBA ist .FIND die bessere Alternativ zu VLookUP
20.11.2017 15:01:47
Christian
Hallo nochmal, sorry,
jetzt findet er "angeblich" immer einen Wert.
Seltsamerweise schreibt er, sofern der Wert eigentlich nicht in der Spalte zu finden ist, die oberste Zelle aus T7:T1000 in die COmbobox... ich habe extra eine Messagebox eingebaut,um mitzubekommen, wo er abzweigt:
If Worksheets("Dropdowns Analyse").Range("T7:T1000").Find(What:=UserForm7.ComboBox3.Value, LookIn:=xlValues, Lookat:=xlWhole, MatchCase:=False) Is Nothing Then
UserForm7.ComboBox3 = ""
UserForm7.ComboBox3.BackColor = vbWhite
UserForm7.ComboBox3.Locked = False
Else
MsgBox "!"
UserForm7.ComboBox3 = UserForm7.ComboBox3
UserForm7.ComboBox3.BackColor = vbWhite
UserForm7.ComboBox3.Locked = False
End If
Anzeige
AW: In VBA ist .FIND die bessere Alternativ zu VLookUP
20.11.2017 15:09:24
Daniel
Hi
ohne die Datei kann ich dir da auch nicht helfen.
btw: welchen tieferen Sinn hat dieser Befehl? 
UserForm7.ComboBox3 = UserForm7.ComboBox3
Gruß Daniel
AW: In VBA ist .FIND die bessere Alternativ zu VLookUP
20.11.2017 15:13:53
Christian
...keinen, habe ich schon gelöscht.
Dann muss ich mir etwas anderes einfallen lassen - trotzdem danke.
Etwas anderes, wenn ich die UserForm7 mit vbModeless aufgerufen habe - wie kann ich verhindern, dass der User andere Tabellenblätter ansteuert. Das Tabellenblatt der UserForm soll allerdings mit bearbeitbar bleiben. Geht das?!
AW: In VBA ist .FIND die bessere Alternativ zu VLookUP
20.11.2017 15:22:26
Daniel
Nun, du musst nicht .FIND verwenden, ich habe dir ja noch andere alternativen genannt.
zur zweiten Frage:
blende die Blätter einfach aus.
Wenn der Anwender die Blätter wieder bearbeiten darf, blende sie wieder ein.
Gruß Daniel
Anzeige
AW: In VBA ist .FIND die bessere Alternativ zu VLookUP
20.11.2017 15:23:16
Christian
gute Idee... vielen vielen Dank!
AW: In VBA ist .FIND die bessere Alternativ zu VLookUP
20.11.2017 16:28:15
Christian
Hallo nochmal,
ich glaube, ich habe herausgefunden, woran es liegt.
In der Zelle T8 steht zum Beispiel eine Formel, die das Ergebnis "Gesamt" auswirft.
Durch die Eingabe in der ComboBox 2 verändert sich das Ergebnis der Formel in T8 in "Einzelsicht" - daraufhin verändert sich der Inhalt der Combobox3 auch in Einzelsicht.
Kann man da etwas machen?
AW: In VBA ist .FIND die bessere Alternativ zu VLookUP
20.11.2017 16:40:06
Daniel
Selber nachdenken, was du genau willst und welche Werte zu welchem Zeitpunkt aus den Daten genommen werden müssen. Ggf auch die Werte in Variablen zwischenspeichern, wenn sich die Originalquellen verändern, bis der Wert eingesetzt wird.
Ohne die Kenntnis der Originaldatei und der Aufgabenstellung kann ich dir keine genauere Aussage zu machen.
Anzeige
AW: In VBA ist .FIND die bessere Alternativ zu VLookUP
21.11.2017 07:17:09
Christian
Hallo Daniel,
herzlichen Dank für Deine geduldige Mühe.
Viele Grüße
Christian

84 Forumthreads zu ähnlichen Themen

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
Anzeige
Ohne VBA: Wenn Autofilter, dann anderen Zellwert
sunni

Hallo alle zusammen,
gibt es eine Möglichkeit über Excel (ohne VBA) zu sehen, ob ein Autofilter gesetzt ist?
Hintergrund: ich habe eine Formel bei gesetztem Autofilter. Wenn aber kein Autofilter gesetzt ist, soll hier in der Zelle eine 0 oder "" erscheinen.
Geht das?
Vielen Dank...
08.01.2010 12:35:47
Thread-ID: 1128216
8 Beiträge
wenn(isfehler=wahr;dann;sonst in vba
Joachim

Hallo,
ich wollte folgende Formel in vba schreiben:
=WENN(ISTFEHLER(VERGLEICH(B1;Wasserdaten!A:A;0))=WAHR;VERGLEICH(B1;Wasserdaten!A:A;1);VERGLEICH(B1; Wasserdaten!A:A;0))
Mein Code dazu geht auf Fehler:
zeile_ws = WorksheetFunction.if(IsError _
(Match(fdh_nr, Worksheets(...
30.04.2010 13:31:27
Thread-ID: 1154723
4 Beiträge
Anzeige
VBA Formel wenn Uhrzeit dann
Gonzer

Hallo zusammen,
habe folgendes Problem - ich will per VBA eine Formel in eine Zelle schreiben die überprüft ob ein Zellwert im Datumsformat vorliegt. Liegt dieses vor soll der Zellwert übernommen werden, wenn nicht soll die Zahl als Uhrzeit umgewandelt werden.
Hier meine Code Zeile:
...
16.09.2010 17:07:58
Thread-ID: 1178158
5 Beiträge
wie war das... VBA wenn dann ?
amintire

Hallo alle zusammen,
würde gerne in einem Label eine Auskunft geben wenn die UserForm geöffnet wird.
Also Daten stehen in A:B
'Wenn in der Spalte B größer als 1 vorhanden ist, dann soll die Zelle vor der Zahl mit angegeben werden.
=If B > 1 then
=?
oder so ähnlich ? <...
25.02.2011 11:37:33
Thread-ID: 1202920
16 Beiträge
wenn fehler dann sonst mit vba
Erik

Hallo Leute ich versuche einen Forecast zu erstellen und habe folgendes Problem.
Diese Formel:
=WENN(ISTFEHLER(VERWEIS(C:C;Tabelle3!A:A;Tabelle3!B:B));"";VERWEIS(C:C;Tabelle3!A:A;Tabelle3!B:B))
Steht in einer Zelle.
Wenn die Leute jetzt in die zelle schreiben ist die formel weg....
24.10.2011 23:00:40
Thread-ID: 1235246
3 Beiträge
VBA Wenn dann
WalterK

Hallo,
ich komme nicht drauf, was ich bei der Definition von ErsteZei angeben muss! ErsteZei soll, wenn E3 Leer ist die Zahl 4 sein, ansonsten die Zahl 3!
So jedenfalls funktionert es nicht:
Sub Test() Dim ErsteZei As Integer ErsteZei = If Range("$E$3") = "" Then 4 Else 3 End If Msg...
11.07.2012 14:21:31
Thread-ID: 1270637
3 Beiträge
VBA Wenn Zelle Leer dann
Philipp

Hallo,
ich habe eine Tabelle und möchte daraus automatisch eine Liste generieren.
Die Tabelle sieht in etwa so aus
A B C
1 XYZ ABC
2 Bla 23%
3 Blub 2% 7%
4 ...
Das Makro soll nun schauen ob in der Spalte A...
12.07.2012 16:29:13
Thread-ID: 1270809
3 Beiträge

Links zu Excel-Dialogen

ComboBox UserForm

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
8
7
3
6
4
15
2
2
2
2
3
4
1
1
10
2
1
5
1
5
1
1
6
8