Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
852to856
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
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

worksheet.function

worksheet.function
07.03.2007 15:23:08
georg
Hallo Excel-Welt,
ich habe bislang mit ff. Code die Formel direkt in die Zelle geschrieben.
ActiveCell.FormulaR1C1 = "=VLOOKUP(R11C,Tab1!R1C1:R20C10,4,)"
Jetzt will ich den Code umbauen und die Formel im Code lassen und nur das Ergebniss in die Zelle schreiben.
Selection.Value = Application.WorksheetFunction.VLOOKUP(R11C,Tab1!R1C1:R20C10,4,)
Ergebnis: diese Fehlermeldung sobald ich aus der Zeile herausklicke:
Fehler beim Kompilieren:
Erwartetes Listentrennzeichen oder )
und im Code ist der Doppelpunkt im Quellbereich markiert.
Dabei habe ich den Code doch exakt aus dem vorherigen Code übernommen?!?
:-0
Was mach ich falsch?
Gruß
Georg

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: worksheet.function
07.03.2007 16:07:15
Erich
Hallo Georg,
in VBA nutzt du VLOOKUP als Funktion wie andere VBA-Funktionen.
Der erste Parameter der Funktion ist ein Wert oder ein Bereich (eine Zelle),
also etwa Cells(11,1).value oder Cells(11,1)
Der zweite Parameter von Vlookup ist ein Bereich,
als z. B. Range("Tab1!A1:J20")
Du könntest also z. B. schreiben 
   Selection = Application.WorksheetFunction.VLookup(Cells(11, 1).Value, _
Range("Tab1!A1:J20"), 4, False)
'oder
Dim rng As Range
Set rng = Sheets("Tab1").Range("A1:J20")
Selection = Application.WorksheetFunction.VLookup(Cells(11, 1), rng, 4, False)
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: worksheet.function
07.03.2007 16:47:21
georg
Hallo Erich,
vielen Dank ! Damit kriege ich es bestimmt hin.
Überhaupt auch einen generellen dank an Dich - Du hast mir schon oft geholfen!
Gruß
Georg

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige