Office: Wert finden und ganze Zeile ausgeben

MisterBurns · 22. November 2018

Ja wenn das so einfach ist... nichts wie los!
Ich kann dir dabei nicht helfen, da ich mit Word-VBA keine Erfahrung habe.

User · 12. Januar 2021

von MisterBurns

Ja wenn das so einfach ist... nichts wie los!
Ich kann dir dabei nicht helfen, da ich mit Word-VBA keine Erfahrung habe.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie ich solche Kommentare immer liebe!

Falls es jemanden interessiert hier ist die erste Rohfassung.
Es werden die Daten korrekt ausgelesen und an Word übertragen.
Nun muss ich noch die Tabelle immer wieder leeren wenn ich zu einem anderen Lieferanten gehe.

Code:

Sub WordLiestExcel()
Dim appExcel As Excel.Application
Dim wbkExcel As Excel.Workbook
Dim wksExcel As Excel.Worksheet
Dim rngExcel As Excel.Range
Dim loLieferant As Long

On Error GoTo FehlerMarke

'Lieferantennummer ermitteln
loLieferant = ActiveDocument.MailMerge.DataSource.DataFields("Lieferantennummer").Value

ActiveDocument.Tables(1).Cell(1, 1).Select
Selection.Collapse Direction:=wdCollapseStart

'Excel Datei öffnen, Mappe auswählen und Range ermitteln
Set appExcel = Excel.Application
Set wbkExcel = appExcel.Workbooks.Open(ThisDocument.Path & "daten.xlsx", , , , , , , , , , , , False)
Set wksExcel = wbkExcel.Worksheets("Produkte")
Set rngExcel = wksExcel.UsedRange

'Produkte anhand der Lieferantennummer filtern
wksExcel.Range(rngExcel.AddressLocal).AutoFilter 1, loLieferant

'gefilterte Daten kopieren
wksExcel.Range(rngExcel.AddressLocal).Copy

'Einfügen der kopierten Daten
Selection.PasteAppendTable

Exit Sub

FehlerMarke:
MsgBox Err.Description

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

MaxHab88 · 15. November 2019

Hi Ingolf,

ist zwar schon lange her, aber hätte zu deinem Code ein Frage? Wie lautet denn der Code wenn ich nach einer Zahl kleiner bzw. größer als 1000 suchen möchte. Also nicht speziell nach einer Zahl sondern einem Zahlenbereich? Dieser soll dann in Tabelle2 ausgegeben werden. Meine Versuche waren bis jetzt erfolglos.

Wäre dir sehr dankbar für deine Hilfe

VG

Max

Office: Wert finden und ganze Zeile ausgeben

Wert finden und ganze Zeile ausgeben

Wert finden und ganze Zeile ausgeben

Wert finden und ganze Zeile ausgeben - Similar Threads - Wert Zeile ausgeben

Letzten Wert(Text!) einer Zeile ausgeben

Wert in Matrix suchen, Zeile ausgeben

1Zeile() ausgeben wenn der Wert > 3 "ist.

Nächst grösseren Wert in Tabelle nach Spalte suchen und Zeile ausgeben

Name in Datenbereich suchen und zugehörigen Wert in der Zeile in einer neuen Tabelle ausgeben

Wert in Zeile suchen und gesamte Spalte ausgeben

Inhalt einer Zelle mit Tabelle abgleichen, Wert aus gleicher Zeile ausgeben