Supportnet / Forum / Tabellenkalkulation
Vergleich von Zellen in verschiedenen Excel Dateien
Frage
Hallo, folgendes Problem:
In einer Excel-DAtei stehen z.B. in Spalte C Werte ( als String). Nun Möchte ich in einer Anderen Datei Schauen, ob dort in Spalte L der selbe Wert steht. Wenn das der Fall ist soll dorthin ein Hyperlink erstellt werden.
Ich nehme also den wert aus C3, schaue ob in dem anderen Excel-File irgendwo in Spalte L dieser Wert auch steht. Wenn ja Hyperlink, wenn nicht-nix. Das Ganze für alle Werte des ersten Files der Spalte C.
Vielen Dank für die Hilfe.
Antwort 1 von Saarbauer
Hallo,
ist nur mit VBA zu lösen.
Gruß
Helmut
ist nur mit VBA zu lösen.
Gruß
Helmut
Antwort 2 von pogoseuche
Jepp, das dachte ich mir. irgendeiner einen Vorschlag, wie das makro aussehen könnte. daran hänge ich. danke
Antwort 3 von Saarbauer
Hallo,
da der Aufbau der Tabellen nicht bekannt ist, ist es etwas schwierig.
Hast du es mal mit Makro aufzeichnen versucht, es wird wahrscheinlich keine Lösung damit geben, aber zumindest Lösungsansätze
Da mir deine Kenntnisse in VBA nicht bekannt sind kann ich auch nicht abschätzen ob du den Rest hinbekommst
Gruß
Helmut.
da der Aufbau der Tabellen nicht bekannt ist, ist es etwas schwierig.
Hast du es mal mit Makro aufzeichnen versucht, es wird wahrscheinlich keine Lösung damit geben, aber zumindest Lösungsansätze
Da mir deine Kenntnisse in VBA nicht bekannt sind kann ich auch nicht abschätzen ob du den Rest hinbekommst
Gruß
Helmut.
Antwort 4 von Hajo_Zi
Antwort 5 von pogoseuche
Ich würde mich als VBA Anfänger bezeichnen, bin aber sehr lernfähig. Mit dem richtigen Denkanstoß komm ich weiter.
@Hajo Zi
Tolles Excel- file, das ist das was ich suche. DAmit kann ich einiges anfangen und auf mein Problem umändern. Vielen Dank und schönen Sonntag noch!
Gruß
pogoseuche
@Hajo Zi
Tolles Excel- file, das ist das was ich suche. DAmit kann ich einiges anfangen und auf mein Problem umändern. Vielen Dank und schönen Sonntag noch!
Gruß
pogoseuche
Antwort 6 von pogoseuche
Jetzt hab ich noch das Problem, das manche zellen mehrfach belegt sind. z.B
Zeile2: Wert1, Wert2, Wert3
dann funktioniert mein Vergleich nicht mehr. Wie kann man das ändern?
mein makro:
Sub Test()
Dim LetzteTeile1 As Long
Dim LetzteTeile2 As Long
Dim n, m As Integer
Dim Pfad, a, b As String
Set WbO = Workbooks("Test.xls").Worksheets("Tabelle1")
Set Wb2 = Workbooks("Test2.xls").Worksheets("Tabelle1")
'letzte belegte Zeile, es wird davon ausgegangen, dass keine Zeilen ausgeblendet sind
With WbO
LetzteZeile1 = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count)
End With
With Wb2
LetzteZeile2 = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count)
End With
Pfad = "C:\Documents and Settings\u522861\My Documents\Test2.xls"
'Links zur Aktualisierung löschen
For n = 1 To LetzteZeile1
WbO.Cells(n, 4).ClearContents
Next
'Vergleich und Hyperlink
For n = 1 To LetzteZeile1
For m = 1 To LetzteZeile2
If WbO.Cells(n, 1) <> "" Then 'keine Lehrzeichen
If WbO.Cells(n, 1) = Wb2.Cells(m, 2) Then
WbO.Hyperlinks.Add Anchor:=Cells(n, 4), Address:=Pfad, SubAddress:="'Tabelle1'!B" & m, TextToDisplay:=" corresponding value"
End If
End If
Next m
Next n
End Sub
Zeile2: Wert1, Wert2, Wert3
dann funktioniert mein Vergleich nicht mehr. Wie kann man das ändern?
mein makro:
Sub Test()
Dim LetzteTeile1 As Long
Dim LetzteTeile2 As Long
Dim n, m As Integer
Dim Pfad, a, b As String
Set WbO = Workbooks("Test.xls").Worksheets("Tabelle1")
Set Wb2 = Workbooks("Test2.xls").Worksheets("Tabelle1")
'letzte belegte Zeile, es wird davon ausgegangen, dass keine Zeilen ausgeblendet sind
With WbO
LetzteZeile1 = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count)
End With
With Wb2
LetzteZeile2 = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count)
End With
Pfad = "C:\Documents and Settings\u522861\My Documents\Test2.xls"
'Links zur Aktualisierung löschen
For n = 1 To LetzteZeile1
WbO.Cells(n, 4).ClearContents
Next
'Vergleich und Hyperlink
For n = 1 To LetzteZeile1
For m = 1 To LetzteZeile2
If WbO.Cells(n, 1) <> "" Then 'keine Lehrzeichen
If WbO.Cells(n, 1) = Wb2.Cells(m, 2) Then
WbO.Hyperlinks.Add Anchor:=Cells(n, 4), Address:=Pfad, SubAddress:="'Tabelle1'!B" & m, TextToDisplay:=" corresponding value"
End If
End If
Next m
Next n
End Sub