Thema Datum  Von Nutzer Rating
Antwort
08.02.2023 09:54:10 Merve
NotSolved
09.02.2023 01:09:43 Gast01287
NotSolved
Rot For-Schleife
09.02.2023 01:46:06 Merve
NotSolved
09.02.2023 03:45:51 Gast01287
NotSolved
09.02.2023 08:42:48 Gast36334
NotSolved
09.02.2023 12:43:45 Merve
NotSolved
09.02.2023 13:05:32 Merve
NotSolved

Ansicht des Beitrags:
Von:
Merve
Datum:
09.02.2023 01:46:06
Views:
365
Rating: Antwort:
  Ja
Thema:
For-Schleife

Hallo,

meine derzeitige Code sieht so aus. Aber es klappt leider immer noch nicht. Es wird nichts angezeigt.

Sub ExportToWord()
Dim wordapp As New Word.Application
Dim doc As Word.Document
Dim strA As String
wordapp.Visible = True
Set doc = wordapp.Documents.Open("Pfad")

Dim LetzteZeile As Long
Dim i As Integer
LetzteZeile = Cells(Rows.Count, 1).End(xlUp).Row

For i = LetzteZeile To 11 Step -1
    If Tabelle1.Cells(i, 1).Value = "Vorname" And Tabelle1.Cells(i, 1).Value = "Nachname" Then

strA = Cells(i, 2) & " " & Cells(i, 3)
doc.Bookmarks("Anschrift").Range.Text = strA

End If
Next i
End Sub

 

Sollte ungefähr so aussehen:  Sara S

                                                 Christine CH 

                                                 ....

Danke 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.02.2023 09:54:10 Merve
NotSolved
09.02.2023 01:09:43 Gast01287
NotSolved
Rot For-Schleife
09.02.2023 01:46:06 Merve
NotSolved
09.02.2023 03:45:51 Gast01287
NotSolved
09.02.2023 08:42:48 Gast36334
NotSolved
09.02.2023 12:43:45 Merve
NotSolved
09.02.2023 13:05:32 Merve
NotSolved