Collapse column

Autor Thema: hinzufügen von daten  (Gelesen 3769 mal)

Offline BuMEuropa

  • Newbie
  • *
  • Beiträge: 5
    • Profil anzeigen
  • Office-KnowHow: Anfänger
  • VBA-KnowHow- : Ohne
  • Version [Office] : Office 2007
hinzufügen von daten
« am: Februar 14, 2012, 14:52:01 Nachmittag »
Hallo
Vielleicht könnt ihr mir weiterhelfen!
Ich habe ein Excel File mit wo in der spalte b2 - b990 verschiedenste Dateinamen von Fotos zu sehen sind.
Ich muss jedoch vor jeden Dateinamen noch den richtigen link einfügen zb.: www.a.eu/b/c/ Leider jedoch ist der Dateiname nie der gleiche und endet immer mit .jpg
Gibt es da eine Formel oder der gleichen damit ich überall dort wo sich eine jpg datei befindet sich das www.a.eu/b/c/ automatisch davor setzt ohne das die Bildnamen(Dateinamen) geändert werden?

Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden und Dein Anliegen in Auftrag geben.
>>> Schnell und einfach ein unverbindliches Angebot anfordern. Per E-Mail an anfrage@excel-inside.de oder per Online-Formular
<<<

!!! Wichtige Information
!!! Dieses Forum steht aus technischen Gründen ab dem 11. September 2019 nur noch im Lesemodus zur Verfügung.
Das NEUE Office-Fragen-Forum kannst du aber unter der gewohnten Domain https://office-fragen.de wie gewohnt nutzen.

- Wir freuen uns auf deinen Besuch im neuen Forum.

Offline Officer

  • Global Moderator
  • Hero Member
  • *****
  • Beiträge: 59.503
    • Profil anzeigen
    • Excel-Inside Solutions
  • Office-KnowHow: Profi
  • VBA-KnowHow- : Sehr gut
  • Version [Office] : Office 2019 / Office 365
Antw: hinzufügen von daten
« Antwort #1 am: Februar 14, 2012, 15:20:45 Nachmittag »
Hallo BuMEuropa,

mit diesem VBA-Code lässt sich der ein Link sowie der gewünschte Text zur Bilddatei dynamisch einfügen.

Natürlich müssen die Einträge noch entsprechend auf deine Anforderungen hin angepasst werden.

Code: Visual Basic
  1. Sub link()
  2.  
  3. With Application
  4.   .ScreenUpdating = False
  5.   .Calculation = xlCalculationManual
  6. End With
  7.  
  8. For a = 2 To 990
  9.   With Cells(a, 1)
  10.     .Value = "www.a.eu/test" & a
  11.     .Hyperlinks.Add Anchor:=Cells(a, 1), Address:="http://www.a.eu/test" & a & ".jpg"
  12.   End With
  13. Next a
  14.  
  15. With Application
  16.   .ScreenUpdating = True
  17.   .Calculation = xlCalculationAutomatic
  18. End With
  19.  

Gruß

Officer
Weitere Informationen, Tipps & Tricks findest du auf Excel-Inside.de
Bitte erfolgreich beantwortete Fragen als gelöst kennzeichnen -  zur Anleitung

Offline BuMEuropa

  • Newbie
  • *
  • Beiträge: 5
    • Profil anzeigen
  • Office-KnowHow: Anfänger
  • VBA-KnowHow- : Ohne
  • Version [Office] : Office 2007
Antw: hinzufügen von daten
« Antwort #2 am: Februar 14, 2012, 15:55:19 Nachmittag »
muss ich diesen Code in jede Zeile einfügen?

Offline Officer

  • Global Moderator
  • Hero Member
  • *****
  • Beiträge: 59.503
    • Profil anzeigen
    • Excel-Inside Solutions
  • Office-KnowHow: Profi
  • VBA-KnowHow- : Sehr gut
  • Version [Office] : Office 2019 / Office 365
Antw: hinzufügen von daten
« Antwort #3 am: Februar 14, 2012, 15:58:05 Nachmittag »
Hallo,

nein, der Code muss über den VBA-Editor in ein Code-Modul eingefügt werden.

Eine Erläuterung findest Du hier: http://msdn.microsoft.com/de-de/library/ee814737.aspx

Gruß

Officer
Weitere Informationen, Tipps & Tricks findest du auf Excel-Inside.de
Bitte erfolgreich beantwortete Fragen als gelöst kennzeichnen -  zur Anleitung

Offline BuMEuropa

  • Newbie
  • *
  • Beiträge: 5
    • Profil anzeigen
  • Office-KnowHow: Anfänger
  • VBA-KnowHow- : Ohne
  • Version [Office] : Office 2007
Antw: hinzufügen von daten
« Antwort #4 am: Februar 14, 2012, 16:27:36 Nachmittag »
Wenn ich das alles richtig verstanden habe ist das ein Makro.
Und ich brauche bei dem Code den du mir geschickt hast nur die jeweiligen daten in zb.: http://www.b-und-m.eu/csv/atixo/   ändern ist das korrekt?

Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden und Dein Anliegen in Auftrag geben.
>>> Schnell und einfach ein unverbindliches Angebot anfordern. Per E-Mail an anfrage@excel-inside.de oder per Online-Formular
<<<

!!! Wichtige Information
!!! Dieses Forum steht aus technischen Gründen ab dem 11. September 2019 nur noch im Lesemodus zur Verfügung.
Das NEUE Office-Fragen-Forum kannst du aber unter der gewohnten Domain https://office-fragen.de wie gewohnt nutzen.

- Wir freuen uns auf deinen Besuch im neuen Forum.

Offline BuMEuropa

  • Newbie
  • *
  • Beiträge: 5
    • Profil anzeigen
  • Office-KnowHow: Anfänger
  • VBA-KnowHow- : Ohne
  • Version [Office] : Office 2007
Antw: hinzufügen von daten
« Antwort #5 am: Februar 14, 2012, 16:28:52 Nachmittag »
oder ist a die spalte die ich auch ändern muss

Offline BuMEuropa

  • Newbie
  • *
  • Beiträge: 5
    • Profil anzeigen
  • Office-KnowHow: Anfänger
  • VBA-KnowHow- : Ohne
  • Version [Office] : Office 2007
Antw: hinzufügen von daten
« Antwort #6 am: Februar 14, 2012, 16:51:32 Nachmittag »
so ich denke ich habe das mal hinbekommen doch leider macht er mir schwierigjkeiten.
Er ändert mir immer nur die erste spalte die aber so bleiben soll wie sie ist! Löscht das ganze drinnen raus und fügt statt dessen die zahlen ein die am anfang jeder spalte stehen

Offline Officer

  • Global Moderator
  • Hero Member
  • *****
  • Beiträge: 59.503
    • Profil anzeigen
    • Excel-Inside Solutions
  • Office-KnowHow: Profi
  • VBA-KnowHow- : Sehr gut
  • Version [Office] : Office 2019 / Office 365
Antw: hinzufügen von daten
« Antwort #7 am: Februar 14, 2012, 19:01:16 Nachmittag »
Hallo,

gerne kannst Du deine Datei hochladen und noch mal konkret beschreiben, welcher Eintrag und welcher Link wo in der Tabelle konkret stehen soll.

Gruß

Officer
Weitere Informationen, Tipps & Tricks findest du auf Excel-Inside.de
Bitte erfolgreich beantwortete Fragen als gelöst kennzeichnen -  zur Anleitung

Wenn du dich noch intensiver mit Excel beschäftigen möchtest, dann empfiehlt sich ein Online-Kurs,
in dem du sehr viel über Excel erfährst und das gelernte umgehend in der Praxis anwenden kannst.