Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1876to1880
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1876to1880
1876to1880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA, Link suchen und aktivieren

VBA, Link suchen und aktivieren
16.04.2022 21:58:41
Fred
Guten Abend ExcelProfis,
Ich bekomme es nicht hin, Spalteneinträge in einer Schleife abzuarbeiten und "bei Treffer" entsprechenden Link zu aktivieren.
Darum geht es:
In Sheet Live, E2 setze ich den Namen eines Teams,- durch klicken auf TeamNamen in Spalte F
In Sheet Liste habe ich:
Spalte A: den Link
Spalte B: TeamName
Nun soll im VBA der Teamname (aus Sheet Live) in Spalte B von Sheet Liste gesucht werden
und bei Treffer, der entsprechende Link (gleiche Zeile) in Spalte A aktiviert werden.
Kann ein Experte bitte mal drauf schauen
https://www.herber.de/bbs/user/152489.xlsb
Viele Grüße
Fred

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA, Link suchen und aktivieren
17.04.2022 09:06:55
Alwin
Hallo Fred,
teste mal, ob das so schon ausreicht:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
If Not Intersect(Target, Cells(2, 5)) Is Nothing Then
With Tabelle6
For i = 4 To .Cells(Rows.Count, 2).End(xlUp).Row
If Tabelle4.Cells(2, 5) = .Cells(i, 2) Then
ThisWorkbook.FollowHyperlink Address:=.Cells(i, 1).Hyperlinks(1).Address, NewWindow:=True
End If
Next i
End With
End If
End Sub
Gruß Uwe
AW: VBA, Link suchen und aktivieren
17.04.2022 10:21:50
Fred
Hallo Uwe,
dein Makro läuft anscheinend wie gewünscht,- vielen Dank bisher!!
Es wird durch eine Schaltfläche ausgeführt, ist mir so viel lieber.
Also; Es wird die entsprechende Webadresse aufgerufen, allerdings kommt gleichzeitig eine Fehlermeldung:
Laufzeitfehler 13
Typen unverträglich
Wie kann ich das vermeiden?
Ich habe nochmals eine Mappe angefügt,- diesmal etwas umfangreicher (dennoch natürlich stark gekürzt)
https://www.herber.de/bbs/user/152496.xlsb
Kannst du bitte nochmals draufschauen?!
Gruss
Fred
Anzeige
Probiere es...
17.04.2022 09:43:31
Case
Hallo Fred, :-)
... mal so: ;-)
Beispieldatei...
Servus
Case
AW: Probiere es...
17.04.2022 10:24:20
Fred
Hallo Case,
dein Makro funzt in deiner beigefügten Mappe, allerdings in meiner Original kommt die Fehlermeldung:
unzulässige Verwendung des Schlüsslwortes Me
Gruss
Fred
AW: VBA, Link suchen und aktivieren
17.04.2022 10:53:12
Alwin
Hallo Fred,
Der Fehler liegt in deinem Tabellenblatt "Liste" in Spalte B Zeile 147. Da steht #Wert! drin, was zur Fehlerausgabe führt.
Ändere die Prozedur so:

Sub Link_aufruf()
Dim varLink As Range
Set varLink = Tabelle6.Columns(2).Find(Cells(2, 5))
If Not varLink Is Nothing Then
ThisWorkbook.FollowHyperlink Address:=Tabelle6.Cells(varLink.Row, 1).Hyperlinks(1).Address, NewWindow:=True
End If
End Sub
Gruß Uwe
Anzeige
AW: VBA, Link suchen und aktivieren
17.04.2022 11:26:54
Fred
Hallo Uwe,
vielen Dank für deine Mühe!
Ich hatte zuvor die Formel:

=WECHSELN(LINKS(A4;FINDEN(""vs"";A4)-2);""-"";"" "")
in

=WENNFEHLER(WECHSELN(LINKS(A4;FINDEN("vs";A4)-2);"-";" ");"")
geändert,- welche bei Aufruf der LinkListe (E1) steht. Klappte dann auch ohne Fehlermeldung.
Werde allerdings deine Änderung im Makro übernehmen!
Uwe; Vielen Dank für deine Aufmerksamkeit und Kompetenz!!
FROHE OSTERN
Fred Neumann
AW: VBA, Link suchen und aktivieren
17.04.2022 11:39:55
Alwin
Gerne.
ebenfalls Frohe Ostern
Gruß Uwe

313 Forumthreads zu ähnlichen Themen

String in Zeilen suchen
Herbert

Hallo liebe Gemeinde
Ich habe mir vor längerer Zeit von Euch helfen lassen, um in der Spalte A rückwärts nach Text zu suchen.
In Spalte A kam bisher der jeweilige Name einer Abteilung (den suche ich) und laufende Nummern vor, klappt prima mit folgendem Code:
Sub a_String() iRow =...
28.10.2008 14:20:00
Thread-ID: 1019944
7 Beiträge
Anzeige
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
Anzeige
Wert suchen, eintragen, weitersuchen (VBA)
Nico

Moin
Nachdem ich Gestern mein Problem mit einem Sverweis über mehrere Zellen lösen wollte (Danke nochmal an Josef Ehrensberger) habe ich heute feststellen dürfen, dass es zwar funktioniert - aber die Verzögerung auf Grund der Masse an Daten doch zu hoch ist.
Hier also mein Problem zieml...
26.02.2009 09:19:15
Thread-ID: 1054225
11 Beiträge
VBA Wert suchen, Wert einfügen
andreas

Hallo zusammen,
wie muss ich den Code schreiben, suche nach Zeilen in denen die Zelle "B" nicht leer ist.
In der Zeile in der die Zelle "B" nicht leer ist soll dann in Zelle "P" der Wert "1" eingetragen werden.
Danke für die Hilfe
Andreas
09.03.2009 08:27:39
Thread-ID: 1057988
8 Beiträge
suchen kopieren einfügen vba
Bea

Hallo zusammen
Ich hab folgendes Problem.
in der angehängten Beispielmappe möchte ich, das die in Arbeitsblatt "Nummern" hinterlegten Anfänge von Telefonnummern in Arbeitsblatt "evnachweis" gesucht die jeweiligen Zeilen kopiert und dann in Arbeitsblatt in dem Fall "Februar" (am besten...
10.03.2009 11:55:49
Thread-ID: 1058557
9 Beiträge
bedingte Formatierung suchen u. ersetzen durch VBA
Peter

Guten Tag
Ich habe in einer Tabelle an verchiedenen Orten immer die gleiche bedingte Formatierung (Bedingung ist eine Formel). Nun möchte ich diese überall durch eine andere bedingte Formatierung ersetzen.
Ist dies möglich, mit Hilfe von VBA? Wenn ja, wie?
Danke für eine Antwort.
19.03.2009 06:55:03
Thread-ID: 1061661
8 Beiträge
In Spalte nach Wert suchen VBA
andreas


Hallo zusammen,
ich habe hier eine Tabelle, da will ich nach jeder Änderung in der Tabelle in Spalte "F" nach Wert "Spritzgießen" suchen und bei den gefundenen Zeilen die Zellen "B-N" rot einfärben und mit Rahmen versehen.
Komme aber wegen Mangels VBA-Erfahrung nicht klar damit.
03.04.2009 13:05:41
Thread-ID: 1066652
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
1
1
3
2
10
7
8
7
4
5
4
6
2
2
13
3
9
3
4
2
3
3
1
2