Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
296to300
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
296to300
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ISTNV mit VBA

ISTNV mit VBA
22.08.2003 22:20:26
Ernst Dunkel
Guten Abend Forum
Ich komme nicht weiter.
Mittels VBA füge ich den untenstehenden Befehl ein.
=WENN(ISTNV(SVERWEIS(B:B;Tabelle2!B1:D18;2;0));"";SVERWEIS(B:B;Tabelle2!B1:D18;2;0))
Wenn man den Befehl in Excel manuell eingibt funktioniert der Befehl.
Wenn ich ihn per VBA einfüge funktioniert er nicht!
Könnte mir jemand behilflich sein?
Mit freundlichen Grüssen Ernst Dunkel

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

Betreff
Datum
Anwender
Anzeige
AW: ISTNV mit VBA
22.08.2003 22:32:55
PeterW
Hallo Ernst,
was meinst du mit "funktioniert nicht"? Gibt es eine Fehlermeldung und wenn ja welche? Wie fügst du den Befehl per VBA ein, FormulaLocal? Zeig doch mal den Code.
Gruß
Peter

AW: ISTNV mit VBA
22.08.2003 23:03:33
Ernst Dunkel
Halllo Peter danke für Dein Interesse an meinem Problem
Fehler Meldung „Anwendungs- oder objkektdef. Fehler“
Ich habe nun ein kleiner Teil des VBA-Codes nachgebaut.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Cells(Target.Row, 3).FormulaLocal = "=SVERWEIS(B:B;Tabelle2!B1:D18;2;0)" 'Ausgangslage
Cells(Target.Row, 3).FormulaLocal = "=WENN(ISTNV(SVERWEIS(B:B;Tabelle2!B1:D18;2;0));"";SVERWEIS(B:B;Tabelle2!B1:D18;2;0))" 'Erweitert
End Sub


Anzeige
AW: ISTNV mit VBA
22.08.2003 23:12:15
PeterW
Hallo Ernst,
das Problem sind die zwei Anführungszeichen. Versuch es mal so:
Cells(Target.Row, 3).FormulaLocal = "=WENN(ISTNV(SVERWEIS(B:B;Tabelle2!B1:D18;2;0));" & Chr(34) & Chr(34) & ";SVERWEIS(B:B;Tabelle2!B1:D18;2;0))" 'Erweitert
Gruß
Peter

AW: ISTNV mit VBA
22.08.2003 23:19:25
Ernst Dunkel
Hallo Peter
Deine Ergänzungen sind supper! Vilen Dank.
Gruss Ernst Dunkel
Habe den Code gemäss K.Rola noch mit dem Makrorecorder aufgezeichnet.

ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(C[-1],Tabelle2!R[-1]C[-1]:R[16]C[1],2,0)),"""",VLOOKUP(C[-1],Tabelle2!R[-1]C[-1]:R[16]C[1],2,0))"
Range("C3").Select

Anzeige
AW: ISTNV mit VBA
22.08.2003 22:39:30
K.Rola
Hallo,
schreib die Formel/Funktion in eine Zelle, markiere diese,
starte den Makrorekorder, drück F2, beende die Aufzeichnung.
Gruß K.Rola

AW: ISTNV mit VBA
22.08.2003 23:14:30
Ernst Dunkel
Guten Abend Rola
Danke für den Hinweis. Habe es gemacht und mir den Makrocode angeschaut. Ich habe nun gesehen was falsch ist.
Gruss Ernst Dunkel

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige