Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 20:49:40
Listbox - ausgewählte Zeile aus Tabellenblatt markieren
04.05.2024 16:03:54
Problem mit einer Regel bei bedingter Formatierung
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
892to896
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
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SVERWEIS mit ISTFEHLER in VBA?

SVERWEIS mit ISTFEHLER in VBA?
10.08.2007 21:26:00
Kasimir
Hallo Leute,
irgendwie bekomme ich es nicht hin. Ich will die Formel
=NICHT(ISTFEHLER(SVERWEIS($A7;Feiertage;1;0)))
(Feiertage ist ein Bereich A2:A22, dem ich einen Namen gegeben habe) in VBA mit „Application.WorksheetFunction….“ nachbauen und abfragen ob True oder False.
Kann mir jemand die Formel mal in Application.WorksheetFunction aufzeigen? Wäre Euch dankbar, sonst sitze ich hier noch bis morgen früh und komme nicht auf die Lösung.
Danke,
Kasimir

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

Betreff
Datum
Anwender
Anzeige
AW: SVERWEIS mit ISTFEHLER in VBA?
10.08.2007 21:56:26
Beate
Hallo Kasimir,
so die Wiedergabe in der aktiven Zelle:
Sub aktive_Zelle()
    ActiveCell.Formula = "=NOT(ISERROR(VLOOKUP($A7,Feiertage,1,0)))"
End Sub
und so in einer MsgBox:
Sub Msg_Box()
    MsgBox [NOT(ISERROR(VLOOKUP($A7,Feiertage,1,0)))]
End Sub
Gruß,
Beate

Anzeige
AW: SVERWEIS mit ISTFEHLER in VBA?
10.08.2007 22:06:03
Kasimir
HAllo Beate,
danke Dir für Deine Antwort. Eine Frage hätte ich da aber noch. Wie kann die Zellbezeichnuing A7 variabel gestalten?
Ich möchte über diese Funktion in der Spalte A von Zeile 7 bis Zeile 37 prüfen, ob einer der Tage ein Feiertag (liefert mir der Bereich Feiertage A2:A22 in einem anderen Tabellenblatt) ist. Das wollte ich mit der SVERWEIS-Formel aber eben in VBA machen.
Wenn Du so nett wärst mir da eventuell nochmal helfend unter die Arme zu greifen wäre ich suuuuper glücklich.
Danke Dir,
Kasimir

AW: SVERWEIS mit ISTFEHLER in VBA?
11.08.2007 12:51:43
Klaus-Dieter
Hallo Kasimir,
ich denke, du meinst das so:

Sub feiertag()
Dim iZeil As Integer
For iZeil = 7 To 37
Cells(iZeil, 2) = Application.WorksheetFunction.VLookup(Cells(iZeil, 1), Sheets("Feiertage") _
.Range("A2:A22", 2), False)
Next iZeil
End Sub


In Spalte A7 bis A37 steht jeweils ein Datum. Im Tabellenblatt Feiertage steht in Celle A2 bis A22 das Datum der Feiertage. In Spalte B stehen die Namen der Feiertage. Die Überträgt das Makro in die erste Tabelle nach Spalte B.
Viele Grüße Klaus-Dieter

Online-Excel

Anzeige
AW: SVERWEIS mit ISTFEHLER in VBA?
11.08.2007 13:18:00
Rolf
Hallo Kasimir,
Beates Code ein bisschen ergänzt:

Sub aktive_Zelle()
Dim QString$, AString$, d As Range
Set d = Application.InputBox("Bitte Datumszelle auswählen", "Date", , , , , , 8)
AString = d.Address
QString = "=NOT(ISERROR(VLOOKUP(" & AString & ",Feiertage,1,0)))"
ActiveCell.Formula = QString
End Sub


fG
Rolf

AW: SVERWEIS mit ISTFEHLER in VBA?
11.08.2007 15:40:00
Kasimir
Hallo Rolf, hallo Klaus Dieter!
Danke Euch für Eure Antworten.
Rolf seine Antwort funktioniert, ist aber leider nicht das, was ich mir vogestellt habe, da es eine Formel in eine Zelle zurückgibt.
Klaus Dieters Lösung sieht viel versprechend aus, brint mir aber einen Laufzeitfehler1004 Anwendungs - oder objekdefinierter Fehler. Deine Ausführungen bezüglich wo sich die Feiertagsdaten befinden sind richtig. In Blatt "Feiertage in Zelle A2 bis A22 befinden sich die Datumswerte in Spalte B die Feiertagsnamen.
Warum erhalte ich den Fehler?
Danke nochmal und Gruß,
Kasimir

