Teilstring Suche in zwei Spalten

Hallo zusammen,
muss mich leider schon wieder an Euch wenden...
In einer seperaten Daten Datei, in meiner Beispielmappe ists Tabellenblatt 1, werden täglich Störgründe in einer Datei abgestellt.
Diese sollen in einer Übersicht mit der Stördauer zusammengefasst werden = Tabellenblatt 2.
Problem an der Geschichte ist, dass ich keinen normalen Verweis aus der Zielmappe machen kann, da ich keine genau übereinstimmenden Kriterien habe.
Mein Gedanke war nun, die Inhalte der Tagesdatei durchlaufen lassen, und jeweils mit dem Suchkriterium aus Spalten A und B in der Zusammenfassung, also bei mir im zweiten Tabellenblatt die Zeile zu suchen, in der diese Suchinhalte in Spalte C+D nebeneinader enthalten sind (und eben nicht exakt sondern nur als Teilstring), in die gefundene Zeile soll dann die Störzeit zum entsprechenden Datum bzw. Spalte eingetragen werden.
Den Eintrag zum Datum bekomm ich denk hin, mir fehlt nur die Fähigkeit für nen funktionierenden VBA-Code.
hier die Beispielmappe
https://www.herber.de/bbs/user/149658.xlsx
Für ne Hilfe bin ich schon jetzt dankbar, Gruß Bernd

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Bernd
- ich bin davon ausgegangen, dass die Zeilen unter den Tagen (ermittelt aus Tabellenblattname) eingefügt werden sollen
- F:J++ ab Zeile 5 als Zeit formatieren
in ein Modul


Sub Ziel()
Dim TB1 As Worksheet, TB2 As Worksheet, LR1 As Long
Dim Sp1 As Integer, Sp2 As Integer, Z1 As Integer, i As Long
Dim Datum As Date, ZZe As Integer, ZSp As Integer
Dim C As Range, firstAddress As String, TMP As Boolean
Set TB1 = Sheets(1)
Sp1 = 1 'Daten in Spalte A
Z1 = 3 'Daten ab Zeile 3
Set TB2 = Sheets(2)
Sp2 = 3 'Daten in Spalte C
ZZe = 3 'Zeile mit Datum für Ziel
'Zieldatum aus Blattname
Datum = DateValue(Format(Left(TB1.Name, 8), "0000-00-00"))
'Zeilspalte
ZSp = WorksheetFunction.CountIf(TB2.Rows(ZZe), CDbl(Datum)) 'Datum vorhanden?
If ZSp > 0 Then
ZSp = WorksheetFunction.Match(CDbl(Datum), TB2.Rows(ZZe), 0) 'in welcher Spalte
Else
MsgBox Datum & ": nicht gefunden"
Exit Sub
End If
With TB1
LR1 = .Cells(.Rows.Count, Sp1).End(xlUp).Row 'letzte Zeile der Spalte
For i = Z1 To LR1
TMP = False
Set C = TB2.Columns(Sp2).Find(.Cells(i, Sp1), LookIn:=xlValues, LookAt:=xlPart)
If Not C Is Nothing Then
firstAddress = C.Address
Do
'Fund in Spalte C, Vergleichen Spalte D
If InStr(C.Offset(0, 1).Value, .Cells(i, Sp1).Offset(0, 1)) > 0 Then
'Zeit dazurechnen
TB2.Cells(C.Row, ZSp) = TB2.Cells(C.Row, ZSp) + .Cells(i, Sp1).Offset(0, 3)
TMP = True
Exit Do
End If
Set C = TB2.Columns(Sp2).FindNext(C)
Loop While Not C Is Nothing And C.Address  firstAddress
End If
If Not TMP Then
MsgBox .Cells(i, Sp1) & ";  " & .Cells(i, Sp1).Offset(0, 1) & vbLf & vbLf & _
"nicht gefunden"
End If
Next
End With
End Sub

- Probleme gibt es bei 51 und 52. Hier ist der Suchbegriff schon länger ist als in der Findespalte
LG UweD

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread