Menü
An- und Abmelden
Partner / Links
Beiträge anzeigen
1
Excel / Office 365: Problem mit Makro: Autofilter, pdf export
« am: Januar 16, 2019, 08:18:22 Vormittag »
Hallo zusammen
Da ich im Bereich Makros für Excel blutiger Anfänger bin, bitte ich euch um Hilfe.
Folgende Ausgangslage: Mit ein bisschen suchen, habe ich ein Makro mit Autofilter Funktion und automatischen pdf-Export erstellt. Bis auf ein kleines Problem, funktioniert alles wie gewünscht.
Das Problem:
Die Spalte die gefiltert werden muss enthält folgende Werte als Beispiel:
201.0
201.1
285.0
285.1
Nach ausführen des Makros werden aber die Zeilen mit 201.0 + 285.0 nicht wie gewünscht als pdf abgespeichert. Wenn die Zahl 4-stellig ist und ohne Punkt dazwischen (z.b. 2010, 2850) werden alle pdf's abgespeichert und auch so benennt, was jedoch nicht zufriedenstellend ist.
Ich habe versucht die Formatierung der Zellen zu ändern (Standard, Zahl, Text, Benutzerdefiniert mit 000.0), jedoch hat sich am Ergebnis nichts geändert.
Hier das Marko:
Sub pdf()
For i = 199.9 To 299.9 Step 0.1
ActiveSheet.Range("A1:A299").AutoFilter Field:=1, Criteria1:="0" + i
If ActiveSheet.Range("A1") > 0 Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\MAA\Desktop\Liste Regiearbeiten\" & i _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End If
Next
End Sub
Um eure Hilfe wäre ich sehr Dankbar
Da ich im Bereich Makros für Excel blutiger Anfänger bin, bitte ich euch um Hilfe.
Folgende Ausgangslage: Mit ein bisschen suchen, habe ich ein Makro mit Autofilter Funktion und automatischen pdf-Export erstellt. Bis auf ein kleines Problem, funktioniert alles wie gewünscht.
Das Problem:
Die Spalte die gefiltert werden muss enthält folgende Werte als Beispiel:
201.0
201.1
285.0
285.1
Nach ausführen des Makros werden aber die Zeilen mit 201.0 + 285.0 nicht wie gewünscht als pdf abgespeichert. Wenn die Zahl 4-stellig ist und ohne Punkt dazwischen (z.b. 2010, 2850) werden alle pdf's abgespeichert und auch so benennt, was jedoch nicht zufriedenstellend ist.
Ich habe versucht die Formatierung der Zellen zu ändern (Standard, Zahl, Text, Benutzerdefiniert mit 000.0), jedoch hat sich am Ergebnis nichts geändert.
Hier das Marko:
Sub pdf()
For i = 199.9 To 299.9 Step 0.1
ActiveSheet.Range("A1:A299").AutoFilter Field:=1, Criteria1:="0" + i
If ActiveSheet.Range("A1") > 0 Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\MAA\Desktop\Liste Regiearbeiten\" & i _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End If
Next
End Sub
Um eure Hilfe wäre ich sehr Dankbar