Thema Datum  Von Nutzer Rating
Antwort
01.09.2020 19:34:47 Lauro
NotSolved
01.09.2020 19:41:54 ralf_b
NotSolved
Rot Bei aktvierten Checkboxen Makro mit Filter mit jeweils hinterlegten Werte ausführen
 01.09.2020 20:25:21 Lauro
NotSolved

Ansicht des Beitrags:
Von:
Lauro		 Datum:
01.09.2020 20:25:21		 Views:
667		 Rating:
     
Antwort:
  Ja
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.

 

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
01.09.2020 19:34:47 Lauro
NotSolved
01.09.2020 19:41:54 ralf_b
NotSolved
Rot Bei aktvierten Checkboxen Makro mit Filter mit jeweils hinterlegten Werte ausführen
 01.09.2020 20:25:21 Lauro
NotSolved