Makro: Zellenwert ändern und dann Drucken

[VBA_Noobin]

Hallo zusammen,

Ich hab leider überhaupt keine Ahnung von Makros in Excel  
Deshalb hoffe ich auf eure Hilfe! Danke schon mal 

Ich habe in Zelle B1 eine Nummer einer Filiale stehen, zB 1234
Wird diese geändert, werden in allen darunterliegenden Zellen alle Umsätze etc.

Jetzt hätte ich gern, dass ich durch Klick auf eine Makro-Schaltflächen folgendes ausführe:
In Zelle B1 wird nacheinander jede Filialnummer aufgeführt. Nach jeder Filialnummer wird das Blatt gedruckt.

Die Filialnummer sind leider nicht aufsteigend
Nach 1234
Kommt zB 8971

Kann mir jemand helfen?
Danke!!!! 

Liebe Grüße

Die VBA_noobin 

[RPP63]

Moin!
Unter der Voraussetzung

Ich hab leider überhaupt keine Ahnung von Makros in Excel

solltest Du mal eine Datei hochladen, die vom Aufbau her exakt Deiner Arbeitsdatei entspricht.


Wichtig ist natürlich auch, dass das Blatt mit den Filialnummern vorhanden ist.

Gruß Ralf

[RPP63]

Da sich unser TE mit den vielen Smilies nicht mehr meldet, will ich für die Mitlesenden zumindest mal eine mögliche Lösung vorstellen.
Filial-Nr. in Tabelle2!A2:An (unbekannte Anzahl, lückenlos ab A2)
Verweiszelle (auf die die übrigen Kundendaten per SVERWEIS zugreifen) in Tabelle1!B3

Code:

Sub Ausdruck()
Dim i&
Dim Filialnr As Range
Set Filialnr = Range(Tabelle2.Range("A2"), Tabelle2.Range("A2").End(xlDown))
For i = 1 To Filialnr.Count
  With Tabelle1
    .Range("B3").Value = Filialnr.Cells(i)
    .PrintPreview 'zum testen
    '.PrintOut 'zum tatsächlichen Ausdruck
  End With
Next
End Sub

[VBA_Noobin]

Hey,

Sorry ich hatte leider bisher noch keine Zeit
Ich nehme das heute Abend direkt in Angriff und lade das hoch
Danke schon mal für die Mühe!

[VBA_Noobin]

So, tatsächlich habe ich es dann jetzt auch mal fertig gekriegt. Sorry für die Verzögerung!

Hm, jetzt gerade sehe ich, dass ich nur Bilder anfügen kann, oder bin ich blind? :/

---

[RPP63]

Gehe nicht in die Schnellantwort, sondern klicke auf Antworten.
Danach dann "Neues Attachment"
Auswählen, OK, und dann
"Attachment hinzufügen"

Ich gestehe, ist hier in diesem Forum "etwas" versteckt.

[VBA_Noobin]

Danke!

---

Danke!

[thowe]

Hallo VBA_Noobin!

Die Datei hast du hochgeladen.
Formeln kann ich keine ersehen
Ist - aber - egal, bei deinem Ansinnen.

Nur was erwartest du dir jetzt?
RPP63 hat dir die Lösung gepostet.
Sollen wir jetzt DEINE Datei fertigstellen?

Ist es Zuviel verlangt, dass du selbst den Code in ein Modul einfügst? Wenn ja, woran hapert es?
Es ist bald Ostern, vielleicht hoppelt ein Osterhase hier vorbei....

lg
thowe