Gefilterte Tabelle per PDF und variabler Name

Sub Drucke_Stellenplan() Const DateiPfad = "irgendein Dateipfad/" Dim DateiName As String DateiName = DateiPfad & Range("c1073") & " Stellenplan " & Range("G1073") & ".pdf" ' Org + _ _ aktuelles Datum Range("c1:bh1072").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ DateiName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
teste mal:

Public Sub Drucke_Stellenplan()

    Const DateiPfad = "irgendein Dateipfad/"

    Dim DateiName As String
    Dim lngRow As Long

    With ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
        If .Areas(1).Rows.Count > 1 Then
            lngRow = .Areas(1).Cells(2, 1).Row
        Else
            lngRow = .Areas(2).Cells(1, 1).Row
        End If
    End With

    DateiName = DateiPfad & Cells(lngRow, 3).Text & _
        " Stellenplan " & Cells(lngRow, 7).Text & ".pdf" ' Org + aktuelles Datum

    Range("C1:BH1072").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

Gruß
Nepumuk

Hallo nochmal,
ich habe es hinbekommen. Der Code sieht wie folgt aus:

Public Sub Drucke_Stellenplan()
Const DateiPfad = "irgendein Dateipfad"
Dim DateiName As String
Dim lngRow As Long
With ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
If .Areas(1).Rows.Count > 1 Then
lngRow = .Areas(1).Cells(2, 1).Row
Else
lngRow = .Areas(2).Cells(1, 1).Row
End If
End With
Debug.Print AF_KRIT
DateiName = DateiPfad & AF_KRIT & _
" Stellenplan " & ".pdf" ' Org + aktuelles Datum
Range("c1:bh1072").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub

Public Function AF_KRIT() As String
Dim intCol As Integer
Dim intFilter As Integer
Dim rngFilter As Range
Dim strFilter As String
Dim WS As Worksheet
Application.Volatile
Set WS = ActiveSheet
If WS.FilterMode And WS.AutoFilterMode Then
Set rngFilter = WS.AutoFilter.Range
For intCol = 1 To rngFilter.Columns.Count
With WS.AutoFilter.Filters(intCol)
If .On Then
If strFilter  "" Then strFilter = strFilter & vbLf
strFilter = strFilter & rngFilter.Cells(1, intCol) & ": " & .Criteria1
Select Case .Operator
Case xlAnd
strFilter = strFilter & " UND " & .Criteria2
Case xlOr
strFilter = strFilter & " ODER " & .Criteria2
End Select
End If
End With
Next intCol
End If
AF_KRIT = Right(strFilter, 3)
End Function

Nochmal danke für die Hilfe. Ohne die erste Antwort wäre ich nicht draufgekommen.
Gruß,
Thomas

Beliebteste Forumthreads (12 Monate)

Gefilterte Tabelle per PDF und variabler Name

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Gefilterte Tabelle per PDF und variabler Name

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread