Hallo Experten,
ich habe eine Excel-Liste, welche aus 11 Spalten und ca. 1500 Zeilen besteht. Diese sind nach Spalte B (Lieferant) sortiert.
Ich hätte jetzt gern einen Ausdruck pro Lieferant. Das heißt, ich möchte immer die oberste Zeile (Überschriften) und den jeweiligen Lieferanten markieren. Es muss noch die Bedingung gegeben sein, dass in Spalte 5 der Text "food" oder "Food" vorkommt.
Wie könnte ich das realisieren? Ich hänge euch mal meinen Quellcodeversuch an, leider klappt es damit nicht so, wie ich möchte...
Anbei auch der Rapidshare-Link zur Datei.
https://rapidshare.com/files/3720805657/Prodotti_-_Kopie.xls
Könnt ihr mir da helfen?
Code: |
Sub Makro2()
Dim zelle As Range
Range("B2").Activate
For Each zelle In Range("B2:B5000")
'zelle.Select
Set markierung = Range(zelle.Address)
Debug.Print zelle
Debug.Print zelle.Offset(0, 3).Value
If InStr(zelle.Offset(0, 3).Value, "Food") Or InStr(zelle.Offset(0, 3).Value, "food") Then
If zelle.Value = zelle.Offset(1, 0) Then
anfang = zelle.Address
Debug.Print anfang
Else
ende = zelle.Offset(0, 9).Address
Debug.Print ende
End If
Range("A1:K1", Range(anfang, ende)).Select
'Bereich drucken
Else
End If
Next
End Sub
|
|