Office: Satz aufteilen in Array

xlph · 29. August 2016

Kann es mehrere Übereinstimmungen geben?

Falls ja, dann werden diese in der Schleife überschrieben, da sie nicht verlassen wird.

Äpfel und Birnen sin in beiden Dateien, demnach werden die Äpfel-Daten von den Birnen-Daten überschrieben!

FHACStudent · 29. August 2016

Ja, ist mir soweit bewusst und ist erstmal nicht wichtig.

xlph · 30. August 2016

Warum öffnest du nicht einfach die Quelle und kopierst die Daten?

xlph · 30. August 2016

Dann doch so...

Code:

Public Sub xlph_Daten_kopieren()

Dim strPath As String
Dim strFile As String
Dim strSheet As String
Dim strAddress As String

Dim strFormula As String

Dim lngRow As Long

Dim astrWord() As String
Dim vntWord As Variant

Dim avntRef() As Variant
Dim vntRef As Variant

strPath = "C:\Users\Desktop\"
strFile = "TimeSheet_MusterfrauL_2016.xlsx"
strSheet = "Jan"

Application.ScreenUpdating = False

With Tabelle14

astrWord() = GetWords(.Range("A8").Value)

ReDim avntRef(0 To 8)

For lngRow = 12 To 20

strAddress = "A" & lngRow

strFormula = "='" & strPath & "[" & strFile & "]" & strSheet & "'!" & strAddress

.Range("B15").Formula = strFormula

avntRef(lngRow - 12) = .Range("B15").Value

.Range("B15").Value = Empty

Next

For Each vntWord In astrWord

lngRow = 12

For Each vntRef In avntRef

If Not IsEmpty(vntRef) Then
If vntWord = vntRef Then

strAddress = "D" & lngRow

strFormula = "='" & strPath & "[" & strFile & "]" & strSheet & "'!" & strAddress

With .Range("B15").Resize(, 31)

.Formula = strFormula

.Formula = .Value

End With

End If
End If

lngRow = lngRow + 1

Next

Next

End With

Application.ScreenUpdating = True

End Sub

Public Function GetWords(ByVal strText As String) As String()
Dim lngI As Long
Const conReplacements As String = "();:"

For lngI = 1 To Len(conReplacements)
strText = Replace(strText, Mid$(conReplacements, lngI, 1), " ")
Next

strText = Trim$(strText)

Do Until InStr(strText, " ") = 0
strText = Replace(strText, " ", " ")
Loop

GetWords = Split(strText, " ")

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

FHACStudent · 30. August 2016

Danke dir für deine Mühe. Irgendwie ist für mich der Code unübersichtlich und klappt leider nur für den Vergleich mit der Zeile 12. Die anderen Zeilen geht er bei mir soweit nicht durch.

Gruß,
FHACStudent

xlph · 30. August 2016

Das kann nicht sein.

Habe es an der Bsp-Datei getestet.

Office: Satz aufteilen in Array

Satz aufteilen in Array

Satz aufteilen in Array

Satz aufteilen in Array

Satz aufteilen in Array - Similar Threads - Satz aufteilen Array

Trennbindestriche von Wörtern im Satz finden und schließen

CONDENSE: Zusammenschieben benachbarter gleicher Sätze

Access bestimmte Datenfelder/-sätze aus Tabelle A in Tabelle B kopieren (über alle Datenfelder)

Mehrere Datensatzbilder in einer Datei in einen Satz überführen

Daten sätze durchsuchen

Schwarze Vierecke vor jedem ersten Satz der Seite

mehrere Sätze vergleichen und zusammenzählen