Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 14:18:05
Einfügen ohne Select
28.04.2024 14:00:34
Formel fehler in der Berechnung?
28.04.2024 13:43:14
Uhrzeit-Angabe
28.04.2024 11:30:20
Pivot Balken und Kreisdiagram Darstellung /Beschriftung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1780to1784
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
1780to1784
1780to1784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

sverweis mit variablem Tabellennamen

sverweis mit variablem Tabellennamen
15.09.2020 09:55:48
Werner
Hallo,
als Neuling in VBA für Excel suche ich Hilfe.
Eine Funktion soll
- aus dem aktuellen Tabellenblatt in Zelle A3 auslesen -- funktioniert
- dann mit dem erhaltenen Wert mit sverweis aus dem Tabellenblatt "Variablen" den entsprechenden Inhalt auslesen -- funktioniert nicht syntax error
so habe ich das gemacht:

Function StdLohn()
Dim JahrMonat As String
Dim LeseTabelle As String
JahrMonat = ActiveSheet.Range("A3")
LeseTabelle = "Variablen"
StdLohn=sverweis(JahrMonat;Lesetabelle!A4:A24;2;FALSCH)
Debug.Print "JahrMonat:  " & JahrMonat
Debug.Print "Lesetabelle:" & LeseTabelle
Debug.Print "Stundenlohn:" & StdLohn
End Function

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

Betreff
Datum
Anwender
Anzeige
AW: sverweis mit variablem Tabellennamen
15.09.2020 11:54:57
Yal 

Function StdLohn()
'** Variablen
Dim JahrMonat As String
Dim LeseTabelle As String
dim StdLohn
'** Initialisierung
JahrMonat = ActiveSheet.Range("A3")
LeseTabelle = "Variablen"
'** Behandlung
StdLohn = Application.WorksheetFunction.Lookup(JahrMonat, Range(LeseTabelle & "!A4:A24"), 2, _
False)
'** Ausgabe
Debug.Print "JahrMonat:  " & JahrMonat
Debug.Print "Lesetabelle:" & LeseTabelle
Debug.Print "Stundenlohn:" & StdLohn
End Function
Viel Erfolg
Yal
AW: sverweis mit variablem Tabellennamen
15.09.2020 12:09:21
Werner
Vielen Dank für die Hilfe.
Leider funktioniert es so nicht. Die Fehlermeldung sagt: "Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft".
.Lookup ist dabei markiert.
Anzeige
AW: sverweis mit variablem Tabellennamen
15.09.2020 12:20:24
Werner
Oh, hatte vergessen die Variable StdLohn zu deklarieren.
Wenn ich das tue erhalte ich die Fehlermeldung:
Fehler beim Kompilieren, Mehrdeutiger Name: StdLohn
AW: sverweis mit variablem Tabellennamen
15.09.2020 13:12:16
Daniel
HI
deine Funktion heißt "StdLohn".
damit enthält sie automatisch eine Variable gleichen Namens für den Rückgabewert.
"StrLohn" kann und darf nicht zusätzlich deklariert werden.
Gruß Daniel
AW: sverweis mit variablem Tabellennamen
15.09.2020 14:01:08
Werner
Daniel, vielen Dank. Das eine Variable nicht zweimal deklariert werden kann, war mir eigentlich klar. Aber ich hab's trotzdem versucht. Ohne die Deklaration taucht wieder der erstgenannte Fehler auf.
Wäre dankbar für weitere Hilfe.
Anzeige
AW: sverweis mit variablem Tabellennamen
15.09.2020 14:24:38
Daniel
Hi
naja, du solltest schon wissen, welche Funktion du da verwendest.
LookUp oder VLookUp, bzw in Deutsch Verweis oder SVerweis.
dein Fehler ist, dass du LookUp als Funktion verwendest, aber die Parameter so angibst, wie es für den VLookUp erforderlich wäre.
also entweder die Funktion umbenennen oder die Parameter anpassen.
Gruß Daniel
AW: sverweis mit variablem Tabellennamen
15.09.2020 18:02:37
Werner
Hi Daniel,
Deine Antwort hilft mir leider nicht wirklich. Meine Intension war, mit sverweis zu arbeiten. Das habe ich nicht hinbekommen. Dann erhielt ich den Tipp mit Lookup (s.o.). Das klappt nun auch nicht.
Vielleicht kann mir jemand die Funktion so umstellen, dass sie funktioniert.
Das wäre prima.
Anzeige
War mein Fehler. VLookUp ist richtig. owT
16.09.2020 14:04:42
Yal
.
AW: War mein Fehler. VLookUp ist richtig. owT
16.09.2020 14:40:06
Werner
Hallo Yal,
leider funktioniert es auch nicht mit VLookup.
Laufzeitfehler 1004: Die Vlookup-Eigenschaften des WorksheetFunction-Objekt kann nicht zugeordnet werden.
Die Funktion sieht nun so aus (ich habe nur StdLohn in NStdLohn geändert, da StdLohn schon im Tabellenblatt verwendet wurde, hat aber auch nichts verbessert):
Function NStdLohn()
'** Variablen
Dim JahrMonat As String     'Aus aktivem Tabellenblatt Zelle A3)
Dim LeseTabelle As String
'Dim NStdLohn As String     'geht nicht, sonst doppelte Deklaration
'** Initialisierung
JahrMonat = ActiveSheet.Range("A3")
LeseTabelle = "Variablen"
'** Behandlung
NStdLohn = Application.WorksheetFunction.VLookup(JahrMonat, Range(LeseTabelle & "!A4:A24"),  _
2, False)
'** Ausgabe
Debug.Print "JahrMonat:  " & JahrMonat
Debug.Print "Lesetabelle:" & LeseTabelle
Debug.Print "Stundenlohn:" & NStdLohn & "€"
End Function

Anzeige
AW: War mein Fehler. VLookUp ist richtig. owT
16.09.2020 15:10:06
peterk
Hallo
Probier mal (Ergebnis wird aus der 2 Spalte geholt, also B)

Function StdLohn()
'** Variablen
Dim JahrMonat As String     'Aus aktivem Tabellenblatt Zelle A3)
Dim LeseTabelle As String
Dim NStdLohn As String
'** Initialisierung
JahrMonat = ActiveSheet.Range("A3")
LeseTabelle = "Variablen"
'** Behandlung
NStdLohn = Application.VLookup(JahrMonat,Worksheets(LeseTabelle).Range("A4:B24"),2, False)
'** Ausgabe
Debug.Print "JahrMonat:  " & JahrMonat
Debug.Print "Lesetabelle:" & LeseTabelle
Debug.Print "Stundenlohn:" & NStdLohn & "€"
End Function

Anzeige
AW: War mein Fehler. VLookUp ist richtig. owT
16.09.2020 15:19:05
Werner
Hallo PeterK,
Vielen Dank für den Tipp. Funktioniert leider auch nicht, gleiche Fehlermeldung.

307 Forumthreads zu ähnlichen Themen

Schleife nächste Zelle +1
Michael

Hallo!
Wie schaff ich es in die letzte zelle zu gehen und den wert + 1 in die nächste zelle zu schreiben,
Muss ich dann mit offset arbeiten?
Mein Code!
Gruß Michael
Sub zeileLetztePlusEins() Dim zeile As Integer Dim zeileMax As Integer Dim WertZeile As Long With Sheets("...
02.02.2009 09:39:26
Thread-ID: 1046079
7 Beiträge
Anzeige
Verweis auf andere Tabelle mit Variable
Ralf

Hallo zusammen,
ich benötige Hilfe.
Ich habe eine Übersichtsdatei in der
='G:\Werkstatt\Kunde Ordner\[Kalkulation 11.xls]Deckblatt'!$AA$53
immer wieder in ähnlicherweise vorkommt.
Ich möchte es mir vereinfachen und z.B. in Zelle A3 "Kalkulation 11" schreiben.
Und dann f...
25.03.2009 14:48:52
Thread-ID: 1063809
4 Beiträge
sverweis mit variable auf externe datei
Joni

Hi,
ich suche eine Lösung um mittels sverweis aus anderen Dateien/Tabellen Werte auszulösen. Die Schwierigkeit liegt darin, dass der Dateiname aus einer Zelle ausgelesen werden soll (der Pfad ist immer der gleiche). Die andere Datei ist nicht geöffnet und sollte dies wenn möglich auch nicht...
09.06.2009 23:34:03
Thread-ID: 1080301
4 Beiträge
Anzeige
SVerweis mit variablem Spaltenindexergebnis
Dirk

Hallo zusammen,
ich habe folgendes Problem:
Ich habe zwei Tabellen; in der einen stehen Namen und ein Suchkriterium und in der anderen sollen die Namen, die neben dem Suchkriterium aufgelistet sind übertragen werden.
Beispiel:
Spalte A_______Spalte B
__P1__________Müller
...
25.08.2009 10:38:59
Thread-ID: 1098346
5 Beiträge
Tabellenblätter um 1 erhöhen bzw. hochzählen
Mike

Hallo zusammen.
Ich hatte vor länger Zeit schon einmal angefragt...
www.herber.de/forum/archiv/1076to1080/t1076338.htm
...jedoch bis heute leider keinerlei Hilfe erhalten.
Bitte, kann mir keiner helfen? Ich bräuchte dringend Hilfe!
Vielen Dank im Voraus.
Gruß Mike
21.10.2009 23:47:21
Thread-ID: 1111214
3 Beiträge
Autofilter: 1 Kriterium für 2 Spalten
Stefan

Guten Morgen,
kann mir jemand bei folgender Frage helfen ?
Ich habe 2 Spalten, die mit Werten gefüllt sind. Nun habe ich mit dem Textfeld aus der Steuerelemente-Toolbox ein Suchfeld erschaffen. Sobald hier ein Suchbegriff eingegeben wird, sollen die beiden Spalten durchsucht und die Erg...
22.10.2009 10:51:27
Thread-ID: 1111254
5 Beiträge
Wert in Zelle um 1 erhöhen
Daniel

Hallo,
kann mir jemand sagen wie der VBA Code aussehen muss für folgendes Problem?!
Also ich habe in Zelle sagen wir B200 einen Wert von 100. Nun möchte ich das per Makro bei Zelle B201 mit dem Wert 1 angefangen wird und in den darunterliegenden Zellen jeweils um 1 erhöht wird, also 1,2...
26.10.2009 12:35:35
Thread-ID: 1112187
12 Beiträge
Letzte belegte Zelle + 1
Walter

Hallo zusammen,
habe mal diese Makrozeilen erhalten.
Dim rngFind As Range
Set rngFind = Sheets("Haus").Columns(4).Find(What:="Whg1")
ActiveSheet.Cells(rngFind.Row, 1).Select
Ich möchte das jetzt ändern, komm leider nicht drauf auf such die letzte belegte Zelle
+ 1 d...
03.03.2010 15:26:55
Thread-ID: 1143032
3 Beiträge
Anzeige

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
6
3
3
3
4
4
2
4
11
2
6
7
5
2
6
2
5
5
1
3
6
15
2
16
1