Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
06.03.2022 18:46:20 |
Hilfesuchender |
|
|
|
06.03.2022 18:49:01 |
Gast75542 |
|
|
|
06.03.2022 20:44:49 |
ralf_b |
|
|
|
06.03.2022 20:58:35 |
Hilfesuchender |
|
|
|
06.03.2022 22:12:42 |
ralf_b |
|
|
Makro; automatischer Seitenumbruch |
06.03.2022 22:37:33 |
ralf_b |
|
|
|
06.03.2022 22:47:35 |
Hilfesuchender |
|
|
|
07.03.2022 17:38:08 |
ralf_b |
|
|
Von:
ralf_b |
Datum:
06.03.2022 22:37:33 |
Views:
433 |
Rating:
|
Antwort:
|
Thema:
Makro; automatischer Seitenumbruch |
witzigerweise habe ich in meinem Fundus ein passendes Stück gefunden.
Public Sub VerteilerlisteDrucken()
Dim avntValues As Variant, vntItem As Variant
Dim objDictionary As Object
With Worksheets("Einfügen")
'spalte A in Datenfeld einlesen
avntValues = .Range(.Cells(4, 1), .Cells(.Rows.Count, 1).End(xlUp)).Value2
Set objDictionary = CreateObject(Class:="Scripting.Dictionary")
With objDictionary
For Each vntItem In avntValues 'touren aus Splate A in datenfeld einlesen
If vntItem <> "" Then
.Item(Key:=vntItem) = vbNullString
End If
Next
End With
If .AutoFilterMode Then Call .AutoFilter.ShowAllData
For Each vntItem In objDictionary.Keys 'schleife über die Touren und filtern
Call .Rows(1).AutoFilter(Field:=1, Criteria1:=vntItem) 'filter setzen
Call .PrintOut 'ausdrucken jedes Blattes, einzeln
Next
Call .ShowAllData 'Filter zurücksetzen
End With
Set objDictionary = Nothing
End Sub
|
- 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
|
|
06.03.2022 18:46:20 |
Hilfesuchender |
|
|
|
06.03.2022 18:49:01 |
Gast75542 |
|
|
|
06.03.2022 20:44:49 |
ralf_b |
|
|
|
06.03.2022 20:58:35 |
Hilfesuchender |
|
|
|
06.03.2022 22:12:42 |
ralf_b |
|
|
Makro; automatischer Seitenumbruch |
06.03.2022 22:37:33 |
ralf_b |
|
|
|
06.03.2022 22:47:35 |
Hilfesuchender |
|
|
|
07.03.2022 17:38:08 |
ralf_b |
|
|