Office: Problem bei VLookup...

Marty257 · 9. April 2007

Tach zusammen,

ich hab folgendes vor:
-> den Windows-NT-Anmeldenamen auslesen und in einer Variablen speichern
Code:

UserID = Environ("Username")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

-> zu dem erhaltenen Usernamen den passenden Namen finden, der in der Tabelle »SB-Daten« im Bereich »A1:L100« zu finden ist.
-> den passenden Namen in einer weiteren Variablen »Name« für weitere Bearbeitung zwischenspeichern
Code:

Private Sub CommandButton1_Click()

Dim ws1 As Worksheet
Set ws1 = Sheets("Tabelle1")

Dim ws2 As Worksheet
Set ws2 = Sheets("Tabelle2")

PersNr = Right(Environ("Username"), 5)

ws1.Range("a1").Value = PersNr

Emailadresse = _
WorksheetFunction.VLookup(ws1.Cells(1, 1).Value, ws2.Range("A1:L100"), 12, False)

ws1.Range("a2").Value = Emailadresse

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

SO funktioniert das. ABER ich möchte nicht unbedingt was in die Tabellen reinschreiben sondern direkt als Variable in die VLookup weitergeben, also:
Code:

WorksheetFunction.VLookup(PersNr, ws2.Range("A1:L100"), 12, False)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nur das bringt mir eine Fehlermeldung:

Laufzeitfehler '1004':
die VLookup-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was mach ich denn falsch? :-/

:)

chris-kaiser · 11. April 2007

hiho

ich tippe auf einen Typenkonflikt

versuche mal das

Emailadresse= WorksheetFunction.VLookup(Int(PersNr), ws2.Range("A1:L100"), 12, 0)

Marty257 · 11. April 2007

Da hab ich doch mal wieder den Wald vor lauter Bäumen nicht gesehen. :-(

RICHTIG! Funktioniert! :-)

Jetzt aber mal zum Hintergrundwissen:
das Int() wandelt doch die Variable in Integer, also Ganzzahl um... also quasi in einen numerischen Zahlenwert.
Ich hab das ganze mal per if und isnumeric() überprüft, da spuckte mir das ganze doch aus, dass die Zahl numerisch ist, also eine Zahl.
Wo hänge ich mich da gedanklich jetzt auf? :-/

-----------
Ich bin grade noch in meiner Lernphase was VBA angeht, also entschuldigt so manch, in euren Augen, »dumme Frage« :-)

IngGi · 11. April 2007

Hallo Marty,

mit IsNumeric() wird nicht geprüft, ob ein Ausdruck eine Zahl ist, sondern ob ein Ausdruck als Zahl interpretiert werden kann. Wenn du eine Zahl als Text in Zelle A1 speicherst ergibt die Prüfung mit IsNumeric(A1) trotzdem "True", weil der Text in der Zelle als Zahl interpretiert werden kann.

Gruß Ingolf

Marty257 · 12. April 2007

Aaaah. ok. Jetzt hab ich das verstanden. :-)

und mal so beiläufig egoistisch gefragt:
wie schaff ich das denn auf Variablenbasis, dass die Umlaute in dieser einen eben erzeugten Variable durch Selbstlaute ersetzt werden? *wink.gif*

Hab zwar über Google schöne und nachvollziehbare Code-Konstrukte gefunden, aber die basieren alle darauf, dass der Wert der Variable aus einer Zelle geholt wird.

Ich hab hierbei an »WorksheetFunction.Replace()« gedacht... Das ist doch ähnlich der Excel-Funktion »ersetzen«, oder?
Nur hab ich da dann ein Problem (auch in Excel, das entsprechend so hinzubekommen), wenn mehrere Umlaute in einem Wort vorkommen...

chris-kaiser · 12. April 2007

hiho

Code:

Option Explicit
Sub versiv()
Dim my_variable As String
my_variable = "Überlängenödem"
my_variable = tausche(my_variable)
End Sub

Function tausche(vari As String) As String
Dim uml()
Dim uml_()
Dim i As Integer
uml = Array("ä", "ü", "ö", "Ä", "Ü", "Ö")
uml_ = Array("ae", "ue", "oe", "Ae", "Ue", "Oe")
For i = 0 To UBound(uml)
If InStr(1, vari, uml(i)) > 0 Then
vari = Replace(vari, uml(i), uml_(i))
End If
Next
tausche = vari
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

so z.B
würde aber in Excel 97 nicht gehen da noch kein replace vorhanden war

das würde auch in 97 gehen

Code:

Option Explicit
Sub versiv()
Dim my_variable As String
my_variable = "Überlängenödem"
my_variable = tausche(my_variable)
End Sub

Function tausche(vari As String) As String
Dim uml()
Dim uml_()
Dim i As Integer
uml = Array("ä", "ü", "ö", "Ä", "Ü", "Ö")
uml_ = Array("ae", "ue", "oe", "Ae", "Ue", "Oe")
For i = 0 To UBound(uml)
If InStr(1, vari, uml(i)) > 0 Then
vari = WorksheetFunction.Substitute(vari, uml(i), uml_(i))
End If
Next
tausche = vari
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Marty257 · 12. April 2007

