Von Word zu Excel und wieder zurück
05.07.2017 18:17:29
Hendrik
ich habe in Word eine Userform erstellt mit zwei TextBoxen.
In der ersten TextBox soll ein Text eingegeben und in der zweiten später ein Wert ausgegeben werden.
Der Hintergrund: Text aus Textbox1 in Excel Tabelle suchen und die Zeile des gefundenen Werts in Textbox2 (Word - Userform) ausgeben.
Ich habe folgenden Ansatz:
Prozedur in Word:
Sub Word()
Dim ExcelSheet As Object
Dim suche As String, ersatz As String
Dim Datei As String
Datei = "mein Dateipfad+Dateiname"
Set ExcelSheet = CreateObject("excel.Application").Workbooks.Open(Datei)
ExcelSheet.Application.Visible = True
ExcelSheet.Application.Cells.Select
End Sub
Mit diesem Code wird meine Excel Tabelle geöffnet.
Bei meiner Prozedur in Excel fehlt mir die Idee wie ich den Inhalt der Textbox1 aus Word in Excel bekomme.
Und wie kann ich am Ende der Prozedur den Wert aus Zelle "Z1" in die Textbox2 (Word) bekommen ?
Irgendwie-mit-Halbwissen-zusammengebastelter-Code für Excel
Prozedur in Excel:
Sub Excel
Dim eingabe As Double
Dim Zeile As Long
Activedocument.Document.R
If TextBox1 = "" Then
MsgBox "Bitte einen Nachnamen eingeben!"
Else
eingabe = TextBox1.Value
Zeile = Sheets("Post").Columns("F:F").Find(What:=eingabe, After:=ActiveCell, LookIn:= _
xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row
Worksheets("Post").Range("Z1").Value = Zeile
End If
End Sub
Vielen Dank schon mal für Eure Hilfe!!!!!
Grüße
Hendrik