Daten von Excel nach Word
11.10.2018 16:56:47
Excel
Version ist Excel/Word 2013.
Ich habe ein Register mit Daten in Excel und möchte dort nach einen vorher in eine userform gegebenen Begriff suchen, dann von dem Ergebnis dieser Suche 3 Zeilen nach rechts und den Wert dieser Zelle dann in eine Variable speichern um sie in Word mit vba weiterzuverarbeiten.
In Excel ist dies kein Problem, aber das in Word zu programmieren geht noch über meine Kenntnisse hinaus.
Hier einmal der Code in Excel zum besseren Verständnis:
Sub cmdB_click()
Dim BENr As String
Dim rngZelle As Range
BENr = TxtB_BENr
If BENr "" Then
With Worksheets("2018BE").Columns(1)
Set rngZelle = .Find(BENr, lookat:=xlPart, LookIn:=xlValues)
If Not rngZelle Is Nothing Then
'rngZelle.Offset(0, 5) = "Genehmigt"
Else
MsgBox "Suchbegriff nicht gefunden"
End If
End With
Else
MsgBox "BENr. ist leer!"
End If
Dim vagaz As String
vagaz = rngZelle.Offset(0, 1)
end sub
In Word hatte ich jetzt diesen Code versucht, aber egal wie ich ihn auch abändere, es _ funktioniert nicht, weshalb ich jetzt hier um Hilfe bitten muss.
Sub CommandButton1_Click()
Dim thome As String
Dim aktuelles As String
Const xlValues = -4163
Const xlWhole = 1
Dim irg As Excel.Range
Dim Excel As Object
aktuelles = "gs1"
Set Excel = CreateObject("Excel.Application")
Excel.Workbooks.Open ("D:\Register.xlsm")
Excel.Application.Visible = False
Set irg = Excel.Range("A:A").Find(aktuelles, LookIn:=xlValues, LookAt:=xlWhole)
thome = Excel.irg(0, 1).Value
MsgBox thome
Excel.Quit
End Sub
Was ist an dem Code falsch?
Für jede Hilfe bin ich sehr dankbar.
Lg
Marc