hm. bei der Version für '97 bekomm ich bei folgendem Code
Code:

Private Sub H_Übernehmen_Click()

PersNr = Right(Environ("Username"), 5)

Dim ws_terminliste As Worksheet
Dim ws_sbdaten As Worksheet
Set ws_terminliste = Sheets("Terminliste")
Set ws_sbdaten = Sheets("SB-Daten")

Sachbearbeiter = _
WorksheetFunction.VLookup(Int(PersNr), ws_sbdaten.Range("A:L"), 3, False) & " " & _
WorksheetFunction.VLookup(Int(PersNr), ws_sbdaten.Range("A:L"), 2, False)

Dim uml()
Dim uml_()
Dim i As Integer
uml = Array("ä", "ü", "ö", "Ä", "Ü", "Ö")
uml_ = Array("ae", "ue", "oe", "Ae", "Ue", "Oe")
For i = 0 To UBound(uml)
If InStr(1, Sachbearbeiter, uml(i)) > 0 Then
Sachbearbeiter = WorksheetFunction.Substitute(Sachbearbeiter, uml(i), uml_(i))
End If
Next

ws_terminliste.Range("M4").Value = Sachbearbeiter

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

...die Fehlermeldung:

Fehler beim Kompilieren:

Keine Zuweisung an Datenfeld möglich!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

...und bleibt dann bei »uml = array...« stehen.

Das hatte ich vorhin schonmal, eine ähnliche Variante hab ich mal an meine Anforderungen angeglichen.

Marty257 · 12. April 2007

Ich hab es mal so angepasst:
Code:

Private Sub H_Übernehmen_Click()

PersNr = Right(Environ("Username"), 5)

Dim ws_terminliste As Worksheet
Dim ws_sbdaten As Worksheet
Set ws_terminliste = Sheets("Terminliste")
Set ws_sbdaten = Sheets("SB-Daten")

Sachbearbeiter = _
WorksheetFunction.VLookup(Int(PersNr), ws_sbdaten.Range("A:L"), 3, False) & " " & _
WorksheetFunction.VLookup(Int(PersNr), ws_sbdaten.Range("A:L"), 2, False)

Dim Umlaut As Variant
Dim Selbstlaut As Variant
Dim i As Integer
Set Umlaut = Array("ä", "ü", "ö", "Ä", "Ü", "Ö")
Set Selbstlaut = Array("ae", "ue", "oe", "Ae", "Ue", "Oe")
For i = 0 To UBound(Umlaut)
If InStr(1, Sachbearbeiter, Umlaut(i)) > 0 Then
Sachbearbeiter = WorksheetFunction.Substitute(Sachbearbeiter, Umlaut(i), Selbstlaut(i))
End If
Next

ws_terminliste.Range("M4").Value = Sachbearbeiter

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jetzt heißt es auf einmal »Typen unverträglich«...
Muss ich den »Sachbearbeiter« jetzt noch als String deklarieren damit das funktioniert?

chris-kaiser · 12. April 2007

hiho

hmm, hier habe ich kein 97 zum Testen

Code:

Option Explicit
Sub versiv()
Dim my_variable As String
my_variable = "Überlängenödem"
my_variable = tausche(my_variable)
End Sub

Function tausche(vari As String) As String
Dim uml(5) As String
Dim uml_(5) As String
Dim i As Integer
uml(0) = "ä"
uml(1) = "ü"
uml(2) = "ö"
uml(3) = "Ä"
uml(4) = "Ü"
uml(5) = "Ö"

uml_(0) = "ae"
uml_(1) = "ue"
uml_(2) = "oe"
uml_(3) = "Ae"
uml_(4) = "Ue"
uml_(5) = "Oe"

For i = 0 To UBound(uml)
If InStr(1, vari, uml(i)) > 0 Then
vari = WorksheetFunction.Substitute(vari, uml(i), uml_(i))
End If
Next
tausche = vari
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ich denke mal so sollte es gehen
hatte ich verschwitzt das 97 noch kein Variantenarray hat

Marty257 · 15. April 2007

Man oh man... was man da alles beachten muss... :-o
Warum kann sich die Firma nicht ein neues Office leisten... das würde denk ich einiges einfacher machen *wink.gif*

Funktioniert jetzt übrigens bestens! *Smilie

Vielen Dank für deine Hilfe!!!

Office: Problem bei VLookup...

Problem bei VLookup...

Problem bei VLookup...

Problem bei VLookup...

Problem bei VLookup...

Problem bei VLookup... - Similar Threads - Problem VLookup

Outlook Problem

Problem bei Fußnote

Excel found a problem with one or more formula references in this worksheet

Zählenwenns Problem

Problem mit Seitenzahlen/Seitenbeschriftung

Data Transform, Problem with delimiter

Problem bei Excel - VBA Makro SVERWEIS funktioniert nicht!