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
1788to1792
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
1788to1792
1788to1792
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sverweis in VBA Userform

Sverweis in VBA Userform
06.11.2020 16:17:30
Excelaner
Hi liebes Forum,
habe ein Userform erstellt, das eigentlich korrekt funktioniert.
Man kann entweder eine Mitglieds Nr. (txtMitglied) eintragen oder bei Nichtmitgliedern trägt man den Namen (txtName) und Vornamen (txtVorname) ein.
Jetzt möchte ich, dass wenn man eine Mitglieds Nr. einträgt, in den Textboxen txtName und txtVorname über SVerweis die korrekten Daten automatisch angezeigt werden, damit man gleich sieht, ob man die richtige Nummer eingetragen hat, und nicht erst nachdem speichern. Die Daten für die Mitglieder sind im Worksheet "Mitglieder" gespeichert.
Dafür habe ich folgendes geschrieben:

Private Sub txtMitglied_AfterUpdate()
Me.txtName.Value = WorksheetFunction.VLookup(Me.txtMitglied.Value, Worksheets("Mitglieder"). _
Range("A2:C2300"), 3, False)
End Sub

Folgender Fehler kommt dann:
Laufzeitfehler '1004':
Die VLookup-Eigentschaft des WorksheeFunction-Objektes kann nicht zugeordnet werden.
Was mache ich falsch?
Danke euch für eure Hilfe!

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sverweis in VBA Userform
06.11.2020 16:25:43
Daniel
HI
eine mögliche Fehlerursachen wäre, dass der text aus der Spalte txtMitglied nicht in der Spalte A des Worksheets vorhanden ist.
das kann daran liegen, dass in TextBoxen immer Text steht und die Mitgliedsnummer in der Liste als Zahl eingetragen ist. Das ist für den SVerweis/LookUp ein unterschied.
ggf probiers mal so, das Cstr mit Application.VLookUP vermeidet den Abbruch des codes, das VAL wandelt den Text in eine Zahl, so dass der VLoopUp suchen kann:
Me.txtName.Value = CStr(Application.VLookup(Val(Me.txtMitglied.Value), Worksheets("Mitglieder"). _
Range("A2:C2300"), 3, False))
Gruß Daniel
Anzeige
AW: Sverweis in VBA Userform
06.11.2020 16:49:06
Excelaner
vielen lieben Dank! Das hat funktionier!! Danke dir!!
Gibt es jetzt irgendwie die Möglichkeit, dass wenn man eine MitgliedsNr einträgt und der Nachname hat sich z.B. geändert und ich überschreibe dieses Feld (txtName) manuell, dass diese dann in der Mitgliederliste auch automatisch korrigiert wird?
AW: Sverweis in VBA Userform
06.11.2020 17:03:03
Daniel
Hi
dazu müsstest du die Zeilennummer der Fundstelle mit .FiND oder Application.Match (entspricht VERGLEICH) und dann nicht den Namen in die TextBox schreiben, sondern die TextBox mit Zelle in der gefundenen Zeile verknüpfen, die den Namen enthält.
das Verknüpfen macht man, in dem man die Zelladresse der Zelle in die Eigenschaft ControlSource einträgt (am besten mit Tabellenblatt davor in der Form: 'Tabelle1!A1')
dann sind TextBox und Zelle verbunden, dh der Zellinhalt wird in der TextBox angezeigt und jede Änderung wird aus der Box in die Zelle übertragen sobald du die Box verlässt.
Programmieren musst du dann nichts.
Gruß Daniel
Anzeige
AW: Sverweis in VBA Userform
06.11.2020 17:25:08
Excelaner
Oookay krass :)
Hast du mir hierfür vielleicht den Code, wie es aussehen müsste? Bin dann doch nicht so weit, leider :(
AW: Sverweis in VBA Userform
06.11.2020 17:57:22
Daniel
HI
in etwa so (bitte nicht kopieren sondern lesen, verstehen, selber schreiben): 
dim x as variant
x = Application.Match(val(textboxMitglied), Sheets("TabelleX").Range("A:A"), 0)
if vartype(x)  vberror then
TextboxName.ControlSource = "'TabelleX'!B" & x
else
TextboxName.ControlSource = ""
end if
Gruß Daniel
AW: Sverweis in VBA Userform
08.11.2020 07:36:44
Excelaner
Hi Daniel,
komisch, mein letzter Eintrag wurde nicht veröffentlicht. Der Code funktioniert perfekt, VIELEN DANK!!!!
Hab aber ein Problem mit dem leeren des Boxes. Normalerweise leere ich die Eingabefelder nach dem Speichern mit
Me.txtName.Value = ""
wenn ich das jedoch hier mache, dann löscht es den Eintrag "Name" in dem Sheet Mitglieder, was ja logisch ist, da wir die Verknüpfung geschaffen haben. Das heißt, nach dem Speichern ist der Name der vorherigen MitgliederNr so lange drin, bis ich eine neue Nr. eingetragen habe.
Ist zwar jetzt kein Weltuntergang, aber auch nicht wirklich schön. Gibt es dafür auch eine Lösung, ich habs leider nicht hinbekommen. Also mir gehts nur darum, dass nach dem Speichern alle Textboxen wieder geleert werden.
Und noch was, manchmal nutze ich meinen Surface im Touchmodus, ich krieg es zwar hin, dass sich die uralte Bildschirmtastatur :) von Microsoft öffnet sobald ich auf ein Textbox klicke, aber nicht die Surface Touchtastatur, die sich auch sonst immer öffnet, wenn man etwas eingeben möchte.
Gibt es dafür auch Abhilfe?
Danke dir im Voraus :)
Anzeige
AW: Sverweis in VBA Userform
08.11.2020 11:40:54
Daniel
Hi
Lösche im gezeigten Code nicht nur due Verbindung zur Zelle, sondern danach auch den Inhalt der Textbox.
Lösche beim Leeren zuerst due Box mit der Mitgliedsnummer.
Gruß Daniel
AW: Sverweis in VBA Userform
11.11.2020 23:48:28
Excelaner
Danke Daniel für deine Hilfe!
AW: Sverweis in VBA Userform
12.11.2020 05:31:25
Hajo_Zi
offen bedeutet es soll noch eine Antwort kommen.
Warum ist dein Beitrag Offen.
Du willst doch was machen. Soll jemand vorbei kommen?
Das ist nur meine Meinung zu dem Thema.

