Office: (Office 2016) Wert in Autoauswahl schreiben

Helfe beim Thema Wert in Autoauswahl schreiben in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, Habe eine Liste mit Teilnehmern, welche für verschiedene Aktionen eingeteilt werden (siehe Beispieldatei). Die Teilnahme-Kennzeichnung erfolgt... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Mazecke, 23. Oktober 2018.

  1. Mazecke Erfahrener User

    Wert in Autoauswahl schreiben


    Hallo,

    Habe eine Liste mit Teilnehmern, welche für verschiedene Aktionen eingeteilt werden (siehe Beispieldatei).
    Die Teilnahme-Kennzeichnung erfolgt im Beispiel in Spalte D mit einem "x" manuell.
    Sind die gewünschten Teilnehmer gekennzeichnet, erfolgt der Druck (in Beispieldatei deaktiviert) über das im Beispiel integrierte Makro und anschließend die Umwandlung des "x" in ein "o" sowie die Aufhebung des Autofilters und der Wert in G3 wird eins höher gesetzt.
    Jetzt möchte ich eigentlich noch, das in Spalte C bei den jeweils mit x gekennzeichneten Teilnehmern der aktuelle Wert aus G3 eingetragen wird.
    Entweder neu eingetragen oder wenn bereits einer vorhanden entsprechend ersetzt.
    Wie kann ich das hinbekommen?

    Code:
    Sub XprintchangetoO()
    '
    ' XprintchangetoO Makro
        
        With ActiveSheet.PageSetup
            .LeftHeader = "&""Arial,Fett""&10&K000000" & Format(Now)
            .CenterHeader = "&""Arial,Fett""&20&K000000" & "Teilnahmeaktion " & Sheets("Teilnahme").Range("G3") + 1
            .RightHeader = "&""Arial,Fett""&16&K000000" & "Kennung:                    "
            
            .LeftFooter = "&""Arial,Fett""&10&K000000" & "Teilnahmenachweis"
            .CenterFooter = "&""Arial,Fett""&9&K000000" & ActiveWorkbook.Name
            .RightFooter = ""
        End With
    
    
        ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=4, Criteria1:= _
            "x"
            
            
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
         
        Columns("D:D").Select
        Selection.Replace What:="x", Replacement:="o", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=4
        Range("G3").Value = Range("G3").Value + 1
        Range("A1").Select
    End Sub
    
    
    
    Danke für Hilfestellung

    Matt
     
    Mazecke, 23. Oktober 2018
    #1
  2. Beverly
    Beverly Erfahrener User
    Hi Matt,

    versuche es mal so:

    Code:
    Sub XprintchangetoO()
    '
    ' XprintchangetoO Makro
        Dim rngZelle As Range
        With ActiveSheet.PageSetup
            .LeftHeader = "&""Arial,Fett""&10&K000000" & Format(Now)
            .CenterHeader = "&""Arial,Fett""&20&K000000" & "Teilnahmeaktion " & Sheets("Teilnahme").Range("G3") + 1
            .RightHeader = "&""Arial,Fett""&16&K000000" & "Kennung:                    "
            
            .LeftFooter = "&""Arial,Fett""&10&K000000" & "Teilnamenachweis"
            .CenterFooter = "&""Arial,Fett""&9&K000000" & ActiveWorkbook.Name
            .RightFooter = ""
        End With
    
        With ActiveSheet.ListObjects("Tabelle1")
            .Range.AutoFilter Field:=4, Criteria1:="x"
                   
            'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                IgnorePrintAreas:=False
         
            .DataBodyRange.Columns(4).Replace What:="x", Replacement:="o", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                ReplaceFormat:=False
            .Range.AutoFilter Field:=4
            Range("G3").Value = Range("G3").Value + 1
            For Each rngZelle In .DataBodyRange.Columns(4).SpecialCells(xlCellTypeConstants)
                If rngZelle = "o" Then rngZelle.Offset(0, -1) = Range("G3")
            Next rngZelle
        End With
    End Sub
    
    
    Bis später,
    Karin
     
    Beverly, 24. Oktober 2018
    #2
  3. Mazecke Erfahrener User
    Hallo Karin,

    Vielen Dank!
    Die Reihenfolge noch etwas verändert und schon war es perfekt!
    Super!

    Gruß Matt
     
    Mazecke, 25. Oktober 2018
    #3
  4. Beverly
    Beverly Erfahrener User

    Wert in Autoauswahl schreiben

    Hi Matt,

    dann poste doch bitte deinen geänderten Code, damit alle Forums-User davon profitieren können.

    Bis später,
    Karin
     
    Beverly, 25. Oktober 2018
    #4
  5. Mazecke Erfahrener User
    Hallo,

    Natürlich gern:

    Code:
    Sub XprintchangetoO()
    '
    ' XprintchangetoO Makro
        Dim rngZelle As Range
        With ActiveSheet.PageSetup
            .LeftHeader = "&""Arial,Fett""&10&K000000" & Format(Now)
            .CenterHeader = "&""Arial,Fett""&20&K000000" & "Teilnahmeaktion " & Sheets("Teilnahme").Range("G3") + 1
            .RightHeader = "&""Arial,Fett""&16&K000000" & "Kennung:                    "
            
            .LeftFooter = "&""Arial,Fett""&10&K000000" & "Teilnahmenachweis"
            .CenterFooter = "&""Arial,Fett""&9&K000000" & ActiveWorkbook.Name
            .RightFooter = ""
        End With
    
    
        With ActiveSheet.ListObjects("Tabelle1")
            .Range.AutoFilter Field:=4, Criteria1:="x"
                   
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                IgnorePrintAreas:=False
              
            For Each rngZelle In .DataBodyRange.Columns(4).SpecialCells(xlCellTypeConstants)
                If rngZelle = "x" Then rngZelle.Offset(0, -1) = Range("G3")
            Next rngZelle
            
            .DataBodyRange.Columns(4).Replace What:="x", Replacement:="o", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                ReplaceFormat:=False
            .Range.AutoFilter Field:=4
            Range("G3").Value = Range("G3").Value + 1
        End With
    End Sub
    
    So sieht's jetzt aus.
    Alle mit "x"-markierten Einträge werden gedruckt, die Aktionsnummer bei denen eingetragen, dann auf "o" gesetzt und zuletzt Aktionszähler eins hoch gezählt.

    Danke nochmals

    Gruß Matt
     
    Mazecke, 25. Oktober 2018
    #5
Thema:

Wert in Autoauswahl schreiben

Die Seite wird geladen...
  1. Wert in Autoauswahl schreiben - Similar Threads - Wert Autoauswahl

  2. identische Werte in Spalte nur einmal zählen

    in Microsoft Excel Hilfe
    identische Werte in Spalte nur einmal zählen: Hallo. Ich bitte um eure Unterstützung. Ich bin auf der Suche nach der richtigen Formel um die Anzahl der unterschiedlichen Tage angezeigt zu bekommen. Es soll auch dann noch gezählt werden, wenn...
  3. Filter nach Wert in Zahlengruppe

    in Microsoft Access Hilfe
    Filter nach Wert in Zahlengruppe: . Hallo Ihr Lieben! Leider komme ich (mangels VBA-Kenntnisse) nicht weiter. Dank Markus (MarkusXY) funktioniert der Filter wunderbar. Bei eindeutigen Werten werden Formular und Kombis wie...
  4. Formular Wert per Klick in ein anderes Feld übernehmen

    in Microsoft Access Hilfe
    Formular Wert per Klick in ein anderes Feld übernehmen: Guten Tag Ich bin am Anschlag und brauche euer Schwarmwissen. Da ich eher zu den Anfänger gehöre, brauche ich auch einfache Erklärungen, damit ich in Zukunft verstehe. :-D Es handelt sich um...
  5. Wenn ein Wert ein einer Spalte, dann komplette Zeile im anderen Blatt untereinander einfügen.

    in Microsoft Excel Hilfe
    Wenn ein Wert ein einer Spalte, dann komplette Zeile im anderen Blatt untereinander einfügen.: Hallo, kann mir jemand bitte bei folgenderm Helfen. Habe etwas ähnliches gefunden was ich brauche, nur noch eine kleine Änderung ist notwendig. Aufgabe: Es wird geprüft, ob in Spalte Q ein Wert...
  6. Abfrageergebnis soll keine doppelten Werte enthalten

    in Microsoft Access Hilfe
    Abfrageergebnis soll keine doppelten Werte enthalten: Ich suche nach einer Lösung für folgendes Problem. In einer Tabelle werden Abwesenheiten erfasst. Verknüpft mit einer Mitarbeitertabelle. So erhalte ich eine Übersicht welcher Mitarbeiter aus...
  7. Teilstring einer Zelle auf Wert aus anderer Zelle überprüfen

    in Microsoft Excel Hilfe
    Teilstring einer Zelle auf Wert aus anderer Zelle überprüfen: Hallo zusammen, ich habe in einer Excel-Tabelle in zwei Tabellenblätter. Tabellenblatt "Artikelstamm" beinhaltet in Spalte A eine Artikel-Nr. und diverse weitere Spalten. Hier ein kleiner Auszug:...
  8. konti aufzählung und wert gleicher konti zusammenfassen

    in Microsoft Excel Hilfe
    konti aufzählung und wert gleicher konti zusammenfassen: hallo ich möchte eine automatische konti aufzählung aller gleichen konti und gleichzeitig die werte gleicher konti zusammenfassen (rot sind die zahlen, welche ich errechnen lassen möchte) danke...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden