Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.05.2024 21:30:42
Bilder aus URL in Zelle einfügen - Code anpassen
07.05.2024 20:36:09
xverweis / name Funktion
07.05.2024 20:10:42
Datum z.B. 1897 wird nicht als Datum angezeigt
07.05.2024 19:47:07
Excel Lohnabrechnung anhand 2 Suchkriterien
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1228to1232
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1228to1232
1228to1232
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text in Variable kopieren

Text in Variable kopieren
Marlon
Hallo,
Ich will Text aus Excel nach word kopieren.
Die Verbindung von Word und Excel über die Library funktioniert.
Also z.B.
Dim Text as string
Text=Range("A1") & ", " & Range("A2")
Und jetzt muß ich irgenwie selektieren, damit ich das Selektierte pasten kann. Aber das funktioniert nicht.
Die Methode Range für das Objekt global ist fehlgeschlagen.
Kann ich die Variable nicht so einfach in Range() setzen?
Range(Text).Select
Word_App.Selection.PasteSpecial Link:=False, DataType:=wdPasteRTF, _
Placement:=wdInLine, DisplayAsIcon:=False
Word_App.Selection.TypeParagraph
Was mache ich falsch?
Danke,
marlon
AW: Text in Variable kopieren
16.09.2011 22:28:35
fcs
Hallo Marlon,
mit der richtigen Wordfunktion kannst du den Inhalter Variablen direkt in Word einfügen.
Text bitte nicht als Variablen-name verwenden, da "Text" auch ein Schlüsselwort in Excel und Word ist.
Da es in Word auch Range-Objekte gibt hab ich den Verweis auf das Excel-Tabellenblatt vervollständigt.
Gruß
Franz

Sub TextnachWord()
Dim sText As String
Dim Word_App As Word.Application
With ActiveSheet
sText = .Range("A1") & ", " & .Range("A2")
End With
'Im aktiven Worddokument an der Cursor-Position den Text und eine Zeilenschaltung einfügen
Set Word_App = Word.Application
With Word_App.Application
With .Selection
.InsertBefore Text:=sText
.Collapse Direction:=wdCollapseEnd
End With
.Selection.TypeParagraph
End With
End Sub

Anzeige
AW: Text in Variable kopieren
16.09.2011 23:44:40
Marlon
Hallo Franz,
ja, das hat mir sehr weitergeholfen.
Gibt es einen Grund warum Du zum Einfügen statt ".TypeText Text:="
das ".InsertBefore Text:" verwendest?
Gruß und Dank,
Marlon
AW: Text in Variable kopieren
17.09.2011 01:24:52
fcs
Hallo Marlon,
Gibt es einen Grund warum Du zum Einfügen statt ".TypeText Text:="
das ".InsertBefore Text:" verwendest?
Nein. Ich hatte jetzt auch nicht nach danach gesucht. ".TypeText" erfordert aber zwingend, dass das richtige Fenster in Word aktiv ist und der Cursor an der richtigen Position.
Ich arbeite aber meistens mit irgendwelchen Objekten in Worddokumenten, da sind andere Einfüge-Funktionen besser geeignet.
Gruß
Franz
Anzeige
AW: Text in Variable kopieren
17.09.2011 16:20:29
Marlon
Hallo Franz,
vielen Dank. Bin inzwischen super weitergekommen mit allem. Eigentlich fast perfekt.
Eine Kleinigkeit habe ich nicht hingekriegt. Vielleicht fällt Dir dazu spontan noch was ein:
Ich kopiere also den Text aus den Zellen nach Word rüber. Nach bestimmten Zellen in Excel/Absätzen in Word würde ich in Word
gerne einen Strich als Trenner setzen. Aber das krieg ich trotz Makrorecorder in Word nicht hin.
Ich versuche immer sowas:
' If Cells(i, 2) Cells(i - 1, 2) Then
' Selection.MoveUp Unit:=wdLine, Count:=1
' Selection.MoveDown Unit:=wdLine, Count:=1
' With Selection.Borders(wdBorderTop)
' .LineStyle = Options.DefaultBorderLineStyle
' .LineWidth = Options.DefaultBorderLineWidth
' .Color = Options.DefaultBorderColor
' End With
' End If
Aber das klappt nicht, weil er wohl irgendwie mit dem Selection-Ding nicht klarkommt.
Wenn du ohne große Mühe dazu noch einen Tipp hättest, würde ich mich freuen. Macht
aber nichts, wenn nicht. Bin sehr zufrieden.
Liebe Grüsse,
Marlon
Anzeige
AW: Text in Variable kopieren
18.09.2011 02:02:42
fcs
Hallo Marlon,
so sollte es funktionieren.
Wichtig ist, dass bei Selection hier auch immer bezug auf die Wordanwendung genommen wird.
Um Verwirrung/Verwechslung zu vermeiden hier immer die Objekte komplett referenzieren, insbesondere da hier in zwei MS Office-Anwendungen gearbeitte wird.
Gruß
Franz

Sub TextnachWord()
Dim sText As String, wks As Worksheet
Dim Word_App As Word.Application
Dim i As Long
Set wks = ActiveSheet
With wks
sText = .Range("A1") & ", " & .Range("A2")
End With
'Im activen Worddokument an der Cursor-Position den Text und eine Zeilenschaltung einfügen
Set Word_App = Word.Application
With Word_App.Application
With .Selection
.TypeText Text:=sText
End With
.Selection.TypeParagraph
'Zelleninhalte aus Excel eintragen, Absätze mit Rahmen unten, wenn in der nächsten _
Zeile in Spalte B (2) sich der Wert ändert.
For i = 4 To wks.Cells(wks.Rows.Count, 2).End(xlUp).Row
With .Selection
sText = wks.Cells(i, 2).Text & VBA.vbTab & wks.Cells(i, 3).Text
.TypeText Text:=sText
End With
.Selection.TypeParagraph
'Prüfen, ob in nächster Zeile sich der Wert in Spalte 2 ändert
If wks.Cells(i, 2)  wks.Cells(i + 1, 2) Then
.Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
With .Selection.ParagraphFormat
With .Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
.Color = wdColorAutomatic
End With
With .Borders
.DistanceFromBottom = 2
.Shadow = False
End With
End With
.Selection.MoveDown Unit:=wdLine, Count:=1
End If
Next
End With
End Sub

Anzeige
noch ein wenig gekürzt
18.09.2011 08:09:02
Erich
Hi,
in Franz' Code wird With noch nicht konseqent genutzt, was aber IMHO der Klarheit dienlich wäre.
Hier mein Viorschlag:

Sub TextnachWord()
Dim wks As Worksheet
Dim Word_App As Word.Application
Dim i As Long
Set wks = ActiveSheet
Set Word_App = Word.Application
'Im activen Worddokument an der Cursor-Position den Text
'und eine Zeilenschaltung einfügen
With Word_App.Application
With .Selection
.TypeText Text:=wks.Range("A1") & ", " & wks.Range("A2")
.TypeParagraph
End With
'Zelleninhalte aus Excel eintragen, Absätze mit Rahmen unten,
'wenn in der nächsten Zeile in Spalte B (2) sich der Wert ändert.
For i = 4 To wks.Cells(wks.Rows.Count, 2).End(xlUp).Row
With .Selection
.TypeText Text:=wks.Cells(i, 2).Text & vbTab & wks.Cells(i, 3).Text
.TypeParagraph
End With
'Prüfen, ob in nächster Zeile sich der Wert in Spalte 2 ändert
If wks.Cells(i, 2)  wks.Cells(i + 1, 2) Then
.Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
With .Selection.ParagraphFormat
With .Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
.Color = wdColorAutomatic
End With
With .Borders
.DistanceFromBottom = 2
.Shadow = False
End With
End With
.Selection.MoveDown Unit:=wdLine, Count:=1
End If
Next i
End With
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: noch ein wenig gekürzt
18.09.2011 12:06:27
fcs
Hallo Erich,
das ".Selection.TypeParagraph" kann man in diesem Fall in der Tat ohne ".Selection" in das vorherige With reinnehmen.
Ob man die zu übertragenden Inhalte vorher in einer Variablen (bei mir "sText") zusammenfast oder nicht, das ist Geschmackssache. Ich bevorzuge diese Methode, weil man so leichter Inhalte testen kann und die Methoden, in denen man die Werte einsetzt, bleiben übersichtlicher, insbesondere dann wenn mehrere Parameter übergeben werden müssen.
Gruß
Franz
Da sind wir ganz einig - schönen Sonntag! (owT)
18.09.2011 12:21:25
Erich
AW: Da sind wir ganz einig - schönen Sonntag! (owT)
18.09.2011 19:31:36
Marlon
Super! läuft alles perfekt. Vielen, vielen Dank. Bin happy.
Marlon

305 Forumthreads zu ähnlichen Themen

Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Anzeige
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
In Zwischenablage kopieren
Claudia

Hallo liebe VBA-Profis,
ich habe eine sehr einfache Bitte. Ich möchte die Daten aus den ersten drei Spalten (ab Zeile 2 einschließlich der letzten befüllten Zelle in Spalte A) mittelsn Makro in die Zwischenablage kopieren. Mehr nicht. :-)
Ich könnte das natürlich mit der Hand machen, d...
15.12.2008 18:19:49
Thread-ID: 1033106
4 Beiträge
Anzeige
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
suchen kopieren einfügen vba
Bea

Hallo zusammen
Ich hab folgendes Problem.
in der angehängten Beispielmappe möchte ich, das die in Arbeitsblatt "Nummern" hinterlegten Anfänge von Telefonnummern in Arbeitsblatt "evnachweis" gesucht die jeweiligen Zeilen kopiert und dann in Arbeitsblatt in dem Fall "Februar" (am besten...
10.03.2009 11:55:49
Thread-ID: 1058557
9 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
Mit VBA Zeilen in neue Register kopieren
Andreas

Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
Im Detail soll dies wie folgt fun...
08.06.2009 12:29:49
Thread-ID: 1079883
3 Beiträge
Gesperrte Zellen in Zwischenablage kopieren
Elias

Hallo Forum,
ich habe eine Tabelle, in welcher ein Datenbereich von B5:B20 per Button in die Zwischenablage kopiert werden soll.
Der Kram mit dem Button ist alles kein Problem, aber die Crux ist:
-Die Zellen sind gesperrt.
-Das PW darf nicht im VBA-Code hinterlegt werden, da das...
13.06.2009 23:26:05
Thread-ID: 1081337
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
1
2
3
10
2
8
2
2
5
7
6
1
4
7
3
1
5
5
6
8
2
2
8
1