306 Forumthreads zu ähnlichen Themen

Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Anzeige
SVerweis ??? in VBA
kirsche

hallo leute,
mal wieder brauche ich eure hilfe.
ich weiß nicht, ob ich mit dem SVerweis in VBA übehaupt richtig liege. in B1 steht mein 1. suchbegriff (25) und in A3, A5 ... A25 (immer in zweierschritten) steht mein 2. suchbegriff.
nun möchte ich in tabelle "Stammdaten" zuerst die s...
08.07.2009 23:26:22
Thread-ID: 1087239
5 Beiträge
SVerweis in VBA
Stefanglander

Hallo Forum,
ich habe folgenden Code in einer Zelle:
=WENN(C4="";"";SVERWEIS(C4;Stoffplan!$A$2:$F$100;2;FALSCH))
Mag mir jamand sagen wie und wo ich das in VBA hinterlegen kann.
Danke im Vorfelde
Stefan
05.10.2009 21:11:52
Thread-ID: 1107351
11 Beiträge
Anzeige
Formel Sverweis in VBA
Marko Albrecht

Hallo,
ich hoffe mir kann bei meinem, nachfolgend beschriebenen, Problem geholfen werden.Das Problem ist , daß in der nachstehenen Formel(Wenn, Istfehler, Sverweis) VBA ein Hochkomma in die Formel schreibt und die Formel dadurch nicht Ihre Funktion erfüllt.Die Bezugszelle der Formel Sverweis...
11.04.2002 14:27:49
Thread-ID: 112467
10 Beiträge
Formel per VBA in Zelle schreiben
einfachf

Hallo Zusammen,
ich habe folgendes Problem
Vielleicht kann mir ja jemand helfen.
Ich prüfe in welcher Zelle der letzte Wert steht mit
CellCount = Cells(65536, 23).End(xlUp).Row
Nun möchte ich in sagen wir mal Cells(CellCount, 21) die Formel eintragen
Summe aus Cells(Cel...
20.02.2010 14:24:22
Thread-ID: 1139917
7 Beiträge
Sverweis mit VBA funktionier nicht richtig
F.

Hallo zusammen
Ich möchte zu einer Ziffer, welche ab dem zweiten Blatt in A1 steht, die dazugehörige Bezeichnung aus dem ersten Blatt "Konti" (Spalte B) ziehen und diese dann im Feld B1 eintragen. Irgendwas mache ich falsch.
Sub Konten_bezeichnen() Dim i As Long For i = Sheets("Konti")...
10.03.2010 14:58:20
Thread-ID: 1144879
5 Beiträge
SVerweis in VBA umsetzen
Ines

Hallo,
ich habe mir ein Userform erstellt, da ich Daten in Bezug auf das Datum in eine Tabelle eintragen muss.
Mein Problem ist, dass die Daten nicht irgendwo automatisch eingetragen werden sollen.
Ich würde gerne
im Userform 4 Textfelder ausfüllen und das Datum angeben
D...
10.03.2010 21:36:01
Thread-ID: 1145009
9 Beiträge
Formel in VBA umsetzen
Josef


Hallo!
Wie würde bitte die untenstehende Formel in VBA umgesetzt lauten?
=RUNDEN(F11*0,2;2)
F11 wäre in diesem Fall eine TextBox in einer UserForm.
Danke
Josef
15.04.2010 07:06:19
Thread-ID: 1151875
3 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

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
5
2
4
10
13
9
6
4
8
2
1
5
4
2
2
8
3
4
6
6
5
13
1
4
6