String erweitern
14.08.2005 15:11:58
SusanneNr.1000
ich habe mal wieder ein Problem und hoffe, dass mir hier im Forum geholfen werden kann!
Ich habe ein Makro, das Internetadressen per Knopfdruck aus der Zwischenablage ausliest und dann in veränderter Form in eine vorgegebene Zelle schreibt, z.B. in der Form "google.de". Das hat auch soweit sehr gut funktioniert. Das Problem ist nur, dass ich nun auch immer häufiger Internetadressen nicht in der Form "http://.../..., sondern nur in der Form www...../... vorliegen habe (also ohne "http://" und dies dann jedesmal eine Fehlermeldung produziert hat. Darum habe ich mir überlegt, dass ich vorweg eine Abfrage des Strings in der Zwischenablage schalten wollte, der prüft ob http:// vorhanden ist und wenn nicht den String vor der Weiterverarbeitung so verändert, dass ein http;// vornedrangehängt wird. Irgendwas muss ich aber falsch gemacht haben, da auch das immer zu einer Fehlermeldung führt. Ich schreibe euch mal meinen Code auf und würde mich sehr freuen, wenn mir jemand helfen könnte!
Sub LinkBearbeiten()
Dim strAddresse$
Dim strErgebnis$
Dim oData As DataObject
Set oData = New DataObject
oData.GetFromClipboard
On Error Resume Next
strAddresse = oData.GetText
Fehler = Err.Number
strFehler = Err.Description
On Error GoTo 0
Select Case Fehler
Case 0 'Alles paletti
Case -2147221404 'Format kann nicht interpretiert werden
MsgBox "Ungültiges Format!", vbExclamation
Case Else 'Ein unbekannter Fehler ist aufgetreten
MsgBox Fehler & vbCr & strFehler, vbExclamation
End Select
strErgebnis = Replace(Split(strAddresse, "/", -1, 0)(2), "www.", "", 1, -1, 1)
ActiveCell.Value = strErgebnis
Call DatumeineZelleweiterlinks
End Sub
Vielen Dank im Voraus und Liebe Grüße
Susanne