Anzeige
AW: SVERWEIS mit ISTFEHLER in VBA?
11.08.2007 17:52:00
Klaus-Dieter
Hallo Kasimir,
es sind immer die Kleinigkeiten an denen man scheitert. Anbei eine überarbeitete Version. Der Fehler wird ausgelöst, wenn SVerweis keine Übereinstimmung findet. Habe das jetzt mit "On Error Resume Next" abgefangen. Was intelligenteres ist mir auf die Schnelle nicht eingefallen. Funktioniert aber erst mal. Außerdem war der Suchbereich falsch definiert. Ist auch angepasst.

Sub feiertag()
Dim iZeil As Integer
On Error Resume Next
For iZeil = 7 To 37
Sheets("Tabelle2").Cells(iZeil, 2) _
= Application.WorksheetFunction.VLookup(Sheets("Tabelle2") _
.Cells(iZeil, 1), Sheets("Feiertage").Range("A2:B22"), 2, False)
Next iZeil
End Sub


Viele Grüße Klaus-Dieter

Online-Excel

Anzeige
AW: SVERWEIS mit ISTFEHLER in VBA?
11.08.2007 18:06:52
Kasimir
Hallo Klaus Dieter,
suuuuper, danke Dir. Genau so hatte ich mir das gedacht.
Noch ein schönes Wochenende,
Kasimir

304 Forumthreads zu ähnlichen Themen

Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Anzeige
SVerweis ??? in VBA
kirsche

hallo leute,
mal wieder brauche ich eure hilfe.
ich weiß nicht, ob ich mit dem SVerweis in VBA übehaupt richtig liege. in B1 steht mein 1. suchbegriff (25) und in A3, A5 ... A25 (immer in zweierschritten) steht mein 2. suchbegriff.
nun möchte ich in tabelle "Stammdaten" zuerst die s...
08.07.2009 23:26:22
Thread-ID: 1087239
5 Beiträge
SVerweis in VBA
Stefanglander

Hallo Forum,
ich habe folgenden Code in einer Zelle:
=WENN(C4="";"";SVERWEIS(C4;Stoffplan!$A$2:$F$100;2;FALSCH))
Mag mir jamand sagen wie und wo ich das in VBA hinterlegen kann.
Danke im Vorfelde
Stefan
05.10.2009 21:11:52
Thread-ID: 1107351
11 Beiträge
Anzeige
Formel Sverweis in VBA
Marko Albrecht

Hallo,
ich hoffe mir kann bei meinem, nachfolgend beschriebenen, Problem geholfen werden.Das Problem ist , daß in der nachstehenen Formel(Wenn, Istfehler, Sverweis) VBA ein Hochkomma in die Formel schreibt und die Formel dadurch nicht Ihre Funktion erfüllt.Die Bezugszelle der Formel Sverweis...
11.04.2002 14:27:49
Thread-ID: 112467
10 Beiträge
Formel per VBA in Zelle schreiben
einfachf

Hallo Zusammen,
ich habe folgendes Problem
Vielleicht kann mir ja jemand helfen.
Ich prüfe in welcher Zelle der letzte Wert steht mit
CellCount = Cells(65536, 23).End(xlUp).Row
Nun möchte ich in sagen wir mal Cells(CellCount, 21) die Formel eintragen
Summe aus Cells(Cel...
20.02.2010 14:24:22
Thread-ID: 1139917
7 Beiträge
Sverweis mit VBA funktionier nicht richtig
F.

Hallo zusammen
Ich möchte zu einer Ziffer, welche ab dem zweiten Blatt in A1 steht, die dazugehörige Bezeichnung aus dem ersten Blatt "Konti" (Spalte B) ziehen und diese dann im Feld B1 eintragen. Irgendwas mache ich falsch.
Sub Konten_bezeichnen() Dim i As Long For i = Sheets("Konti")...
10.03.2010 14:58:20
Thread-ID: 1144879
5 Beiträge
SVerweis in VBA umsetzen
Ines

Hallo,
ich habe mir ein Userform erstellt, da ich Daten in Bezug auf das Datum in eine Tabelle eintragen muss.
Mein Problem ist, dass die Daten nicht irgendwo automatisch eingetragen werden sollen.
Ich würde gerne
im Userform 4 Textfelder ausfüllen und das Datum angeben
D...
10.03.2010 21:36:01
Thread-ID: 1145009
9 Beiträge
Formel in VBA umsetzen
Josef


Hallo!
Wie würde bitte die untenstehende Formel in VBA umgesetzt lauten?
=RUNDEN(F11*0,2;2)
F11 wäre in diesem Fall eine TextBox in einer UserForm.
Danke
Josef
15.04.2010 07:06:19
Thread-ID: 1151875
3 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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