Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Pogoseuche vom 15.02.2020, 16:41 Options
Vergleich von Zellen in verschiedenen Excel Dateien
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.
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 2 von pogoseuche vom 17.02.2020, 14:52 Options
Jepp, das dachte ich mir. irgendeiner einen Vorschlag, wie das makro aussehen könnte. daran hänge ich. danke
Antwort 3 von Saarbauer vom 17.02.2020, 16:59 Options
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 5 von pogoseuche vom 17.02.2020, 18:31 Options
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 vom 20.02.2020, 11:06 Options
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
Ähnliche Themen
Zellen verbinden in Excel - nicht möglich
canis 06.07.2007 - 290 Hits - 2 Antworten
in excel zellen verbinden, ohne inhalte zu löschen
mafug 21.09.2007 - 272 Hits - 1 Antwort
Makro-bestimmt Zellen löschen
musiker021 06.05.2008 - 87 Hits - 3 Antworten
in excel leere zellen befüllen
brs 03.06.2008 - 108 Hits - 4 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
