Thema Datum  Von Nutzer Rating
Antwort
18.05.2011 22:20:33 TheQuest
NotSolved
18.05.2011 22:55:38 Till
NotSolved
18.05.2011 23:18:49 TheQuest
NotSolved
19.05.2011 18:41:06 Till
NotSolved
20.05.2011 22:07:22 TheQuest
NotSolved
Blau WorksheetFunction.VLookup + For Each = Problem!
 24.05.2011 00:21:29 Till
NotSolved
24.05.2011 17:56:07 TheQuest
NotSolved
25.05.2011 00:46:38 Till
NotSolved

Ansicht des Beitrags:
Von:
Till		 Datum:
24.05.2011 00:21:29		 Views:
936		 Rating:
     
Antwort:
  Ja
Thema:
WorksheetFunction.VLookup + For Each = Problem!

Bekomm mit der Funktion auch nur Fehler. Bau doch einfach eine eigene Funktion. Z.B. so:

Private Function SSVERWEIS( _
ByRef Suchkriterium As String, _
ByVal Matrix As Range, _
ByVal Spaltenindex%)
Application.Volatile    'Formel soll sich aktualisieren

    'variablen
        Dim sRange As Variant
        Dim ws As Worksheet
        Dim sResult As Variant
        Dim R&, C%
        
    'funktion
        For Each ws In Worksheets
            If ws.Index <> 1 Then   'SuperSVERWEIS ab dem 2. Tabellenblatt
            sRange = ws.Range(Matrix.Address)
                    
                For R = 1 To UBound(sRange)
                    For C = 1 To UBound(sRange, 2)
                        If sRange(R, C) = Suchkriterium Then
                            
                            SSVERWEIS = sRange(R, Spaltenindex)
                            Exit Function
                            
                        End If
                    Next
                Next
                
            End If
        Next
         
End Function

Die Laufzeit müsste kurz genug sein und du hast noch die Möglichkeit die Funktion nach deinen Wünschen zu erweitern. Bereich Verweis benutzt du ja in deiner Funktion eh nicht.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.05.2011 22:20:33 TheQuest
NotSolved
18.05.2011 22:55:38 Till
NotSolved
18.05.2011 23:18:49 TheQuest
NotSolved
19.05.2011 18:41:06 Till
NotSolved
20.05.2011 22:07:22 TheQuest
NotSolved
Blau WorksheetFunction.VLookup + For Each = Problem!
 24.05.2011 00:21:29 Till
NotSolved
24.05.2011 17:56:07 TheQuest
NotSolved
25.05.2011 00:46:38 Till
NotSolved