Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
704to708
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
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

sverweis als makro

sverweis als makro
06.12.2005 13:39:41
Michael
Hallo alle zusammen
Mit folgender Formel übertrage ich die Daten vom Tabellenblatt (Daten) nach Tabellenblatt (Kalender)
=WENN(ISTFEHLER(SVERWEIS(C9;Daten!$E$1:$G$7;2;0));"";SVERWEIS(C9;Daten!$E$1:$G$7;2;0)) Gibt es so etwas ähnliches auch als VBA-Code? Oder ist so etwas nicht machbar.
Danke für eure hilfe
Michael

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: sverweis als makro
06.12.2005 13:47:31
Reinhard
Hi Michael,
sverweis=vlookup, Synatx identisch vom Aufbau. Schamal nach einer Datei vbalist?.xls und nach worksheetfunction in der VBA-Hilfe.
=sverweis(A1;B1:E5;3;0)
wird dann so benutzt:
on error resume next 'weil ein Fehler kommt wenn nix gefunden wird
gefundn=application.worksheetfunction.vlookup(range("A1",range("B1:E5),3,0)
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen
AW: sverweis als makro
06.12.2005 14:44:07
Michael
Hallo Reinhard
Danke für Deine Mühe. Ich habe etwas ähnliches gefunden, was mir auch wunderbar weiterhilft(ich mußte nur ein paar Daten im Arbeitsblatt ändern). Ich habe noch eine Frage. Die Suchkriterien stehen in den Spalten C/F/I/usw. bis zur Spalte AJ.
Wenn ich über mehrere Spalten suche dann kommt immer eine Fehlermeldung. Ich wollte das Modul mit For C = 3 To 36 Step 3 umändern. Ich komme aber irgendwie nicht klar.

Sub sverweis()
Dim sp As Integer
Dim C As Range, rngVlookUp As Range
For Each C In Range("C3:AJ64")
If WorksheetFunction.CountIf(Range("BA5:BC11"), C) > 0 Then
C.Offset(2, -2) = WorksheetFunction.VLookup(C, Range("BA5:BC11"), 2, 0)
End If
Next C
End Sub

Danke
Michael
Anzeige
AW: sverweis als makro
07.12.2005 02:21:45
Luc:-?
Hallo Michael,
du verwendest hier eine xl-Standardfkt, die nur in der 1.Spalte des angegebenen Bereichs sucht. Die Bedingung für den Einsatz der Fkt (CountIf) bezieht sich aber auf 3 Spalten. Da kann schon mal die 1.Spalte den VglWert nicht enthalten. Das Problem bleibt auch bei einer anderen Schleifenart bestehen! Du solltest einen direkten Zellwertvgl programmieren (ohne die WorksheetFunctions).
Gruß Luc :-?
DANKE
07.12.2005 07:29:48
Michael
Danke für den Tipp
Irgendwann werde ich das auch noch lernen Oder auch nicht
LG
Michael

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige