Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.11.2016 11:45:34 |
Manuel |
|
|
VBA Word: Problem mit select case Abfrage |
07.11.2016 22:07:21 |
Gast2519 |
|
|
|
08.11.2016 15:39:02 |
Manuel |
|
|
|
08.11.2016 16:16:38 |
Gast35768 |
|
|
|
08.11.2016 17:00:36 |
Gast5412 |
|
|
|
08.11.2016 19:05:53 |
Manuel |
|
|
|
08.11.2016 19:15:43 |
Gast14598 |
|
|
|
08.11.2016 20:04:01 |
Manuel |
|
|
|
09.11.2016 21:47:31 |
Gast6339 |
|
|
|
09.11.2016 21:47:31 |
Gast22040 |
|
|
|
10.11.2016 07:05:32 |
Manuel |
|
|
|
10.11.2016 09:12:30 |
Manuel |
|
|
|
10.11.2016 11:00:19 |
Gast3246 |
|
|
|
10.11.2016 11:42:57 |
Gast52597 |
|
|
|
11.11.2016 17:18:51 |
Manuel |
|
|
|
17.11.2016 17:50:16 |
Gast88128 |
|
|
|
18.11.2016 09:04:07 |
Gast25980 |
|
|
Von:
Gast2519 |
Datum:
07.11.2016 22:07:21 |
Views:
626 |
Rating:
|
Antwort:
|
Thema:
VBA Word: Problem mit select case Abfrage |
Hallo! Also wenn beim Ja Fall die Nachricht nicht kommt, ist das ein Zeichen, dass das select nicht passt ( wobei es gut aussieht) Dadurch wird deine Variable bvar nicht true und somit zu 0, was einem anfügen entspricht. Ersetze mal die Prozedur Filesave durch das hier. Habe an statt der Variablen die Werte genommen und einen Fehlercase. Der ist dann wie abbrechen. Damit kommt man dem Problem ggf. auf die Spur. Zur genauen Analyse ggf. im FileSave Code mal mit F9 eine Halpunkt setzen und dann den Code ausführen. Er geht dann nur bis zu der Stelle. Ab da dann mal mit F8 schrittweise duchgehen und schauen wie sich de Code verhält.
Bei der Aktualisierungsub kann ich jetzt nichts sagen. Da müsste man ggf. den Seitenaufbau sehen. Sollte aber so auf die schnelle passen. VG
Sub FileSave()
Dim oDoc As Document
Dim oVar As Variable
Dim bVar As Boolean
Dim lngID As Long
Dim lngAsk As Long
Dim vbCancel As Boolean, vbNo As Boolean, vbYes As Boolean
Set oDoc = ActiveDocument
If Checkfields = True Then
If oDoc.Path = "" Then
FileSaveAs
End If
For Each oVar In oDoc.Variables
If oVar.Name = "varID" Then
lngAsk = MsgBox("Das Prüfprotokoll wurde bereits in die Geräteliste exportiert." & vbCr & _
"Wurden Daten im Protokoll geändert, kann der Eintrag in der Geräteliste aktualisiert werden!" & vbCr & _
vbCr & _
"Wähle 'Ja' um den Eintrag zu aktualisieren!" & vbCr & _
"Wähle 'Nein' um das Dokument ohne aktualisierung zu speichern!" & vbCr & _
"Wähle 'Abbrechen' um den Vorgang zu beenden!", vbYesNoCancel)
Select Case lngAsk
Case 6 'vbYes
MsgBox ("Daten werden überschrieben")
lngID = oVar.Value
bVar = True
Exit For
Case 7 'vbNo
MsgBox ("Dokument gespeichert")
bVar = False
Exit For
Case 2 'vbCancel
MsgBox ("Speichervorgang abgebrochen!")
GoTo lbl_Exit
Case Else
MsgBox "es ist etwas schief gelaufen"
GoTo lbl_Exit
End Select
End If
Next oVar
If Not bVar Then
oDoc.Variables("varID").Value = "0"
oDoc.Save
End If
DataTransfer CStr(lngID)
If Not oDoc.Saved Then oDoc.Save
End If
lbl_Exit:
Exit Sub
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
|
|
07.11.2016 11:45:34 |
Manuel |
|
|
VBA Word: Problem mit select case Abfrage |
07.11.2016 22:07:21 |
Gast2519 |
|
|
|
08.11.2016 15:39:02 |
Manuel |
|
|
|
08.11.2016 16:16:38 |
Gast35768 |
|
|
|
08.11.2016 17:00:36 |
Gast5412 |
|
|
|
08.11.2016 19:05:53 |
Manuel |
|
|
|
08.11.2016 19:15:43 |
Gast14598 |
|
|
|
08.11.2016 20:04:01 |
Manuel |
|
|
|
09.11.2016 21:47:31 |
Gast6339 |
|
|
|
09.11.2016 21:47:31 |
Gast22040 |
|
|
|
10.11.2016 07:05:32 |
Manuel |
|
|
|
10.11.2016 09:12:30 |
Manuel |
|
|
|
10.11.2016 11:00:19 |
Gast3246 |
|
|
|
10.11.2016 11:42:57 |
Gast52597 |
|
|
|
11.11.2016 17:18:51 |
Manuel |
|
|
|
17.11.2016 17:50:16 |
Gast88128 |
|
|
|
18.11.2016 09:04:07 |
Gast25980 |
|
|