Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1784to1788
1784to1788
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Feld kopieren; Google Bildersuche

Forumthread: Feld kopieren; Google Bildersuche

Feld kopieren; Google Bildersuche
08.10.2020 09:37:53
Mikael
Hallo meine Lieben,
mir stellen sich im Moment zwei Probleme, die ich aktuell versuche zu lösen:
1) Ich möchte gerne ein Feld, nennen wir es A1 autoamtisch auch in A2 stehen haben. in A1 wird immer eine E-Mail-Adresse stehen, z.B. nutzer@web.de. In A2 soll diese E-Mail-Adresse jedoch automatisch OHNE @-Zeichen stehen: nutzerweb.de.
Wie könnte ich das hinbekommen?
2) Ich möchte gerne durch einen Hyperlink einen Begiff in der Google-Bildersuche suchen. Nehmen wir an, der Begriff steht in B1. über =HYPERLINK("https://www.google.de/search?q="&B1;"Suche Begriff") schaffe ich es bereits, die "normale" Googlesuche zu erreichen, jedoch möchte ich, dass sich gleich die Seite der Bilder-Ergebnisse öffnet. ist das möglich?
Ich bedanke mich bereits für das Lesen meiner Anfrage, vielleicht klappt mein Vorhaben ja :)
Liebe Grüße
Anzeige

19
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Feld kopieren; Google Bildersuche
08.10.2020 10:01:35
Matthias
Hi,
zu 1 ) 
Sub mailkopy()
Dim mailmitat As String
mailmitat = Cells(1, 1).Value
Cells(1, 2).Value = mailmitat
Columns("B:B").Select
Selection.Replace What:="@", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
LG
Anzeige
AW: Feld kopieren; Google Bildersuche
08.10.2020 10:09:13
Mikael
Hallo Matthias, danke für deine Antwort! Das ist etwas, das ich in vba kopieren muss, oder? Da muss ich mich etwas reinfuchsen, habe das zuvor noch nie gebraucht.
Zu 2) konnte ich gerade lösen :)
AW: Feld kopieren; Google Bildersuche
08.10.2020 10:11:30
Matthias
Kein Problem,
an sich ja, aber der Code würde jetzt nur Feld A1 in Feld A2 einfügen.
Wenn das ganze mit mehreren Feldern oder anderen Feldern laufen sollte, dann müsste der Code angepasst werden.
Anzeige
AW: Feld kopieren; Google Bildersuche
08.10.2020 10:31:49
peterk
Hallo
In A2: 

=WECHSELN(A1;"@";"")
Bild Suche

=HYPERLINK("https://www.google.de/search?q="&B1&"&tbm=isch";"Suche Begriff")

AW: Feld kopieren; Google Bildersuche
08.10.2020 12:05:11
chris
Hallo Peter,
ich hätte noch eine kleine frage zu deinem Code...
Ich bin gerade am lernen von VBA usw... wie kommt man darauf das man für Bildersuche das eingeben muss.. und wofür steht das ? "&tbm=isch"
Vielen Dank !
Anzeige
AW: Feld kopieren; Google Bildersuche
08.10.2020 12:22:03
chris
Ich danke Dir !
AW: Feld kopieren; Google Bildersuche
08.10.2020 12:11:24
Mikael
Hallo peterk,
vielen Dank für deinen Beitrag! Dass es wirklich so simpel war..ich habe wohl auch einfach zu kompliziert gedacht.
Meine Mappe ist fast fertig, jetzt fehlt mir noch noch folgendes:
Ich habe in den Zellen B13 bis B25 untereinander einige Internetlinks stehen. All diese Links möchte ich über eine Schaltfläche gleichzeitig in jeweils eigenen Tabs im Browser öffnen.
Ich habe schon einige Markos aus diversen Foren probiert, mir fällt es jedoch schwer, diese auf meine Zellen umzuschreiben. Das Unterlegen der Schaltfläche mit dem Makro krieg ich hin, aber der Rest..bin einfach ein kompletter VBA-Anfänger.
Anzeige
AW: Feld kopieren; Google Bildersuche
08.10.2020 12:58:18
peterk
Hallo

Sub HyperFollow()
Dim myHyp As Hyperlink
For Each myHyp In Worksheets("Tabelle2").Hyperlinks ' Namen anpassen
If myHyp.Type = msoHyperlinkRange Then
If myHyp.Parent.Column = 2 Then             ' Spalte B
If (myHyp.Parent.Row >= 13) And _
(myHyp.Parent.Row

Peter
Anzeige
AW: Feld kopieren; Google Bildersuche
08.10.2020 13:18:57
Mikael
Hallo Peter,
vielen Dank für deinen Einsatz! Ich habe das Modul so gespeichert, natürlich den Namen der Tabelle angepasst, jedoch passt nach Ausführung des Makros nichts. Ich wünschte, ich könnte bei der Beschreibung etwas hilfreicher sein.
Die zu öffnenden Links sehen alle so in etwas aus:
=HYPERLINK("https://www.google.de/search?q="&A13;"Suche 1") und funktionieren auch tadellos, wenn man sie einzeln anklickt. Auch wenn ich in ein Feld der Spalte B www.google.de eintippe, öffnet das Makro die Seite(n) leider nicht.
Anzeige
AW: Feld kopieren; Google Bildersuche
08.10.2020 14:14:53
peterk
Hallo
Kann Deine Fehler reproduzieren, hab aber noch keine Lösung
AW: Feld kopieren; Google Bildersuche
08.10.2020 13:19:25
Mikael
Hallo Peter,
vielen Dank für deinen Einsatz! Ich habe das Modul so gespeichert, natürlich den Namen der Tabelle angepasst, jedoch passiert nach Ausführung des Makros nichts. Ich wünschte, ich könnte bei der Beschreibung etwas hilfreicher sein.
Die zu öffnenden Links sehen alle so in etwas aus:
=HYPERLINK("https://www.google.de/search?q="&A13;"Suche 1") und funktionieren auch tadellos, wenn man sie einzeln anklickt. Auch wenn ich in ein Feld der Spalte B www.google.de eintippe, öffnet das Makro die Seite(n) leider nicht.
Anzeige
AW: Feld kopieren; Google Bildersuche
08.10.2020 16:03:02
peterk
Hallo
Mit der HYPERLINK Funktion von Excel werden leider keine echten Hyperlinks erzeugt )und sind somit in VBA nicht sichtbar). Wir müssten die Hyperlinks ebenfalls über ein Makro erzeugen.
Peter
AW: Feld kopieren; Google Bildersuche
08.10.2020 16:29:54
Mikael
Hallo Peter,
ich verstehe..ich möchte auch nicht zu viel Arbeit verursachen, ich weiß ja, dass jeder hier in seiner Freizeit unterstützt. Falls ich es heute noch schaffe, werde ich vielleicht mal einen neuen Thread starten und die Mappe auch hochladen, dann wird das alles etwas greifbarer.
Anzeige
AW: Feld kopieren; Google Bildersuche
09.10.2020 11:55:38
peterk
Hallo
Hab einen Workaround gefunden

Sub MyHyperlinkFollow(myAddress, ByVal myTempCell As String)
Dim myH As Long
ActiveSheet.Hyperlinks.Add _
Anchor:=Range(myTempCell), _
Address:=myAddress
myH = ActiveSheet.Hyperlinks.Count
On Error GoTo Cleanup
ActiveSheet.Hyperlinks(myH).Follow
Cleanup:
If Err.Number  0 Then
Call CreateLinkFromHyperlink(Range("B" & i))
End If
Next i
End Sub

Anzeige
AW: Feld kopieren; Google Bildersuche
09.10.2020 13:28:11
Mikael
Hallo Peter!
Wow, ich weiß gar nicht, was sich sagen soll. Ich bin begeistert und danke dir vielmals. Ich weiß deinen Einsatz wirklich zu schätzen. Da ich die Links häufiger nutzen werde, ist davor oftmals ein google-captcha geschaltet. Könnte es klappen, wenn man zwischen dem automatisierten Öffnen der Tabs Pausen vielleicht von 2-3 Sekunden schaltet? Das ist nur eine Mutmaßung meinerseits, ob man so die Captchas "aushebeln" könnte, weiß ich gar nicht..
Jedenfalls noch mal ein ganz großes Dankeschön!
Anzeige
AW: Feld kopieren; Google Bildersuche
09.10.2020 13:34:52
peterk
Hallo
An eine Dir passende Stelle einfügen

Application.Wait (Now + TimeValue("0:00:03"))
Peter
AW: Feld kopieren; Google Bildersuche
09.10.2020 13:37:29
peterk
Hallo
Oder Du baust zum Testen eine MSGBOX ein, dann kannst Du die Pausen durch Deine Klick-Geschwindigkeiten selbst regeln.
Peter
AW: Feld kopieren; Google Bildersuche
09.10.2020 16:20:39
Mikael
Das werde ich gerne probieren, vielen Dank :)
Interessanterweise (nachdem ich die Links immer mal wieder geöffnet habe bzw. mit der Mappe arbeite), fangen irgendwann die Links an, nicht mehr zu funktionieren. Weder über das großartige Makro, noch wenn ich sie einzeln anklicke. Es folgt der Fehler "[...] die angeforderten Informationen können nicht heruntergeladen werden". Das wird wohl aber ein grundlegendes Problem an einer anderen Stelle sein. Da muss ich mal schauen, ob ich das irgendwie gelöst bekomme. Ein paar Stunden später funktionieren die Links wieder wie von selbst. *confused*
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Feld kopieren und Google Bildersuche optimieren

Schritt-für-Schritt-Anleitung

Um die gewünschten Aufgaben in Excel zu erledigen, kannst Du die folgenden Schritte befolgen:

  1. E-Mail-Adresse ohne @-Zeichen in eine andere Zelle kopieren:

    • Du kannst dies entweder über eine Formel oder ein VBA-Makro erreichen.

    • Formel: In Zelle A2 kannst Du folgende Formel eingeben:

      =WECHSELN(A1;"@";"")

    • VBA-Makro: Alternativ kannst Du ein Makro verwenden. Öffne den VBA-Editor (Alt + F11) und füge folgenden Code ein:

      Sub mailkopy()
 Dim mailmitat As String
 mailmitat = Cells(1, 1).Value
 Cells(1, 2).Value = mailmitat
 Columns("B:B").Select
 Selection.Replace What:="@", Replacement:="", LookAt:=xlPart, _
 SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
 ReplaceFormat:=False
End Sub

  2. Hyperlink für die Google Bildersuche erstellen:

    • Um eine Bildersuche über einen Hyperlink zu starten, verwende diese Formel in einer Zelle (z.B. in C1): 
      =HYPERLINK("https://www.google.de/search?q="&B1&"&tbm=isch";"Suche Begriff")
    • Diese Formel öffnet direkt die Bildersuche auf Google für den in B1 eingegebenen Suchbegriff.

Häufige Fehler und Lösungen

  • Problem: "Die angeforderten Informationen können nicht heruntergeladen werden."

    • Lösung: Überprüfe die Internetverbindung oder versuche es später erneut. Manchmal kann dies durch temporäre Serverprobleme bei Google verursacht werden.

  • Problem: Hyperlinks funktionieren nicht.

    • Lösung: Stelle sicher, dass die Hyperlinks korrekt in der Zelle eingegeben wurden. Verwende die HYPERLINK-Funktion, um sicherzustellen, dass echte Hyperlinks erzeugt werden.

Alternative Methoden

Wenn Du keine VBA-Programmierung verwenden möchtest, kannst Du die Excel-Formeln verwenden, um die gleichen Aufgaben zu erledigen. Die Kombination aus WECHSELN und HYPERLINK-Funktionen ermöglicht es Dir, viele Aufgaben ohne VBA zu lösen.

Praktische Beispiele

  1. E-Mail-Adresse in A1: nutzer@web.de

    • A2: =WECHSELN(A1;"@";"") ergibt nutzerweb.de.

  2. Suchbegriff in B1: Katzen

    • C1: =HYPERLINK("https://www.google.de/search?q="&B1&"&tbm=isch";"Suche Bild") öffnet die Google Bildersuche für "Katzen".

Tipps für Profis

  • Verwende die Tastenkombination Alt + F11, um schnell in den VBA-Editor zu gelangen, falls Du Makros anpassen möchtest.
  • Bei der Arbeit mit Hyperlinks kannst Du die &tbm=isch-Parameter verwenden, um die Bildersuche direkt anzusprechen. Dies ist besonders nützlich, wenn Du die Google Bildersuche rückwärts oder für spezifische Suchen nutzen möchtest.

FAQ: Häufige Fragen

1. Ist es möglich, mehrere Hyperlinks gleichzeitig zu öffnen? Ja, Du kannst ein VBA-Makro erstellen, das alle Hyperlinks in einem bestimmten Bereich öffnet.

2. Wie kann ich sicherstellen, dass mein Makro funktioniert? Stelle sicher, dass Du in Excel die Makros aktiviert hast und der Code keine Fehler enthält. Teste das Makro schrittweise, um sicherzustellen, dass alles wie gewünscht funktioniert.

3. Was bedeutet der Parameter "&tbm=isch" in meinem Hyperlink? Dieser Parameter sorgt dafür, dass die Google Bildersuche statt der normalen Websuche aufgerufen wird.

Nutze diese Informationen, um Deine Excel-Anwendung zu optimieren und effizienter zu gestalten!

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige