Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1540to1544
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
1540to1544
1540to1544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VLookup andere VBA Schreibweise

VLookup andere VBA Schreibweise
07.02.2017 15:41:15
Nilo
Moin zusammen,
gibt es für nachstehende Formel eine andere Schreibweise bei gleicher
Funktion?
With ActiveSheet
[I18:I527] = WorksheetFunction.VLookup([I18:I527], Sheets("Liste").[A2:K600], 11, False)
On Error Resume Next 'falls mal keine Fehler sind
[I18:I527].SpecialCells(xlCellTypeConstants, 16).ClearContents
On Error GoTo 0
End With
Besten Dank schon mal und Gruß
Nilo

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VLookup andere VBA Schreibweise
07.02.2017 15:56:30
Daniel
Hi
das schreibt man normalerweise so_:
dim arr
dim Zelle as range
dim z as Long
arr = Range("I18:I527")
for z = 1 to ubound(arr, 1)
set Zelle Sheets("Liste").Range("A2:A600").Find(what:=arr(z, 1), lookat:=xlwhole)
if Zelle is nothing then
arr(z, 1) = ""
else
arr(z, 1) = Zelle.Offset(0, 10).value
end if
next
Range("I18:I527").Value = arr
man könnte es auch so schreiben: 
With Range("I18:I527").Offset(0, 100)
.FormulaR1C1 = "=IfError(RC[-100],Liste!R2C1:R600C11,11,False),"""")
.copy
.Offset(0, -100).PasteSpecial xlpastevalues
.ClearContents
End with

statt der 100 kannst du auch einen anderen Versatzwert nehmen, du darfst dir nur deine Bestehende Tabelle nicht überschreiben.
Gruß Daniel
Anzeige
AW: VLookup andere VBA Schreibweise
07.02.2017 16:10:15
Nilo
Cool, Danke !
Was meinst Du mir "normalerweise"
Gibt mit meiner Schreibweise sonst Compiler Probleme ?
Danke und Gruß
Nilo
AW: VLookup andere VBA Schreibweise
07.02.2017 17:06:34
Daniel
HI
nö, aber diese Schreibweise ist langsamer und es schwieriger, die verwendeten Zellbereiche über Variablen zu flexibilisiern.
Gruß Daniel

300 Forumthreads zu ähnlichen Themen

VLOOKUP nicht vorhandene Datei
chrdohmen

Hallo Zusammen,
habe ein kleines Problem beim Erstellen eines VLOOKUP mittels VBA.
Hintergrund: Ich habe in einer Jahresdatei zwölf Spalten Jan. bis Dez.. Jeder Monat soll mittels SVERWEIS auf eine Monatsdatei zugreifen. Den benötigten SVERWEIS habe ich, dieser funktioniert auch einwan...
29.09.2008 08:18:20
Thread-ID: 1013017
2 Beiträge
Anzeige
Vlookup anpassung
Karel

Hallo Forum,
versuchen vergeblich diesese Makro anzupassen, habe ich leztze Woche von Reinhardt erhalten und Funktioniert auch einwandfrei, aber wass muss ich machen wenn Suchwert nicht im Spalte D aber in Spalte E steht. Klick X bleibt im Spalte C
Code:
Option Explicit
Private...
01.11.2008 17:44:09
Thread-ID: 1021046
8 Beiträge
Vlookup
WOP

Hallo alle Zusammen,
ich habe ein Problem mit Vlookup.
In meinem Makro werden die Daten aus allen Worksheet ausgelesen. Falls kein Wert über Vlookup gefunden werden sollte, wird der Wert des vorherigen Excel-Sheets kopiert. (ohne, dass ich dies will)
Noch ein Kleines Bsp.
Suchwe...
01.12.2008 20:47:00
Thread-ID: 1029353
7 Beiträge
Anzeige
vlookup
Timmy

Hallo Freune des Excel-Sports;-)
ich habe folgende Frage!
Ich habe eine Datei mit ca. 40000 Artikelnummern und habe fuer die Beschreibung ein "vlookup" gestartet. Excel holte sich die zugehoerige Artikelbeschreibung dann aus einer Datei in einem anderen Ordner.
Das klappt auch, jedo...
29.01.2009 14:23:39
Thread-ID: 1045014
5 Beiträge
Namen ersetzen und vlookup
Timmy

Liebe Excler,
anbei habe ich eine Datei angehaengt. Diese wird mein Problem verdeutlichen:
https://www.herber.de/bbs/user/59734.xls
Vielen Dank fuer eure Muehen!!
Viele Gruesse
Timmy
24.02.2009 15:46:51
Thread-ID: 1053566
3 Beiträge
Vlookup mit benanntem Bereich
BorisHendrik

Hallo,
ich suche schon den ganzen Morgen für ein Problem, bei dem mir vielleicht / hoffentlich einer von Euch helfen kann.
Es geht um eine Vlookup / SVerweis Formel, als TableArray / Matrix möchte ich eine benannten Bereich verwenden. Also so:
=sverweis(a1; MeinBereich; 2; 0)
Im...
26.02.2009 13:51:31
Thread-ID: 1054369
3 Beiträge
Formel zurueckgeben mit Vlookup
Thomas

Hallo,
ich habe ein kleines Problem mit Vlookup.
Und zwar moechte ich gerne anstelle des Werts in der Zelle die Formel die in der Zelle steht zurueckgeben lassen. Wie ist das moeglich?
Mein aktueller Code sieht so aus:
For Each wks In ActiveWorkbook.Worksheets
If wks.Name =...
23.03.2009 03:37:48
Thread-ID: 1062759
5 Beiträge
VLookup wird nicht erkannt
Werner

VBA-Level: befriedigend
Hallo Freunde,
bei folgender CodeZeile bekomme ich immer eine Fehlermeldung (es soll der Wert in Spalte 5 des
Worksheets "BeispielSheet" ermittelt werden, wenn in Spalte A dessen Wert numerisch "1900"
betraegt.) Excel teilt mit, dass es "VLookUp" nicht ke...
02.04.2009 09:22:02
Thread-ID: 1066196
5 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
9
7
6
2
4
2
2
4
4
1
16
16
2
5
2
2
7
3
3
4
5
5
7
2