Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
01.09.2020 19:34:47 |
Lauro |
|
|
|
01.09.2020 19:41:54 |
ralf_b |
|
|
Bei aktvierten Checkboxen Makro mit Filter mit jeweils hinterlegten Werte ausführen |
01.09.2020 20:25:21 |
Lauro |
|
|
Von:
Lauro |
Datum:
01.09.2020 20:25:21 |
Views:
673 |
Rating:
|
Antwort:
|
Thema:
Bei aktvierten Checkboxen Makro mit Filter mit jeweils hinterlegten Werte ausführen |
Tabelle relativ simpel:
Blatt Contacts:
-
Spalte A: Kundennummer
-
Spalte B: Kundenname
-
Spalte C: Email-Adresse
Blatt: Datas
-
A: Materialnummer;
-
B: Bezeichnung,
-
C: Kundennummer
-
D: Menge Monat 1
-
E: Menge Monat 2 usw.
Es soll nun die Kundennummer aus Blatt contacts nehmen, sofern diese über eine Steuerbox aktivert ist und den Filter in Blatt Datas entsprechend dieser Nummer in Spalte C setzen - dann die Werte kopieren, neue Datei erzeugen usw.
Aktuell mit Abfragebox nach der Kundennummer sieht der Part des codes simplerweise, da manuell wiefolgt aus:
' Kunde selektieren
Sheets("Datas").Select
Rows("3:3").Select
mynum = Application.InputBox("Kundennummer")
Selection.AutoFilter Field:=4, Criteria1:=mynum
' kopieren & Werte einf?gen
Dim letzteZeile As Long
letzteZeile = Range("a1048576").End(xlUp).Row
Range("a1:am" & letzteZeile).Copy
Workbooks.Open "C:\testFormatvorlage.xltx"
Range("a13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Alles weitere passiert in der neuen Datei ohne Problem... geht mir nur das mynum-Tier mit den Werten aus aktivierten Häkchen zu ersetzen und dann in Serienbrief-Manier die Kunden 1 bis 100+ (sofern aktiviert) da durchlaufen zu lassen.
L.
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
01.09.2020 19:34:47 |
Lauro |
|
|
|
01.09.2020 19:41:54 |
ralf_b |
|
|
Bei aktvierten Checkboxen Makro mit Filter mit jeweils hinterlegten Werte ausführen |
01.09.2020 20:25:21 |
Lauro |
|
|