Office: Hyperlink automatisch generieren und eine "Aktion"

Hi zusammen,

möchte Folgendes in Excel abgebildet haben, und weiß leider nicht weiter...

Wenn die Zelle(n) A2, A3, A4, A5 etc. gefüllt sind, soll in B2, B3, B4, B5 etc. ein Hyperlink stehen. (Wenn in A-Zelle nicht steht, solls auch keinen Hyperlink geben)

Dieser Hyperlink ist immer der Gleiche.

Wenn ich nun diesen Hyperlink anklicke, sollen 2 Dinge geschehen:

a) die Internetseite (bsp. www.google.de) soll aufgehen, und
b) der Inhalt der A-Zelle (A2, A3, A4, A5 etc.) soll im Zwischenspeicher stehen, sodass ich in Google nur noch "Einfügen" muss.

Könnt ihr mich unterstützen ?
vielen lieben Dank vorab....

Gruß

 

hm. ;-)

ich hoffe, ich habe es einigermaßen verständlich beschrieben?

 

Hallo Engelsteufel,

vorab zwei Dinge:

1. ich habe Excel 2007 und weiß nicht ob mein Lösungsvorschlag bei Excel 2003 genauso klappt

2. Während meiner Tüftelei hat sich mein Excel ein paar Mal aufgehängt. Ich denke, dass ich den Code entsprechend bereinigt habe, bei mir klappts ohne Probleme, aber ich erwähne es lieber mal.


Vielleicht hat ja jemand anderes noch Verbesserungen?



Lösungsvorschlag:

- Kopiere den folgenden Code in das VBA-Modul des Arbeitsblattes, in welchem Du diese Funktionalität nutzen möchtest

- bevor Du jetzt testest, und auch nachdem Du die Mappe gespeichert, geschlossen und neu geöffnet hast, muss zuerst einmal das "Worksheet_SelectionChange - Ereignis" ausgelöst werden, sprich Du musst eine andere als die aktuelle Zelle auswählen. Ab jetzt ist die Funktion "scharf". (um diesen Schritt auch noch zu vermeiden, dafür ist es mir zu warm...)

- nun eine Zelle in Spalte A auswählen, einen Begriff eingeben und mit "Enter", der Tab-Taste, den Cursortasten oder der Maus die Zelle wieder verlassen. Dein Standardbrowser wird sich öffnen und Du brauchst nur noch mit Strg-V den Suchbegriff in das Eingabefeld einkopieren. Funktioniert auch wenn Du später auf einen bereits bestehenden Link klickst.

- eigentlich hätte ich gerne noch "Application.CutCopyMode = False" eingebaut, um die Kopiermarkierung wieder zu entfernen. Aber ich habe nicht herausgefunden wo und wie ich dies einsetzen könnte, ohne auch gleich die Zwischenablage zu löschen, bevor der Suchbegriff auf der Internetseite eingefügt werden kann.

Code:

Option Explicit

Dim loZeile As Long
Dim loSpalte As Long



Private Sub Worksheet_Change(ByVal Target As Range)
    
    With Me
        ' NUR wenn NUR eine Zelle ausgewählt wurde!
        ' mit mehreren Zellen gleichzeitig funktioniert es nicht
        If Selection.Cells.Count = 1 Then
            
            ' wenn die selektierte Zelle sich in Spalte A befindet
            If loSpalte = 1 Then
                
                ' wenn die selektierte Zelle den Wert "" hat
                If .Cells(loZeile, loSpalte).Value = "" Then
                    ' Zelle rechts daneben Hyperlink löschen
                    .Cells(loZeile, loSpalte + 1).Hyperlinks.Delete
                    ' und Inhalte löschen wenn nicht ""
                    If .Cells(loZeile, loSpalte + 1) <> "" Then
                        .Cells(loZeile, loSpalte + 1).ClearContents
                    End If
                
                ' wenn die selektierte Zelle NICHT den Wert "" hat
                Else
                    Application.EnableEvents = False
                    
                    ' Zelladresse wo der Hyperlink verankert werden soll
                    ' und Webadresse des Link, und in Zelle angezeigter Text
                    .Hyperlinks.Add Anchor:=.Cells(Target.Row, Target.Column + 1), _
                        Address:="http://www.google.de", TextToDisplay:="Suche im Internet"
                    
                    ' wichtig: nie vergessen wieder einzuschalten!
                    Application.EnableEvents = True
                    
                    ' Hyperlink folgen > Browserfenster öffnet sich
                    .Cells(loZeile, loSpalte + 1).Hyperlinks(1).Follow _
                        NewWindow:=True, AddHistory:=True
                    
                End If
            End If
        End If
    End With
    
End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    
    With Me
        
        ' Suchbegriff in Zwischenablage kopieren
        .Cells(loZeile, 1).Copy
        
    End With
    
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    With Me
        ' NUR wenn NUR eine Zelle ausgewählt wurde!
        ' mit mehreren Zellen gleichzeitig funktioniert es nicht
        If Selection.Cells.Count = 1 Then
            loZeile = ActiveCell.Row
            loSpalte = ActiveCell.Column
        End If
    End With
    
End Sub

Ich hoffe geholfen zu haben.

 

ei ei ei.... Krieg es nicht "gebacken"....

Habs mit Code im Modul1 einfügen probiert...
Leider ohne Erfolg. Da tut sich gar nichts.
Habe den Code wieder herausgelöscht, und hänge die Datei mal an...

Folgendes Szenario:

a) Da die Zellen A2, A3 und A4 gefüllt sind, sollen...
b) ....in B2, B3 und B4 Hyperlinks stehen.

c) .... Hyperlink ist immer gleich. (beispielsweise www.google.de)

ABER:

d) Wird dann der Hyperlink in B2 angeklickt, soll der Eintrag von A2 (also "123456") in den Zwischenspeicher (wie STRG + C) rutschen.
Wird B3 angeklickt, soll der Eintrag von A3 kopiert werden.
usw....

e) Ist in der A-Zelle kein Eintrag, soll auch kein Hyperlink angezeigt werden.


Schon kompliziert was ? :-)

Danke vorab... :roll:

 

Mal als Tip, wie man das ganze etwas abkürzen und vielleicht sogar ganz auf VBA verzichten kann:

Wenn Du tatsächlich Google benutzen willst und der kopierte Text in das Suchfeld soll, dann geht auch:

Hyperlink auf "http://www.google.de/?q=suchtext"
Das fügt den Text bereits in das Suchfeld bei Google ein.

Hyperlink auf "http://www.google.de/#q=suchtext"
Das fügt den Text nicht nur ein, sondern führt die Suche auch gleich aus.

Wenn Google jetzt nur ein Beispiel war, ok dann...

Gruß, Michael

 

nee nee, war natürlich nur ein Beispiel.....
Es betrifft eine Intranet-Seite.

:-)

 

Zusammen mit dem anderen Tip könnte dann nicht sowas in der Art gehen?

Code:

B2: =wenn( glätten(a2)<>"" ; hyperlink("http://www.google.de/?q="&a2;a2) ; "" )

Gruß, Michael

 

Guter Tip/Hinweis,

aber ich bin gezwungen dies über Strg. + V zu machen...

Ich werde auf die Hyperlink-Seite verlinkt, MUSS dort zwingend einen weiteren Link anklicken (URL unterscheidet sich aber nicht)
und erst dann den Zwischenspeicher einführen.

 

Wenn die Seite "stilvoll" als selbstaufrufendes Formular (mit z.B. PHP, Stichwort "Affen-Formular") gestaltet ist und die Felder bei Aufruf mit den Parametern füllt, die (per POST oderGET) übergeben werden, dann hat auch diese Seite einen "q=" Parameter, der für das Füllen des Feldes sorgt. Der heißt dann nur eben anders...

Ein Blick in den Source der Seite hilft da ggf. Da wird irgendwo ein <FORM ... > ... </FORM> Abschnitt sein, in dem sich dann auch ein "Submit"-Button befindet und in der Gegend ist auch ein "Input"-Textfeld mit einem Namen / einer ID. Mit etwas Glück geht da was...

Zum Vergleich, auf der Google-Seite findet man im Source:

Code:

<form name="f" style="display:block;background:none;margin:0 auto" action="/search" id="tsf" method="GET" onsubmit="return q.value!=''" role="search">  
[...]
<input value="" title="Suche" size="41" autocomplete="off" class="lst" type="text" name="q" maxlength="2048"/>
[...]
<input value="Suche" class="lsb" type="submit" name="btnG"/>
[...]
</form>

Und name="q" ist hier der entscheidende Hinweis...

Gruß, Michael

 

keine Chance,
ich muss es wirklich so machen, wie ich es beschrieben habe.

Das würde mir sehr weiterhelfen.

 

Yikes... Also liegt zwischen Aufruf und Einfügen noch eine andere Aktion. Dann wird das ganze natürlich langsam ziemlich haarig. Schade...

Gruß, Michael

 

echt - meinst das ist nicht machbar - bzw. schwer umzusetzen?

 

Ich meinte damit, daß mein Ansatz dann schwierig (bis hin zu unmöglich) wird.

Der Ansatz von Achim müßte dann aber nach wie vor gehen.

Aber da hast Du nicht ganz korrekt mitgelesen.
Achim schrieb:

Und Du daraufhin:

Ich hab's jetzt nicht nachgebaut, aber Achim scheint's ja soweit ausprobiert zu haben.

Gruß, Michael

 

hmm, habs nicht hinbekommen...
mit meiner testdatei hat er´s denke ich nicht probiert, weil ich die erst später "nachgeliefert" habe.

habs im korrekten tabellenblatt reinkopiert.

kommt ein fehler mit dem ich wenig anfangen kann.

 

Hallo Engelsteufel

Und hier können alle mit dieser Aussage auch wenig anfangen.
Entweder Fehlertext abschreiben, oder Screenshot posten. Und dann am besten noch möglichst genau beschreiben wie wann wo er auftritt, bzw. den Code posten und angeben in welcher Zeile Excel hängen bleibt.
Dann besteht die Chance das jemand eine Lösung findet.

Was mir als Möglichkeit auf die Schnelle einfällt:
Darf Excel bei Dir ins Internet?

Bei mir ist es in der Firewall nämlich gesperrt, und ich bekomme jedes mal eine Abfrage der Firewall ob Excel darf.

Zum testen habe ich jetzt mal verboten dass Excel dem Link folgen darf und bekam nach einigen Versuchen von Excel folgende Fehlermeldung:
(vielleicht ist dies ja auch Deine?)