Excel-Pdf-Automatisierung

Hallo Claus,

vielen vielen Dank für deine schnelle Hilfe, also es hat sich was getan, aber leider nur bei 2 Usern von 1500 Usern. Woran kann das liegen?

LG Benny

Hallo Benny,

probiere es mal so:

Sub MailAdressen()

Dim arrCheck As Variant

Dim ArrOut As Variant

Dim LRow As Long, i As Long, j As Long

With ActiveSheet

LRow = .Cells(Rows.Count, 1).End(xlUp).Row

arrCheck = .Range("A2:A" & LRow)

ArrOut = .Range("C2:C" & LRow)

For i = LBound(ArrOut) To UBound(ArrOut)

For j = LBound(arrCheck) To UBound(arrCheck)

If ArrOut(i, 1) = arrCheck(j, 1) Then

ActiveSheet.Hyperlinks.Add _

anchor:=.Cells(i + 1, "D"), _

Address:="mailto:" & .Cells(j + 1, 2), _

TextToDisplay:=.Cells(j + 1, 2).Text

Exit For

End If

Next

Next

End With



End Sub

Mit freundlichen Grüßen

Claus

Hallo,



da du hier bisher keine Antwort erhalten hast, möchte ich dich bitten, deine Anfrage direkt im Entwickler-Forum von Microsoft zu posten. Das Microsoft-Developer-Netzwerk ist auf diese Anfragen spezialisiert.



Wir haben hier zwar auch Profis, die sich mit der Programmierung befassen, in erster Linie aber User, die anderen Usern helfen.



Leider ist es mir nicht möglich deine Anfrage direkt dorthin zu verschieben, ich möchte dich deshalb bitten diese Anfrage erneut im MSDN-Forum zu stellen.

Hier der Link zum Forum:

http://social.msdn.microsoft.com/Forums/de-DE/category/officede

Es wäre sehr nett von dir, wenn du uns einen Link zu deinem Posting im MSDN-Forum zur Verfügung stellst. Auf diese Weise können auch andere User schnell die Antwort finden.



Gruß

Thomas

Hallo Benny,

ich sehe nur 3 Zeilen deiner Daten und kann das daher nicht beurteilen. Hast du zwischen jedem Eintrag eine Leerzeile? Kann es sein, dass die Schreibweisen aus Spalte A nicht mit denen in Spalte C übereinstimmen? Das könnten auch führende oder nachfolgende
Leerzeichen sein.

Wenn das alles nicht hilft, stelle mal mehr Daten zur Verfügung.

Mit freundlichen Grüßen

Claus

Excel 2012 Automatisierung



Ok, ich habe die Frage dort nocheinmal gestellt.

EDIT: Auch dort scheint die Frage neimand beantworten zu können. Ich werde das Thema jetzt mal ruhen lassen und mir ine andere Lösung suchen.