Office: (Office 2013) Debuggen

Matthias Fitzner · 26. Mai 2020

Hallo zusammen!

Ich automatisiere gerade Excel. Dabei taucht zum erstenmal in meinem Entwicklerleben das Phänomen auf, dass beim Debuggen mit F8 nicht nur der nächste Prozedurschritt ausgeführt wird, sondern wie bei F5 der ganze Code bis zum nächsten Haltepunkt.

Zuerst dachte ich, ich habe die F5 statt der F8-Taste gedrückt, aber bei Aufruf über das Menü passiert das Gleiche.

Wisst Ihr Abhilfe?

Gruß Mafi

:)

hcscherzer · 28. Mai 2020

Ich automatisiere gerade Excel
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und warum schreibst es nicht dort sondern hier in der Access Abteilung?

Matthias Fitzner · 4. Juni 2020

"Und warum schreibst es nicht dort sondern hier in der Access Abteilung?"

Weil ich Excel von Access aus mit Daten füttere und der Code im Access läuft.

Gruß Mafi

markusxy · 4. Juni 2020

Wenn der gesamte Code in Access liegt, ist das sicher sonderbar.
Vielleicht zeigst du mal den Code und die genaue Stelle wo das passiert.
Möglicherweise kann man dann mehr sagen.

Matthias Fitzner · 15. Juni 2020

Hier der Code.

Stop bei "xls.Range("D2").Value = rsS!BGID" wird ausgeführt.
beim drücken F8-Taste wird erst wieder am Stop der Code angehalten.
Allerdings bei der nächsten Stückliste. Ein schrittweises Testen ist nicht möglich.
Das Verhalten ist nur in dieser Routine zu beobachten.
Liegt es am Excel?

Code:

Sub ExcelASW_Mo(Vorlage)
Dim xls As Excel.Application

Dim rsS As Recordset
Dim rsBG As Recordset
Dim rsAe As Recordset
Dim Seite%, Seiten%, KN&, ae%, SP%
Dim Verz, stdoc, ZNr$, Voreinstellung
Dim Zeilen$

'Auftrag abfragen
p_stInputAuftrag = fktAbfrageAuftrag()

'Tabelle BGStruktur öffnen und zur 1. Stückliste springen
sqlstrg = "SELECT * FROM tblbgstruktur WHERE benutzer = '" & UCase(CurrentUser()) & "' ORDER BY kennzahl;"
Set rsBG = CurrentDb.OpenRecordset(sqlstrg, 2)
If rsBG.RecordCount = 0 Then
rsBG.Close
Exit Sub
End If

'Verzeichnis für Speichern der Excel-Dateien abfragen
stdoc = rsBG!BGID & ".xlsx"
stdoc = accFDSaveAs("Dateiname festlegen", , msoFileDialogViewDetails, "C:eigene Dateien", rsBG!BGID & ".xlsx")
If stdoc = "" Then
Exit Sub
End If
Verz = fktNurVerzeichnis(stdoc)

rsBG.MoveFirst
'Tabelle mit Schleife durchlaufen
While Not rsBG.EOF
Me.BGID = rsBG!BGID
Me.Zeichnung = rsBG!Zeichnung

sqlstrg = "SELECT bgid, bg, idnummer, benennung, pos, halbzeug, menge, bemerkungen, bkz, " _
& "bearbstueli, bearbdatumstueli, autorstueli, autordatumstueli, hersteller, " _
& "orgstk, fremdid, blatt, bgfremd, bgblatt " _
& "FROM tblstrukturstueckliste " _
& "GROUP BY bgid, bg, idnummer, benennung, pos, halbzeug, menge, bemerkungen, bkz, " _
& "bearbstueli, bearbdatumstueli, autorstueli, autordatumstueli, hersteller, " _
& "orgstk, fremdid, blatt, bgfremd, bgblatt, benutzer " _
& "HAVING bgid = '" & Me.BGID & "' AND benutzer='" & UCase(CurrentUser()) _
& "' ORDER BY pos;"

'ermitteln wieviele Zeilen(Blätter) gebraucht werden
Set rsS = CurrentDb.OpenRecordset(sqlstrg, 2)
If rsS.RecordCount > 0 Then
rsS.MoveLast
If rsS.RecordCount 0 Then
Seiten = fktGanzzahl(rsS.RecordCount / 16)
End If
End If
'Dateiname erstellen
stdoc = Verz & "" & rsS!BGID & ".xlsx"

'Excel öffnen mit Vorlagedatei
Set xls = New Excel.Application
xls.Application.Visible = True
xls.Workbooks.Add Template:=Vorlage

