+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: Makro: Zellenwert ändern und dann Drucken (/thread-8381.html)
Makro: Zellenwert ändern und dann Drucken - VBA_Noobin - 26.03.2020
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
RE: Makro: Zellenwert ändern und dann Drucken - RPP63 - 26.03.2020
Moin!
Unter der Voraussetzung
Zitat:Ich hab leider überhaupt keine Ahnung von Makros in Excelsolltest 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
RE: Makro: Zellenwert ändern und dann Drucken - RPP63 - 29.03.2020
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 SubRE: Makro: Zellenwert ändern und dann Drucken - VBA_Noobin - 29.03.2020
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!
RE: Makro: Zellenwert ändern und dann Drucken - VBA_Noobin - 30.03.2020
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? :/
RE: Makro: Zellenwert ändern und dann Drucken - RPP63 - 30.03.2020
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.
RE: Makro: Zellenwert ändern und dann Drucken - VBA_Noobin - 30.03.2020
Danke!
Danke!
RE: Makro: Zellenwert ändern und dann Drucken - thowe - 04.04.2020
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