Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1216to1220
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
1216to1220
1216to1220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VLOOKUP - String einsetzen, wenn Wert vorhanden

VLOOKUP - String einsetzen, wenn Wert vorhanden
Peter
Guten Tag
Ich arbeite innerhalb eines Spaltenbereiches jeden Wert ab und möchte alle Werte durch den Eintrag "Separat" ersetzen, sofern dieser Wert im Bereich, der mit "vSeparat" benannt wurde, eingetragen ist.
Im Moment erhalte ich den Laufzeitfehler '1004'
If Application.WorksheetFunction.VLookup(rngZelle.Value, Range("vSeparat"), 1, False) = rngZelle.Value Then rngZelle = "Separat"
Ich habe das Problem in einer Datei nachgebaut:
https://www.herber.de/bbs/user/75184.xls
Vielen Dank und Gruss, Peter

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
oder 2 x For Each ...
06.06.2011 16:28:13
Matthias
Hallo
eine getestete Variante (für diesen kleinen Bereich gehts auch so)
Sub Eintrag()
Dim rngZelle As Range, rngseparat As Range
For Each rngZelle In Range("Bearbeiten")
For Each rngseparat In Range("Vseparat")
If rngZelle.Value = rngseparat.Value Then rngZelle.Offset(, 1) = Range("D3").Value
Next
Next
End Sub
https://www.herber.de/bbs/user/75185.xls
Userbild
AW: oder 2 x For Each ...
06.06.2011 16:36:05
Peter
Hallo Matthias
Vielen Dank. Das funktioniert. Da ich bei meiner Problemstellung erheblich mehr Spalteneinträge habe, lasse ich den Eintrag noch offen - wäre toll, wenn jemand mir sagen könnte, wo's bei meinem Lösungsansatz klemmt.
Danke und Gruss, Peter
Anzeige
oder so ...
06.06.2011 16:41:10
Matthias
Hallo
Hab gerade gesehen, das Du ja direkt ersetzen willst, dann vielleicht so ...
Sub Version1()
Dim rngZelle As Range, rngseparat As Range
For Each rngZelle In Range("Bearbeiten")
For Each rngseparat In Range("Vseparat")
If rngZelle.Value = rngseparat.Value Then rngZelle.Value = Range("D3").Value
Next
Next
End Sub


Sub Version2()
Dim rngZelle As Range
For Each rngZelle In Range("Bearbeiten")
If Application.WorksheetFunction.CountIf(Range("vSeparat"), rngZelle) > 0 Then rngZelle.Value = _
"Separat"
Next
End Sub

Userbild
Anzeige
Vielen Dank, owT!
07.06.2011 15:18:00
Peter
VLOOKUP - oder besser Match
07.06.2011 08:14:15
Erich
Hi Peter,
den VLookuop = SVERWEIS brauchst du hier nicht wirklich. Esgeht dir nur darum, ob ein Wert in einer Liste gefunden wird.
Dafür reicht Match = VERGLEICH völlig aus.
Der 1004 entsteht, wenn der Begriff nicht gefunden wird - SVERWEIS (VLookup) liefert einen Fehlerwert #NV.
Application.WorksheetFunction.VLookup(... ergibt dann den 1004.
Mit Application.VLookup(... - also ohne WorksheetFunction. - würde es hier noch nicht knallen,
aber einen Moment später, beim Versuch, den Fehlerwert mit rngZelle.Value zu vergleichen.
Das gibt Fehler 13 - Type Mismatch.
So, genug "gemeckert"! So sollte es gehen: 

Sub Eintrag2()
Dim rngZelle As Range
For Each rngZelle In Range("Bearbeiten")
If Not IsError(Application.VLookup( _
rngZelle.Value, Range("vSeparat"), 1, False)) Then _
rngZelle = "Separat"
'oder besser:
If IsNumeric(Application.Match( _
rngZelle.Value, Range("vSeparat"), 0)) Then _
rngZelle = "Separat"
Next rngZelle
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: VLOOKUP - oder besser Match
07.06.2011 15:20:42
Peter
Hallo Erich
Vielen Dank! Wenn das von dir ein "Gemecker" ist, dann schätze ich es, da immer lehrreich.
Ich habe die Variante mit MATCH verwendet und es hat gematcht!
Freundlicher Gruss, Peter

310 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Werte löschen beim Eintrag in andere Spalte ?
Selma

Hallo Leute,
wie kann ich folgendes ab Zeile 5 für aktive Zeile über VBA erreichen:
1. Wird der Wert in aktive Zeile in Spalte H eingetragen, dann sollen die Werte in Zellen der Spalte D und E gelöscht werden.
2. Wird der Wert in aktive Zeile in Splate D oder E eingetragen, dann sol...
12.10.2008 17:05:00
Thread-ID: 1015877
5 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
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
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge
Zelleninhalt suchen wenn gefunden dann...
Ernst

Hallo Fachleute,
ich möchte mit einem Makro eine Tabelle (möglichst nur einen vorher definierten Bereich) auf bestimmte Zellinhalte durchsuchen und wenn es einen Inhalt findet soll es dort eine Zeile einfügen und von mir im Makro definierten Text einfügen.
Nähere Anleitung in der Datei....
16.11.2008 14:44:22
Thread-ID: 1024902
7 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
1
8
4
7
4
4
2
2
9
6
4
2
1
2
4
4
5
2
33
5
10
1
3
2
2