'Blatt 1 mit Kopfdaten füllen
'IDNummer
xls.Range("D2").Value = rsS!BGID
'Benennung
xls.Range("D4").FormulaR1C1 = rsS!BG
'Maschinenkurzzeichen
xls.Range("K1").FormulaR1C1 = p_stInputAuftrag
'Zeichnungsnummer
xls.Range("D8").FormulaR1C1 = rsBG!Zeichnung
'Autor Datum
xls.Range("I4").FormulaR1C1 = rsS!autordatumstueli
'Autor Name
xls.Range("J4").FormulaR1C1 = rsS!autorstueli
'Bearbeiter Datum
xls.Range("I5").FormulaR1C1 = rsS!bearbdatumstueli
'Bearbeiter Name
xls.Range("J5").FormulaR1C1 = rsS!bearbstueli
'Änderungen
KN = Nz(DLookup("nr", "tblstammdaten", "idnummer='" & Me.BGID & "'"), 0)
sqlstrg = "select * from tblaenderung where nr = " & KN & " order by index;"
Set rsAe = CurrentDb.OpenRecordset(sqlstrg, 2)
If rsAe.RecordCount > 0 Then
rsAe.MoveLast
ae = rsAe.RecordCount
If ae > 6 Then
For i = 0 To 5
'Index
xls.Range("L" & 3 + i) = rsAe!Index
'Änderung
xls.Range("M" & 3 + i) = rsAe!aenderung
'Datum
xls.Range("N" & 3 + i) = rsAe!wdatum
'Name
xls.Range("O" & 3 + i) = rsAe!Name1
rsAe.MovePrevious
Next i
Else
rsAe.MoveFirst
Do While Not rsAe.EOF
'Zust
xls.Range("L" & 8 - rsAe.AbsolutePosition) = rsAe!Index
'Änderung
xls.Range("M" & 8 - rsAe.AbsolutePosition) = rsAe!aenderung
'Datum
xls.Range("N" & 8 - rsAe.AbsolutePosition) = rsAe!wdatum
'Name
xls.Range("O" & 8 - rsAe.AbsolutePosition) = rsAe!Name1
rsAe.MoveNext
Loop
End If
End If
rsAe.Close

'Stüli füllen
rsS.MoveFirst
N = 11
SP = 1
Seite = 1
'Schleife bis Ende
While Not rsS.EOF
If SP = 17 Then 'Seite ist Voll
'Fußzeile Schreiben
xls.Range("A" & N) = rsS!BGID & " - " & rsS!BG & " " & "Seite " & Seite & "/" & Seiten
xls.Range("P" & N - 23) = Seite & vbNewLine & "von" & vbNewLine & Seiten
'Blatt Kopieren
If Seite = 1 Then
Zeilen = "1:27"
Else
Zeilen = CStr(((Seite - 1) * 27) + 1) & ":" & CStr(((Seite - 1) * 27) + 27)
End If
xls.Rows(Zeilen).Select
xls.Selection.Copy
xls.Cells(N + 1, 1).Select
xls.ActiveSheet.Paste
xls.Range(xls.Cells(N + 11, 1), xls.Cells(N + 11 + 16, 17)).Select
xls.Selection.ClearContents
'Seitenumbruch einfügen
Zeilen = ((Seite - 1) * 27) + 28 & ":" & ((Seite - 1) * 27) + 28
xls.Rows(Zeilen).Select
Zeilen = "R" & ((Seite - 1) * 27) + 28
xls.Range(Zeilen).Activate
xls.ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=xls.ActiveCell
N = N + 11
SP = 1
Seite = Seite + 1
End If

'Pos
xls.Range("A" & N) = rsS!Pos
'Stk
xls.Range("B" & N) = rsS!orgStk
'Benennung
xls.Range("C" & N) = rsS!Benennung
'BZ
xls.Range("E" & N) = rsS!BKZ
'ID
xls.Range("F" & N) = rsS!IDNummer
'Bemerkungen
xls.Range("G" & N) = rsS!bemerkungen
'Halbzeug
xls.Range("K" & N) = rsS!Halbzeug
'Menge
xls.Range("O" & N) = rsS!Menge
'Hersteller
xls.Range("P" & N) = rsS!hersteller
N = N + 1
SP = SP + 1
rsS.MoveNext
Wend
'Fußzeile Schreiben
xls.Range("A" & Seite * 27) = xls.Range("D2") & " - " & xls.Range("D4") & " " & "Seite " & Seite & "/" & Seiten
xls.Range("P" & Seite * 27 - 23).FormulaR1C1 = Seite & vbNewLine & "von" & vbNewLine & Seiten
rsS.Close
If Dir(stdoc) "" Then Kill stdoc
xls.Workbooks(1).SaveAs stdoc
xls.Quit
Set xls = Nothing
rsBG.MoveNext
Wend
If Not rsS Is Nothing Then
rsS.Close
Set rsS = Nothing
End If
If Not rsAe Is Nothing Then
rsAe.Close
Set rsAe = Nothing
End If
If Not rsBG Is Nothing Then
rsBG.Close
Set rsBG = Nothing
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

markusxy · 15. Juni 2020

Application.Range - ist außerhalb von Excel ganz schlecht.

https://docs.microsoft.com/en-us/off...lication.range

Du brauchst einen vollständig qualifizierten Ausdruck mit einer Worksheet Referenz.

Auch Funktionen wie ActiveWindow, Active ... gehören nicht in einen sauberen Code.

Das gilt übrigens generell bei Automatisation und man gewöhnt sich das im Idealfall generell an, ansonsten kommt es zu leicht zu Fehlern.

Office: (Office 2013) Debuggen

Debuggen

Debuggen

Debuggen

Debuggen - Similar Threads - Debuggen

Debuggen / F5 in Formularen

Debuggen

debuggen ausblenden

Excel 2010: Nicht genügend Speicher. Wie debuggen?

Einzelschritt Debuggen funktioniert nicht mit F8

Debuggen Einzelschritt F8

Dokumente verschwunden