Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1560to1564
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
1560to1564
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

wenn dann vba

wenn dann vba
07.06.2017 10:54:08
Sandra
Hallo zusammen,
ich habe gestern, mit freundlicher unterstützung von Werner (Danke nochmal), folgenden VBA Code gebastelt: 
Private Sub CommandButton4_Click()
Dim varSuchbegriff As Variant
If IsNumeric(ComboBox1.Value) Then varSuchbegriff = Val(ComboBox1.Value) Else  _
varSuchbegriff = ComboBox1.Value
On Error Resume Next
Label11.Caption = WorksheetFunction.VLookup(ComboBox1.Value, Worksheets("Halle1").Range( _
_
"A:J"), 2, False)
Label10.Caption = WorksheetFunction.VLookup(ComboBox1.Value, Worksheets("Halle1").Range( _
_
"A:J"), 3, False)
Label9.Caption = WorksheetFunction.VLookup(ComboBox1.Value, Worksheets("Halle1").Range(" _
_
A:J"), 4, False)
Label14.Caption = WorksheetFunction.VLookup(ComboBox1.Value, Worksheets("Halle1").Range( _
_
"A:J"), 7, False)
Label15.Caption = WorksheetFunction.VLookup(ComboBox1.Value, Worksheets("Halle1").Range( _
_
"A:J"), 8, False)
Label17.Caption = WorksheetFunction.VLookup(ComboBox1.Value, Worksheets("Halle1").Range( _
_
"A:J"), 9, False)
If Err.Number  0 Then Label9.Caption = " Kein Eintrag vorhanden"
If Err.Number  0 Then Label10.Caption = " Kein Eintrag vorhanden"
If Err.Number  0 Then Label11.Caption = " Kein Eintrag vorhanden"
If Err.Number  0 Then Label14.Caption = " Kein Eintrag vorhanden"
If Err.Number  0 Then Label15.Caption = " Kein Eintrag vorhanden"
If Err.Number  0 Then Label17.Caption = " Kein Eintrag vorhanden"
On Error GoTo 0
End Sub

Leider funktioniert meine IF Funktion nicht so wie ich sie gerne hätte. Wenn mich nicht alles täuscht, muss das Err.Number ersetzt werden. Allerdings weiß ich ehrlich gesagt nicht durch was.
Alles was ich möchte, ist WENN kein Eintrag in Zelle DANN schreib "Kein Eintrag vorhanden"
Was mache ich falsch?
Schonmal ein riesen Danke vorab.
Gruß Sandra

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: wenn dann vba
07.06.2017 11:23:56
ChrisL
Hi Sandra
Dein Code sieht eigentlich OK aus, wenn auch etwas unkonventionell. Zum Nachbauen und Fehlersuchen bin ich aber zu faul.
"Voraussehbare" Fehler würde ich nicht mittels Error-Handling erledigen, sonder z.B. so...
Dim varSuchbegriff As Variant
If IsNumeric(ComboBox1.Value) Then varSuchbegriff = Val(ComboBox1.Value) Else _
varSuchbegriff = ComboBox1.Value
With Worksheets("Halle1")
If WorksheetFunction.CountIf(.Columns(1), varSuchbegriff) > 0 Then
Label11.Caption = WorksheetFunction.VLookup(varSuchbegriff, .Range("A:J"), 2, False)
' weitere SVerweise
Else
Label11.Caption = "nix"
End If
End With

cu
Chris
Anzeige
AW: wenn dann vba
07.06.2017 11:52:28
Sandra
Hi Chris,
erstmal danke für die schnelle Antwort.
Haben den Code soweit angepasst, leider habe ich das gleiche Bild wie vorher.
Die Felder bleiben leer.
Private Sub CommandButton4_Click()
Dim varSuchbegriff As Variant
If IsNumeric(ComboBox1.Value) Then varSuchbegriff = Val(ComboBox1.Value) Else _
varSuchbegriff = ComboBox1.Value
With Worksheets("Halle1")
If WorksheetFunction.CountIf(.Columns(1), varSuchbegriff) > 0 Then
Label11.Caption = WorksheetFunction.VLookup(varSuchbegriff, .Range("A:J"), 2, False)
Label10.Caption = WorksheetFunction.VLookup(varSuchbegriff, .Range("A:J"), 3, False)
Label9.Caption = WorksheetFunction.VLookup(varSuchbegriff, .Range("A:J"), 4, False)
Label14.Caption = WorksheetFunction.VLookup(varSuchbegriff, .Range("A:J"), 7, False)
Label15.Caption = WorksheetFunction.VLookup(varSuchbegriff, .Range("A:J"), 8, False)
Label17.Caption = WorksheetFunction.VLookup(varSuchbegriff, .Range("A:J"), 9, False)
Else
Label11.Caption = "nix"
Label10.Caption = "nix"
Label9.Caption = "nix"
Label14.Caption = "nix"
Label15.Caption = "nix"
Label17.Caption = "nix"
End If
End With
End Sub
Stehe mit VBA noch ganz am Anfang, deswegen wohl etwas unkonventionell :)
Anzeige
AW: wenn dann vba
07.06.2017 12:35:58
ChrisL
Hi Sandra
Bitte ich um eine kleine Beispieldatei...
cu
Chris
AW: wenn dann vba
07.06.2017 12:29:39
Max2
Hallo,
da keine Beispiel Mappe mit entsprechendem Code, hier eine andere
Variante die Funktioniert:

Sub a()
Dim varSuche As Variant
Dim rng As Range
On Error Resume Next
If IsNumeric(ComboBox1.Value) Then varSuche = Val(ComboBox1.Value) Else: varSuche =  _
ComboBox1.Value
Label1.Caption = "Nicht vorhanden"
With Worksheets("Tabelle1")
Set rng = .Range("A:J")
Label1.Caption = .Cells(rng.Find(varSuche).Row, 2).Value
End With
End Sub
Du musst die Angaben eben noch auf deine Spalten usw. anpassen.
Anzeige
AW: wenn dann vba
07.06.2017 12:46:20
Sandra
Hallo Max2,
Dir auch erstmal ein fettes Danke. Läuft allerdings immer noch nicht.
ich bin wohl einfach nicht dafür gemacht.
Deswegen hier mal meine Beispieldatei mir meinem Ursprungscode.
https://www.herber.de/bbs/user/114088.xlsm
Danke für Eure Hilfe!
AW: wenn dann vba
07.06.2017 12:58:19
ChrisL
Hi Sandra
Auch dein ursprünglicher Code funktioniert. Allerdings solltest du die RowSource von der ComboBox nicht erst beim Ändern (Change) definieren.
Am einfachsten gehst du auf die Eigenschaft der ComboBox und definierst die RowSource fix:
Halle1!A2:A700
Das Change-Ereignis brauchst du dann natürlich nicht mehr: 
Private Sub ComboBox1_Change()
Me.ComboBox1.RowSource = "Halle1!A2:A700"
End Sub
Wenn du die Eigenschaft MatchRequired auf True setzt, dann brauchst du das Fehlerhandling resp. die IF-Abfrage gar nicht mehr, weil nur noch vorhandene Artikelnummern zugelassen sind.
cu
Chris
Anzeige
AW: wenn dann vba
07.06.2017 13:24:02
Sandra
Hallo Chris,
ja die Vlookups funktionieren soweit, aber es füllt mir dir restlichen Felder nicht mit "Kein Eintrag vorhanden", wenn keine Angabe in der Zelle ist.
Natürlich kann man die leer lassen, allerdings fühlt sich der ein oder andere Kollege dadurch angesprochen und kann selber Einträge hinzufügen.
Danke für den Tipp mit der ComboBox macht das ganze etwas eleganter und benutzerfreundlicher.
Grüße Sandra
AW: wenn dann vba
07.06.2017 13:41:28
ChrisL
Hi Sandra
OK, jetzt verstehe ich das Problem erst. Ich dachte immer es ginge um das Fehlerhandling, wenn die Artikelnummer nicht gefunden wurde. Im nachstehenden Code habe ich die Prüfung ganz weggelassen, weil du die ComboBox-Einträge ja direkt aus der Tabelle beziehst, sind die Artikelnummern auch immer vorhanden.
Ob du leere Felder tatsächlich mit "nix" füllen willst, würde ich noch einmal überlegen. Bei einem Übertrag zurück in die Tabelle musst du dann alle "nix" wieder raus filtern.
Private Sub CommandButton4_Click()
Dim ar1 As Variant, ar2 As Variant, i As Integer, rng As Range
Dim strSuchbegriff As String: strSuchbegriff = ComboBox1
Set rng = Worksheets("Halle1").Range("A:J")
ar1 = Array(11, 10, 9, 14, 15, 17)
ar2 = Array(2, 3, 4, 7, 8, 9)
For i = 0 To UBound(ar1)
With Controls("Label" & ar1(i))
.Caption = WorksheetFunction.VLookup(strSuchbegriff, rng, ar2(i), False)
If .Caption = "" Then .Caption = "nix"
End With
Next i
End Sub
cu
Chris
Anzeige
AW: wenn dann vba
07.06.2017 13:50:25
Sandra
Hi Chris,
so funktionierts!!! Ich guck mal wie sich das in der Praxis bewährt.
Sorry, da hab ich mich anfangs wohl falsch ausgedrückt. Ich verspreche Besserung.
Danke, danke, danke an Chris, Rudi, Max2 für Eure Zeit und Geduld!
AW: Hier Mappe
07.06.2017 13:32:22
Sandra
Hallo,
Danke, aber die Felder in den der vlookup nichts findet bleiben immer noch leer :(
Grüße
Sandra
noch'n Gedicht
07.06.2017 12:49:24
Rudi
Hallo,
evtl. so? 
Private Sub CommandButton4_Click()
Dim varSuchbegriff As Variant, varRow As Variant
varSuchbegriff = ComboBox1.Value
If IsNumeric(varSuchbegriff) Then varSuchbegriff = varSuchbegriff * 1
With Worksheets("Halle1")
varRow = Application.Match(varSuchbegriff, .Columns(1), 0)
If Not IsError(varRow) Then
Label11.Caption = .Cells(varRow, 2)
Label10.Caption = .Cells(varRow, 3)
Label9.Caption = .Cells(varRow, 4)
Label14.Caption = .Cells(varRow, 7)
Label15.Caption = .Cells(varRow, 8)
Label17.Caption = .Cells(varRow, 9)
Else
Label11.Caption = "nix"
Label10.Caption = "nix"
Label9.Caption = "nix"
Label14.Caption = "nix"
Label15.Caption = "nix"
Label17.Caption = "nix"
End If
End With
End Sub

Anzeige

302 Forumthreads zu ähnlichen Themen

Textbox - wenn nicht mehr als 3 stellen dann
Patrick

Hallo,
ich habe auf einer Userform eine Textbox in welche je nach Auswahl Kürzel (z. B. BE) eingetragen werden. Es soll nun realisiert werden, dass wenn ich auf einen commandbutton drücke, geprüft wird ob in der besagten Textbox nach wie vor nur "BE" steht oder diese Textbox bearbeitet wurd...
12.11.2008 16:39:47
Thread-ID: 1023910
5 Beiträge
Anzeige
Wenn dann mit VBA und Makro starten
Thomas

Hallo guten Morgen liebe Helfer,
ich komme mit einer Wenn Dann Formel im VBA nicht klar. Wer kann mir bitte helfen.
WENN Zelle C1 = OK DANN starte Makro1 sonst MsgBox "Eingabe leider falsch"
Ich schaffe es einfach nicht das ich innerhalb der Abfrage ein Makro starten lasse möchte we...
31.01.2009 09:18:37
Thread-ID: 1045583
4 Beiträge
wenn nicht eine Textbox mehr als 0, dann Msg.Box
Wolfgang

Hallo,
ich versuche folgendes Problem in den Griff zu bekommen, schaffe es aber mit verschied. Ansätzen nicht:
Ich würde gerne bei Klicken einer Schaltfläche zunächst überprüft haben, ob nicht zumindest eine Textbox von den Textboxes13-16 mehr als 0 enthält, wenn nein, Abbruch. Wäre für...
22.02.2010 18:36:04
Thread-ID: 1140459
11 Beiträge
Anzeige
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
Wenn dann als VBA
Holger

Hallo
nun hoffe ich aauch meine letzte Frage kann hier beantwortet werden. Diese Forum ist schon super.
Ich möchte eine Schaltfläche haben mit der ich prüfen kann ob Datumsfelder später als (heute() in einer Zelle sind und dann eine Änderung vn Zellwerten vopn "p" nach "u" ändern.
...
01.11.2010 10:16:04
Thread-ID: 1184674
3 Beiträge
Färben, wenn größer oder kleiner
Jockel

Hallo
ich habe eine Spalte (H) mit Prozentangaben, ich habe sie momentan noch als Zahl formatiert
(zB 0,8 oder 0,33 oder 0,5.....)
Nun möchte ich die Werte färben, wenn sie zwischen bestimmten Angaben liegen:
If Cells(x, 13).Value > "0.01" And Cells(x, 13).Value < "0.20" T...
10.11.2010 14:18:09
Thread-ID: 1186096
3 Beiträge
Wenn Wert Größer als...
werner

Hallo Forum,
ich habe mal wieder eine Bitte.
In den Feldern 2 bis 156 einer Spalte habe ich diverse Werte. Nun möchte ich, dass der Wert welcher in Feld 1 der selben Spalte blinkt sobald er größer ist als der/die Werte in den Feldern 2 bis 156-
Wie macht man das?
Danke für Eure...
30.11.2010 09:13:14
Thread-ID: 1189332
3 Beiträge
wenn ja dann (vba)
amintire

Hallo alle zusammen,
stehe momentan voll auf den Schlauch.
Also wenn die Zelle "J1" = "x", dann soll das Makro ausgeführt werden, ansonsten nichts.
Mit einer Abfrage beim starten der Excel Mappe.
Müsste auch so sein, dass wenn ich einmal auf Ja klicke dann auch in die Zelle J1 e...
18.04.2011 12:06:22
Thread-ID: 1210884
13 Beiträge

Links zu Excel-Dialogen

ComboBox CommandButton

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