Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sverweis

Forumthread: Sverweis

Sverweis
18.09.2007 14:54:00
Lolie
Hallo liebe community
Habe eine kleine frage ich will einen sverweis in ein makro einfügen
in excel sieht der sverweis so aus
=SVERWEIS(A17;Vormonat!$B$2:$AQ$43;6;FALSCH)
habe jetzt schon probiert ihn umzuschreiben klappt aber nicht
Sub sverweis()
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Sheets("Tabelle1")
Set ws2 = Sheets("Vormonat")
ws1.Cells(1, 5).Value = _
WorksheetFunction.VLookup(ws1.Cells(1, 17).Value, ws2.Range("B2:AQ43"), 6, False)
es soll halt auch so sein das er ab A17 die komplette spalte runterrattert und nicht nur a17 und da den sverweis ausführt.
Liebe Grüße eure
Lolie

Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
SVERWEIS per VBA (zum 2.Mal heute ;-)
18.09.2007 15:00:00
NoNet
Hallo Lolie,
entweder Du möchtest die SVERWEIS-Funktion per VBA in die Zelle schreiben :
ws1.Cells(1,5).Formula="=VLookup(A17,Vormonat!$B$2:$AQ$43,6,FALSE)"
Oder Du möchtest das ERGEBNIS des resultierenden SVERWEIS ind die Zelle als festen Wert schreiben :
ws1.Cells(1,5).Value = Application.WorksheetFunction.Vlookup([A17],Sheets("Vormonat").[B2:AQ43],6,FALSE)

Anzeige
AW: Sverweis
18.09.2007 15:08:00
Melanie 

Sub sverweis()
Dim o As Integer
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Sheets("Tabelle1")
Set ws2 = Sheets("Vormonat")
Dim k As Integer
k = 1
For o = 1 To 121 'das Makro wird 121 mal ausgeführt, also bis zur zelle a138
Cells(k, 17).Formula = VLookup(ws1.Cells(k, 17).Value, ws2.Range("B2:AQ43"), 6, False)
End If
k = k + 1
Next o
End Sub


Anzeige
AW: Sverweis
18.09.2007 15:09:00
Melanie
habs aber nicht ausprobiert,
aber der verfahrensweg ist der richtige, du hast die schleife vergessen, wie oft und bis wann das makro ausgeführt werden soll

AW: Sverweis
18.09.2007 15:21:06
Lolie
Hey Melanie
Also habe in jetzt so eingefügt

Private Sub CommandButton5_Click()
Dim o As Integer
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Sheets("Tabelle1")
Set ws2 = Sheets("Vormonat")
Dim k As Integer
k = 1
For o = 1 To 121
Cells(2, 17).Formula = VLookup(ws1.Cells(1, 17).Value, ws2.Range("B2:AQ43"), 6, False)
End If
k = k + 1
Next o
End Sub


wenn ich das makro ausführe makiert er mir vlookup und gibt mir eine fehlermeldung "sub oder function nicht definiert.
Vielen dank schonmal
Liebe Grüße Lolie

Anzeige
AW: Sverweis
18.09.2007 15:27:00
Melanie
am besten du lädst das file (sofern es geht) hoch, dann mach ich dir das schnell.
Oder einen ausschnitzt

Sub sverweis()
Dim o As Integer
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Sheets("Tabelle1")
Set ws2 = Sheets("Vormonat")
Dim k As Integer
k = 1
For o = 1 To 121
Cells(k, 17).Formula = VLookup(ws1.Cells(k, 17).Value, ws2.Range("B2:AQ43"), 6, False)
End If
k = k + 1
Next o
End Sub


oder probier das mal
viele grüße

Anzeige
AW: Sverweis
18.09.2007 15:38:00
Lolie
wollte dir die datei hochladen habe die datei auch gezippt aber er sagt ungültiger dateiname
den dateinamen habe ich auch schon zwei mal geändert hilft aber auch nichts

AW: Sverweis
18.09.2007 15:45:14
Melanie
ich kann dir auch unsere e-mail adresse geben

AW: Sverweis
18.09.2007 15:45:58
Lolie
Das wäre auch okay

Anzeige
AW: Sverweis
18.09.2007 15:51:00
Melanie
nicht verwundern ist die adresse meines freundes
Hendryk.Klatt@t-mobile.net
Viele grüße
melly

TIP : Schau Dir meinen Lösungsvorschlag an
18.09.2007 15:34:00
NoNet
Hallo Lolie,
wenn Du Dir meinen Lösungsvorschlag mal anschaust, dann erkennst Du den Fehler sicherlich selbst :
Es muss Application.Worksheetfunction.VLookup heißen und nicht nur VLookup !
Gruß, NoNet

Anzeige
AW: TIP : Schau Dir meinen Lösungsvorschlag an
18.09.2007 18:47:00
xla
Hi,
"Es muss Application.Worksheetfunction.VLookup heißen und nicht nur VLookup !"
Muss nicht, kann!
Es reicht auch:
Worksheetfunction.VLookup
oder besser:
Application.VLookup
mfg xla
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige