AW: LIKE
07.12.2010 13:30:42
Yusuf
Hallo Erich,
vielen Dank. Der Like-Befehl war genau das was ich gesucht habe.
Und vielen Dank fuer die verstaendliche Erklaerung.
Ich kann es nicht in einen With-Block setzen, da ich die Zelle(j,22) aus DatenBlatt mit der Zelle(i,2) aus ErgebnisBlatt vergleiche.
Ich zumindest wuesste keine Moeglichkeit in einem With-Block zwei verschiedene Blaetter anzusprechen.
Das ganze sieht nun so aus. Geht ganz bestimmt schoener, aber es funktioniert.
Sub Daten_Auswerten_Anzahl(ErgebnisBlatt As String, DatenBlatt As String)
Dim letzte_Zeile_Ergebnisblatt As Long
Dim letzte_Zeile_Datenblatt As Long
Dim i As Long
Dim j As Long
Dim k As Long
letzte_Zeile_Ergebnisblatt = Sheets(ErgebnisBlatt).Range("A65536").End(xlUp).Row
letzte_Zeile_Datenblatt = Sheets(DatenBlatt).Range("A65536").End(xlUp).Row
For i = 4 To letzte_Zeile_Ergebnisblatt
For j = 2 To letzte_Zeile_Datenblatt
If Sheets(ErgebnisBlatt).Cells(i, 1) = Sheets(DatenBlatt).Cells(j, 33) Then
If Not Sheets(ErgebnisBlatt).Cells(i, 2) Like "*" & Sheets(DatenBlatt).Cells(j, _
22) & "*" Then
Sheets(ErgebnisBlatt).Cells(i, 2) = Sheets(ErgebnisBlatt).Cells(i, 2) & "|" _
& Sheets(DatenBlatt).Cells(j, 22)
End If
If Not Sheets(ErgebnisBlatt).Cells(i, 4) Like "*" & Sheets(DatenBlatt).Cells(j, _
6) & "*" Then
Sheets(ErgebnisBlatt).Cells(i, 4) = Sheets(ErgebnisBlatt).Cells(i, 4) & "|" _
& Sheets(DatenBlatt).Cells(j, 6)
End If
If Not Sheets(ErgebnisBlatt).Cells(i, 5) Like "*" & Sheets(DatenBlatt).Cells(j, _
17) & "*" Then
Sheets(ErgebnisBlatt).Cells(i, 5) = Sheets(ErgebnisBlatt).Cells(i, 5) & "|" _
& Sheets(DatenBlatt).Cells(j, 17)
End If
Sheets(ErgebnisBlatt).Cells(i, 3) = Sheets(DatenBlatt).Cells(j, 23)
Sheets(ErgebnisBlatt).Cells(i, 6) = Sheets(ErgebnisBlatt).Cells(i, 6) + Sheets( _
DatenBlatt).Cells(j, 27)
End If
Next
Next
End Sub
Gruß
Yusuf