Vergleichen von Zellen...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub CreateHyperlinks() Dim iRow As Integer iRow = 1 Do Until IsEmpty(Cells(iRow, 1)) Cells(iRow, 2).Hyperlinks.Add _ Anchor:=Cells(iRow, 2), _ Address:="", _ SubAddress:=Cells(iRow, 1).Value & "!A1" iRow = iRow + 1 Loop End Sub

Hallo Otto,
Das funktioniert nicht so wie ich es mir gedacht habe.
Vielleicht habe ich mich auch falsch ausgedrückt.
Ich will aus Tabelle1 in der SpalteA, Daten mit Tabelle2 in der SpalteA vergleichen.
Sobald die Daten der Zellen aus Tabelle2 (in der SpalteA) in der SpalteA der Tabelle1 vorhanden sind, soll Excel, wenn vorhanden, die Hyperlinks in Tabelle2 in die SpalteA schreiben(in die entsprechenden Zellen natürlich).
Sprich: Wenn in Tab1 in A5 "325" steht, diese mit einem Link versehen ist, dann will ich den Link in Tab2 in der Zeile haben, in der "325" steht.
Doppelte Daten sind in den Spalten nicht vorhanden.
So erhalte ich lediglich die Daten aus SpalteA in der SpalteB mit dem Zusatz "!A1" und einem Link.
Haste da auch ne Idee für?
Danke im Vorraus für die Mühe...
Gruss Daniel

Sub CreateHyperlinks() Dim iRow As Integer, iRow2 As Integer iRow = 1 Do Until IsEmpty(Worksheets("Tabelle1").Cells(iRow, 1)) For iRow2 = 1 To 6 If Worksheets("Tabelle1").Cells(iRow, 1) = _ Worksheets("Tabelle2").Cells(iRow2, 1) Then Worksheets("Tabelle2").Cells(iRow, 2).Hyperlinks.Add _ Anchor:=Cells(iRow, 2), _ Address:="", _ SubAddress:=Cells(iRow, 1).Value & "!" & _ Worksheets("Tabelle1").Cells(iRow2, 1).Address End If Next iRow2 iRow = iRow + 1 Loop End Sub

Hi,
also die andere Lösung hat besser gefunzt.
Hier is Sie, nachdem ich sie ein wenig umoperiert habe:


Private Sub Suchenundfinden_Click()
On Error Resume Next
Dim WS1     As Worksheet
Dim WS2     As Worksheet
Dim WS3     As Worksheet
Dim Suche   As String
Dim find    As Variant
Dim I       As Integer
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
Set WS3 = Worksheets("Tabelle3")
For I = 1 To 500   'Anzahl der Zeilen
Suche = WS2.Cells(I, 1) 'Suchbegriff aus Tabelle 2 / Spalte A
Set find = WS1.Range("A:A").find(Suche, LookIn:=xlValues) ' In Tabelle 1 / Spalte a suchen
WS2.Rows(find.Row).Format = WS1.Rows(I).Format ' wenn gefunden komplette Zeile von Tabelle 1 nach Tabelle 2 kopieren
Next I
End Sub

So geht's dann auch mit den Links.
Nur eines schnall ich nicht. Warum gehen Makros manchmal und manchmal geht nix?
Ich bin echt dabei meinen Rechner mit schwerem Geschütz zu bedrohen.
Gruss Daniel

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Vergleichen von Zellen...

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread