Objektvariable nicht festg
03.02.2016 10:45:29
Michael
mit nachfolgende Code erstelle ich PDF-Dateien mit Vorauswahlkriterien.
Das Problem ist die Zeile
Set Zelle = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
Diese wird beim Ausführen des makros gelb markiert und es kommt der Fehler:
Objektvariable oder With Blockvariable nicht festgelegt.
Ich wüsste aber nicht was hier falsch sein soll.
Gruß
Private Sub cmbPDF_erstellen_Click()
Dim Zelle As Range
Dim strDatei As String
'Eingaben prüfen
If Me.cbxArt.ListIndex = -1 Then
MsgBox "Bitte Art auswählen", vbOKOnly, "PDF erstellen"
Exit Sub
ElseIf Me.txbBetreff = "" Then
MsgBox "Bitte Ebene und Anlage eintragen", vbOKOnly, "PDF erstellen"
Exit Sub
End If
'Verzeichnis prüfen, ob vorhanden
If Dir(Pathname:=Me.txbPfad, Attributes:=vbDirectory) = "" Then
'Unterverzeichnis anlegen
VBA.MkDir Path:=Me.txbPfad
End If
'Prüfen,ob PDF schon vorhanden
strDatei = Me.txbPfad & Application.PathSeparator & Me.txbDatei
If Dir(Pathname:=strDatei, Attributes:=vbNormal) "" Then
If MsgBox("PDF-Datei existiert schon. PDF-Datei überschreiben?", _
vbQuestion + vbYesNo, "PDF erstelen") = vbNo Then Exit Sub
End If
'zu druckende Blätter selektiern/gruppieren
ActiveWorkbook.Sheets(arrSheets).Select
'Parameter für PDF-Erstellung ggf. anpassen
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strDatei, _
Quality:=xlQualityStandard, Includedocproperties:=True, _
Ignoreprintareas:=False, Openafterpublish:=False
'Gruppierung wieder aufheben durch Selektion eines Blattes
ActiveWorkbook.Sheets(arrSheets(0)).Select
Me.Hide
'Historie ausfüllen
With wksHistorie
Set Zelle = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
With Zelle
.Value = datDatum
.Offset(0, 1).Value = datZeit
.Offset(0, 2).Value = Tabelle1.Cells(3, 24)
.Offset(0, 3).Value = Auswahl
.Offset(0, 4).Value = Me.txbBetreff
.Offset(0, 5).Value = Me.cbxArt.Value
.Offset(0, 6).Value = strDatei
End With
strDatei = "PDF\" & Me.txbDatei
.Hyperlinks.Add Anchor:=Zelle.Offset(0, 6), Address:=strDatei, _
ScreenTip:=Me.txbDatei.Text, TextToDisplay:=Me.txbDatei.Text
End With
Unload Me
End Sub