Thema Datum  Von Nutzer Rating
Antwort
Rot Excel VBA - Produktliste drucken
 26.01.2012 15:58:45 Markus
NotSolved

Ansicht des Beitrags:
Von:
Markus		 Datum:
26.01.2012 15:58:45		 Views:
1556		 Rating:
     
Antwort:
  Ja
Thema:
Excel VBA - Produktliste drucken

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
 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel VBA - Produktliste drucken
 26.01.2012 15:58:45 Markus
NotSolved