|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 For Each ... Next wird nicht komplett ausgeführt |
08.08.2017 10:42:13 |
Gast |
|
|
|
08.08.2017 10:44:52 |
Gast01234 |
|
|
|
08.08.2017 10:52:29 |
Gast11853 |
|
|
Von:
Gast |
Datum:
08.08.2017 10:42:13 |
Views:
992 |
Rating:
|
Antwort:
|
Thema:
For Each ... Next wird nicht komplett ausgeführt |
|
Hallo zusammen,
ich habe folgendes Problem und benötige unbedingt Hilfe.
Es handelt sich um eine Dokument mit unendlich vielen Tabellen, alle genau gleich aufgeteilt in diesem Bereich Gefahrendiskussion. Bis zu iner bestimmten Tabelle wird alles genau so ausgeführt wie gewünscht. Allerdings ab der Tabelle Nr. 11 wird der If Paramenter nicht mehr korrekt angewendet und nur noch Zeile 1 gelöscht und die sich dann ergebende Zeile 1 in einen Text umgewandelt.
Hat irgendjemand eine Idee woran das liegen kann?
Hier der Ausschnitt aus dem Code:
For Each tbl In GefahrendiskussionRange.Tables
tbl.Cell(1, 1).Select
Criteria2 = VBA.Replace(Selection.Text, Chr(13), " ")
'MsgBox Criteria2 & CurrentCriteria2, vbOKOnly
If (Criteria2 = CurrentCriteria2) Then
tbl.Cell(1, 1).Select
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.MoveDown Unit:=wdLine, Count:=2, Extend:=wdExtend
Selection.Rows.Delete
Selection.Collapse
tbl.Cell(1, 1).Select
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
Selection.Rows.ConvertToText Separator:=wdSeparateByTabs, NestedTables:=True
CurrentCriteria2 = Criteria2
Else
tbl.Cell(1, 1).Select
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.MoveDown Unit:=wdLine, Count:=4, Extend:=wdExtend
Selection.Rows.ConvertToText Separator:=wdSeparateByTabs, NestedTables:=True
CurrentCriteria2 = Criteria2
End If
Next
Vielen Dank vorab. |
- 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
|
For Each ... Next wird nicht komplett ausgeführt |
08.08.2017 10:42:13 |
Gast |
|
|
|
08.08.2017 10:44:52 |
Gast01234 |
|
|
|
08.08.2017 10:52:29 |
Gast11853 |
|
|