title image


Smiley Re: SVERWEIS mit variabler Matrix
Hallo,



das wird nur mit ein wenig VBA gehen. Kopiere den nachfolgenden Quellcode in die Zieltabelle (rechte Maustaste auf Blattname und "Code anzeigen" wählen).



Anschließend musst du den Code an einigen Stellen anpassen (hierzu einfach die Kommentare lesen). So werden in meinem Beispiel lediglich die Zellen C1:C100 geprüft und ggfs. geändert.

Zum Anpassen einfach "1 to 100" und Range("C" etc ändern.







      

Sub Formelaktualisierung()

    Dim I As Long

    Dim Formel As String

    Dim Pfad As String

    Dim NeuerPfad As String

    

    On Error GoTo Fehler

    

    'In Zelle B2 steht der - noch - aktuelle Fernbezug, also zB:

    'D:\dss\[Viewer.xls]

    Pfad = Worksheets("Tabelle1").Range("B2")

    'neuer Fernbezug, also zB: 'D:\dss\Neu\[ViewerNeu.xls]

    NeuerPfad = Worksheets("Tabelle1").Range("B3")

    

    'Zeilen 1 bis 100 der Spalte C durchlaufen

    For I = 1 To 100

        'Steht in der aktuellen Zelle eine Formel ?

        If Worksheets("Tabelle1").Range("C" & I).FormulaR1C1 <> "" Then

            'Ja, Formel in VAR ablegen

            Formel = Worksheets("Tabelle1").Range("C" & I).FormulaR1C1

            'Kommt in dieser Formel der noch aktuelle Fernbezug vor ?

            If InStr(Formel, Pfad) Then

                'Ja, dann Bezüge ersetzen

                Formel = Replace(Formel, Pfad, NeuerPfad)

                'Neue Formel schreiben

                Worksheets("Tabelle1").Range("C" & I) = Formel

            End If

        End If

    Next I

    

    Exit Sub

Fehler:

    MsgBox "Es ist ein Fehler aufgetreten!", vbCritical, "Stop"

End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0







Ok, Viel Spass damit
vbarchiv.net - DIE Seite für Visual Basic

Hier gehts zu meiner Homepage

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: