zunaras
22.05.2012, aktualisiert um 15:31:32 Uhr
view2984
view2
0
Goto Top

Ausdruck mit verschiedenen Namen auf jeder Seite

gelöstFrageMicrosoftMicrosoft Office
Schönen guten Tag,

ich habe hier eine Tabelle mit den Namen der Mitarbeiter unter Excel 2003. Diese möchte ich für jeden Mitarbeiter ausdrucken. Ich möchte gerne, das auf jedem Ausdruck ein anderer Name (einer der Mitarbeiter) draufsteht.

Ich habe hier schon mal einen Code. Damit funktioniert das prima. Nur es soll widerrum nicht jeder Mitarbeiter diese Liste bekommen. In F6:F50 ein x in den Feldern von den Leuten, die diese Liste bekommen sollen.

Wie kann ich das weiterhin eingrenzen.


Option Explicit

Private Sub CommandButton1_Click()
    Dim a As Range
    For Each a In Range("B6:B50")  
        If a <> "" Then  
            ThisWorkbook.Sheets("Tabelle1").Range("B4") = a.Text  
            DoEvents
            ThisWorkbook.Sheets("Tabelle1").PrintOut  
        End If
    Next a
End Sub


Viele Grüße
Zunaras


PS: ich tue mich mit der neuen Administrator-Seite momentan noch etwas schwer...
ShareTeilen
Auf Facebook teilen Auf X (Twitter) teilen Auf Reddit teilen Auf Linkedin teilen

Content-ID: 185320

Url: https://administrator.de/forum/ausdruck-mit-verschiedenen-namen-auf-jeder-seite-185320.html

Ausgedruckt am: 02.04.2025 um 22:04 Uhr

2 Kommentare
Neuester Kommentar
Goto Top
bastla
bastla 22.05.2012 um 15:47:39 Uhr
Goto Top
Hallo Zunaras!

Ergänze die Zeile 6 auf
If a <> "" And Cells(a.Row, "F") <> "" Then
(ungetestet)

Grüße
bastla
Zunaras
Zunaras 22.05.2012 um 15:58:10 Uhr
Goto Top
Hallo bastla!

Ich danke Dir vielmals. Funktioniert prima!

Grüße
Zunaras
gelöstFrageMicrosoftMicrosoft Office
Mehr von ZunarasZunarasOutlook VBA, öffnen großes ExplorerfensterZunaras - 2 KommentareZunarasWochentag ermitteln, Samstag und Sonntag mit FehlerZunaras - 4 KommentareZunarasDrucker doppelt in Einstellungen auf allen Win10-ClientsZunaras - 4 KommentareZunarasAufgabe ausführen, wenn Datei-Änderungsdatum älter als x TageZunaras - 4 Kommentare
Heiß diskutiert
r2d2r3poNetzwerk Ausfäller2d2r3po - 46 Kommentareratzekahl1Batch-Datei mit Admin-Rechten ausführen ohne das Passwort raus zu gebenratzekahl1 - 41 KommentareTschakalakaNetzwerkscan - Suche nach inkompatiblen Windows 10 Clients für Windows 11 UpgradeTschakalaka - 41 KommentarepanguuRouter gesucht (Mikrotik, OPNsense)panguu - 38 KommentarekreuzbergerUbuntu 24 Desktop 64Bit Installation bleibt stehenkreuzberger - 33 KommentareTenniscrackTablet sagt: Nicht genügend SpeicherplatzTenniscrack - 31 KommentareU08154711Firewall Regeln für TravelrouterU08154711 - 27 KommentarekpunktWelche Applikation will nach 199.59.243.228?kpunkt - 23 KommentareMilordHilfe bei Windows Suche oder alternativeMilord - 22 Kommentarefatih.yaylaSBLenovo Notebook friert immer wieder einfatih.yaylaSB - 19 KommentarekpunktMicrosoft entfernt BypassNRO.cmdkpunkt - 19 Kommentareem-pieVMware: Mindestens 72 Cores für Lizenzierung erforderlichem-pie - 17 KommentaremaddocPlötzlich keinen Sound mehr, neue Soundkarte keine Besserungmaddoc - 17 Kommentare