MsgBox weiter asuzählen lassen
28.07.2003 10:53:46
Christian
Ich habe ein kleines Problem.
Ich habe bereits dank euer hilfe geschaft einen Wert in eine MSGBOX einzulesen und auszugeben. Jedoch sollte die Nummerierung die eingelesen wird nicht abgebrochen werden wenn das Makro in die nächste Tabelle springt und dort die Nummerierung ausgibt.
Sub Teststatistikfehlersuche2()
intTab = 1
'Anzahl der Tabellen
intTablesCount = ActiveDocument.Tables.Count
For intTab = 2 To intTablesCount
'ActiveDocument.Tables(intTab).Select
Set oTable = ActiveDocument.Tables(intTab)
intRowCount = oTable.Rows.Count
For intRow = 1 To intRowCount
If oTable.Rows(intRow).Cells.Count >= 1 Then
oTable.Cell(intRow, 1).Select
Set Inhalt = oTable.Cell(intRow, 1)
strY = "In der Spalte 1 steht: " & Inhalt
' unbedingt Judith fragen wie ich die bereits eingelesenen Tabellen bekomme
If Inhalt <> intRow + Then
Msgbox ("Fehler: erwartet: " & intRow & " gelesen: " & Inhalt)
End If
End If
Next intRow
Next intTab
End Sub
Ist es Außerdem vielleicht möglich die MSGBOX nur dann auszugeben wenn die Nummerierung falsch ist??Vielen Danke im Voraus
Christian