Makro für Fehlermeldung
22.07.2003 13:29:20
Christian
Habe ein kleines Problem:
Ich bin gerade dabei ein Makro für Word zu erstellen, welches in eine Tabelle einließt und die Nummerierung in der ersten Spalte kontrolliert.
Geschaft habe ich bereits das er mir in die erste Spalte einließt und den Wert in einer Msgbox ausgibt.
Jedoch soll er nicht immer den Wert ausgeben, sonder nur dann wenn die Nummerierung in der ersten Splate falsch ist.
Wie sieh sehen können so weit bin ich schon nur weiter komm ich leider ohne Hilfe nicht mehr.
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
If Msgbox(strY, vbRetryCancel, "Fehler gefunden!!") = vbCancel Then
Exit Sub
End If
End If
Next intRow
Next intTab
End Sub
Vielen Dank im Voraus
Christian