Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
908to912
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
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

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

Anzeige
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

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

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
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige