Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Hyperlink aus Excelzeile auslesen ABER ein

Frage Entwicklung VB for Applications

Mitglied: drhyperion

drhyperion (Level 1) - Jetzt verbinden

29.04.2008, aktualisiert 10:11 Uhr, 7457 Aufrufe, 1 Kommentar

Hallo zusammen!

Ich habe folgende Frage.

In meinem Excelsheet habe ich eine Spalte, die mit der Überschrift LINK bezeichnet ist,
und ca. 100 Werte darin gespeichert sind. Es ist aber so, dass die Spalte 1) Firmenname lautet, in der Spalte 2) LINK steht, und auf dieses WORT Link ist der Hyperlink zu der Firmenadresse.... ich hoffe die Frage ist klar ; -)


Jetzt geht es darum, ich möchte den LINK also die URL mit http://www. blablabla aber in eine 3) Zeile kopieren.


WIE kann man den HYPERLINK, der auf dem Wort "LINK" gesetzt ist denn tatsächlich auslesen?

Ich möchte ungern jetzt 100 mal die Links anklicken und dann die inet-explorer URL herauskopieren und in die Zeile 3 kopieren.

Bitte selber mal probieren,
1) Zeile und das Wort "LINK" reinschreiben, dann draufcklicken und den Hyperlink einfügen z.B. http://www.administrator.de/

Dann ist im Excelsheet das Wort "LINK" mit dem Link auf die geilste Seite der Welt verlinkt.
(Ich glaube ich wiederhole mich ... ich möchte nun das der Link, der das Wort "LINK" auch tatsächlich verlinkt in die nächste Zeile schreibt).

Dann steht da hald "LINK" und ist auch verlinkt, wenn man drauf klickt, und in der 2. zeile steht dann der Link als "STRING" http://www.administrator.de/


Bitte um infos!

Geht darum, ich habe ganz 600 Firmendaten die ich herauslesen sollte, die kopiere ich dann (die URL) strings in eine Batch datei und die werden dann automatisch abgearbeitet und zeigen mir im inet explorer - die daten an.


Kann mir hier jemand weiterhelfen?
Was nicht geht, ist die Zelle markieren und auf kopieren und dann "Inhalte einfügen" klicken. das geht nicht.

58fead1631d0e1f44b107855f800189d-bsp - Klicke auf das Bild, um es zu vergrößern


Danke mal vorab!!

PS: ich hoffe ich habe alle Richtlinien eingehalten.

Vorab Danke!!

lg Clemens ^^
Mitglied: bastla
29.04.2008 um 10:11 Uhr
Hallo drhyperion und willkommen im Forum!

Versuch mal das folgende VBA-Script:
01.
Sub HyperlinkAdressenEintragen() 
02.
AbZeile = 2 
03.
AbSpalte = 2 'Spalte B 
04.
 
05.
Zeile = AbZeile 
06.
Do While Cells(Zeile, AbSpalte).Value <> "" 
07.
    Spalte = AbSpalte + 1 
08.
    For Each Link In Cells(Zeile, AbSpalte).Hyperlinks 
09.
        Cells(Zeile, Spalte).Value = Link.Address 
10.
        Spalte = Spalte + 1 
11.
    Next 
12.
    Zeile = Zeile + 1 
13.
Loop 
14.
End Sub
Zur Verwendung:

Nach einem Rechtsklick auf das Blattregister (zB "Tabelle1") und der Auswahl von "Code anzeigen" wird der VBA-Editor geöffnet. Füge in das Codefenster das obige Script ein, passe Startzeile und -spalte (beziehen sich auf die Zellen mit den Links) an, stelle den Cursor in eine beliebige Zeile des Scripts und starte mit dem "Play"-Symbol oder über F5 - das sollte es gewesen sein.

Zur Sicherheit solltest Du eine Kopie Deiner Tabelle zum Testen verwenden, da ab der Spalte rechts neben der Startspalte die Links eingetragen werden und dabei etwaige bisherige Inhalte überschreiben - die Mehrzahl bei "Links" verwende ich übrigens deshalb, weil es (technisch gesehen) auch mehrere Links je Zelle geben könnte und alle diese Links in die benachbarten Spalten geschrieben werden.

Das Script geht ab der Startzeile alle folgenden Zeilen durch, bis in einer Zeile in der Startspalte kein Inhalt mehr steht - es sollten sich daher zwischen Deinen 100 Zeilen keine Leerzeilen befinden. Ist dies doch der Fall, lässt sich das Script auch an die Zeilenanzahl anpassen.

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Festplatten, SSD, Raid
gelöst Windows 7 Pro x64 Key aus einer (fast) kaputten HDD auslesen (7)

Frage von carbon1X zum Thema Festplatten, SSD, Raid ...

Batch & Shell
gelöst Zeiten in .txt datei auslesen und Differenz berechnen (10)

Frage von meex87 zum Thema Batch & Shell ...

Batch & Shell
Dateigröße und Änderungsdatum auslesen (6)

Frage von michi-ffm zum Thema Batch & Shell ...

Batch & Shell
gelöst Problem Auslesen einer Internetseite mit Powershell (11)

Frage von c20082005 zum Thema Batch & Shell ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(9)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Router & Routing

PfSense auf Supermicro Intel Xeon D-15x8 SoC Bare Bone

Tipp von Dobby zum Thema Router & Routing ...

Heiß diskutierte Inhalte
Windows 10
Windows für Privatanwender "nicht mehr handhabbar" (26)

Frage von FA-jka zum Thema Windows 10 ...

LAN, WAN, Wireless
Brauche Hilfe: Mit (schnellem) WLAN Strecke überbrücken (23)

Frage von pierrehansen zum Thema LAN, WAN, Wireless ...

Basic
Programmierung von Windows Programmen (10)

Frage von Ghost108 zum Thema Basic ...