Namensliste erstellen auf die bestimmte "Werte" zutreffen

Hallo Daniel,

schau mal hier:

https://1drv.ms/x/s!AqMiGBK2qniTgeEg9J-Zczn5xb2vDQ

Claus

Beim Übertragen hat sich jetzt doch noch eine Frage ergeben.

Was gebe ich ein, um nichts in den Zeilen stehen zu haben wenn noch keine Werte zutreffen? Also ich meine damit, dass ich die Formeln bereits für die gesamte Spalte eingeben möchte, damit es nicht nachträglich angepasst werden muss.

Hallo Michaela,

du solltest ein Beispiel posten, wie deine Daten in Excel aussehen und dann auch beschreiben, wie sie in Word aussehen sollen. Sollen die dort wirklich hintereinander semikolongetrennt aufgeführt werden?

Mit freundlichen Grüßen

Claus

Hallo Mike,

ganz herzlichen Dank. So ganz funktioniert es nicht aber vielleicht kriege ich es hin. Liegt an meinen Kenntnissen.

Lg Michaela

Hallo Michaela,

kopiere folgendes Makro in deine Excel-Datei (VBA-Editor).



Sub Adressen_nach_Word()

Dim WordApp As Object

Dim WordDok As Object

Dim strAdr As String

Dim i As Integer



On Error GoTo WordStarten

Set WordApp = GetObject(, "Word.Application")

GoTo Weiter



WordStarten:

Set WordApp = CreateObject("Word.Application")



Weiter:

WordApp.Visible = True

Set WordDok = WordApp.Documents.Add



With ThisWorkbook.Worksheets("Tabelle1") 'Tabellenname lt. Tab-Register

For i = 2 To .UsedRange.Rows.Count

strAdr = strAdr & .Cells(i, "a").Value & " ("

strAdr = strAdr & .Cells(i, "b").Value & "); "

Next i

End With



WordDok.Select

WordApp.Selection.TypeText Text:=strAdr



Set WordApp = Nothing

Set WordDok = Nothing

Exit Sub

Fehler:

MsgBox "Bei der Übertragung ist ein Fehler aufgetreten!"

Set WordApp = Nothing

Set WordDok = Nothing

End Sub

Beste Grüße

Mike