Herbers Excel-Forum - das Archiv

sverweis klappt nicht

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: sverweis klappt nicht
von: Max

Geschrieben am: 29.03.2005 10:21:18
Hallo Ihr Excel(lenten),
habe ein Problem, würde mir gerne einen Zellinhalt in eine Textbox lesen mit der sverweis funktion. Habe dafür folgendes:
TextBox4.Value = worksheetfunction.VLookup (cells(2,4), worksheets("Tabelle1").Range("D5:D10000),2,false)

Leider funzt das mal überhaupt nicht. Hat da jemand Rat?
Danke
Bild

Betrifft: AW: sverweis klappt nicht
von: Hajo_Zi

Geschrieben am: 29.03.2005 10:25:56
Hallo Max
nach 10000 fehlt "
Ansonsten
With Worksheets("Tabelle1")
TextBox4.Value = WorksheetFunction.VLookup(.Cells(2, 4), .Range("D5:D10000"), 2, False)
End With

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Bild

Betrifft: AW: sverweis klappt nicht
von: Max

Geschrieben am: 29.03.2005 10:38:59
Hallo Hajo,
das klappt leider nicht so ganz, hab die " ergänzt, hat net gefunzt, so hab ich das zweite beispiel von dir ausprobiert. Kriege dann eine Fehlermeldung:
Die VLook-Eigenschaft des WorksheetFunction Objektes kann nicht zugeordnet werden

Was sagt mir das?
Danke,
Max
Bild

Betrifft: AW: sverweis klappt nicht
von: Martin Beck
Geschrieben am: 29.03.2005 10:44:20
Hallo Max,
auf den ersten Blick und ungetestet: Du gibst als Matrix Werte in einer Spalte an (D), willst dann aber den Wert aus der zweiten Spalte der Matrix zurückgeben. Das kann nicht funktionieren.
Gruß
Martin Beck
Bild

Betrifft: AW: sverweis klappt nicht
von: Max

Geschrieben am: 29.03.2005 10:51:29
Hallo Martin,
ich möchte die Zeile in Spalte D (abZeile 5) suchen, in der der Wert der Zelle D2 steht und mir dann in der Textbox den Wert in der Spalte z.B. E anzeigen lassen.

Hast du da ne Lösung?
Danke,
Max
Bild

Betrifft: AW: sverweis klappt nicht
von: Hajo_Zi

Geschrieben am: 29.03.2005 10:49:16
Hallo Max,
wenn Du die zweite Spalte auslesen willst, mußt die Matrix min. 2 Spalten breit sein.
With Worksheets("Tabelle1")
TextBox4.Value = WorksheetFunction.VLookup(.Cells(2, 4), .Range("D5:E10000"), 2, False)
End With
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
Bild

Betrifft: AW: sverweis klappt nicht
von: Max

Geschrieben am: 29.03.2005 10:55:43
Danke Hajo,
habe verstanden. Klar, kann ja nicht gehen, auch an dich vielen Dank Martin, habs jetzt!
Kann ich den Spieß danach auch umdrehen und somit beim click auf eine schaltfläche sagen: so, jetzt speicher die Änderungen in den Zellen! ???
Einfach die "Gleichung" umdrehen?
WorksheetFunction.VLookup(.Cells(2, 4), .Range("D5:e10000"), 2, False)=textbox4.value
so in etwa?
Danke
Max
Bild

Betrifft: AW: sverweis klappt nicht
von: Hajo_Zi
Geschrieben am: 29.03.2005 11:09:54
Hallo Max,
vlookup, gibt einen Wert zurück keine Adresse. Da mußt Du mit Find arbeiten.
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
Bild

Betrifft: AW: sverweis klappt nicht
von: Max
Geschrieben am: 29.03.2005 11:12:30
Hallo Hajo,
wie funktioniert das denn mit der Find Funktion? Kanst du mir da kurz helfen?
vielen Dank,
Max
Bild

Betrifft: AW: sverweis klappt nicht
von: Hajo_Zi

Geschrieben am: 29.03.2005 11:20:17
Hallo Max,
mal als Ansatz
Sub Test()
'   erstellt von Hajo.Ziplies@web.de 12.04.03
Dim Found As Range
Dim LoLetzte As Long
Dim sSearch As String
sSearch = InputBox("Suchbegriff:", , "test")
If sSearch = "" Then Exit Sub
LoLetzte = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)
Set Found = Range("A1:A" & LoLetzte).Find(sSearch, Range("A" & LoLetzte), , xlPart, , xlNext)
If Found Is Nothing Then Exit 
Sub  'falls nicht gefunden wird 
Sub verlassen
MsgBox Range(Found.Address)
End Sub

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
Bild

Betrifft: AW: sverweis klappt nicht
von: Max
Geschrieben am: 29.03.2005 11:56:28
Hallo Hajo,
komm da nicht so wirklich mit klar. Versteh das nicht so ganz. Möchte die Änderungen in den Textboxen über Knopfdruck in der Tabelle in der richtigen Zeile speichern.
Danke,
Max
Bild

Betrifft: AW: sverweis klappt nicht
von: Hajo_Zi

Geschrieben am: 29.03.2005 12:11:28
Hallo Max
Option Explicit
Private Sub CommandButton1_Click()
With Worksheets("Tabelle1")
TextBox4.Value = WorksheetFunction.VLookup(.Cells(2, 4), .Range("D5:E10000"), 2, False)
End With
End Sub
Private Sub TextBox4_AfterUpdate()
'   erstellt von Hajo.Ziplies@web.de 12.04.03, 29.03.05
Dim Found As Range
Dim LoLetzte As Long
With Worksheets("Tabelle1")
LoLetzte = IIf(IsEmpty(.Range("D65536")), .Range("D65536").End(xlUp).Row, 65536)
Set Found = .Range("D5:D" & LoLetzte).Find(.Cells(2, 4), .Range("D" & LoLetzte), , xlPart, , xlNext)
If Found Is Nothing Then Exit Sub  'falls nicht gefunden wird Sub verlassen
Range(Found.Address).Offset(0, 1) = TextBox4
End With
End Sub

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
Bild

Betrifft: AW: sverweis klappt nicht
von: Max

Geschrieben am: 29.03.2005 12:49:36
Hi Hajo,
vielen Dank,
ich denke so sollte es klappen, werde es gleich nach einer beruhigenden Dusche ausprobieren.
Bis später,
Max
Bild

Betrifft: einspaltige MATRIX!!!
von: c0bRa

Geschrieben am: 29.03.2005 12:23:25
hallo...
mach mal vlookup(cells(2,4)D5:E1000;2;false), dann sollts gehen...
schon klar dass er in einer einspaltigen matrix keine 2. spalte findet...

Rückmeldung nicht vergessen...
c0bRa
Bild

Betrifft: AW: einspaltige MATRIX!!!
von: Max

Geschrieben am: 29.03.2005 12:48:16
Hallo Cobra,
schon klar, hatten das Problem schon gefunden. War dumm von mir. Wir sind jetzt schon an meinem nächsten Problem, wozu ich gerade auch schon die Lösung bekommen habe, aber noch nicht probiert.
Grüße,
Max
 Bild
Excel-Beispiele zum Thema "sverweis klappt nicht"
SVERWEIS auf geschlossene Arbeitsmappe aus Makro aufrufen Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche
Arbeitszeittabelle und SVERWEIS-Formel Zugriff über SVERWEIS() auf eine Artikelliste
SVERWEIS-Formel über mehrere Fundstellen SVERWEIS-, WVERWEIS- und Matrixformel-Beispiele
SVERWEIS, WVERWEIS, INDEX, VERGLEICH und Zielwertsuche Zweidimensionale Matrix mit der SVERWEIS-Funktion durchsuchen
Hyperlinks zu SVERWEIS-Bezugstabellen anlegen SVERWEIS als Ereignisprozedur