Fehlermeldung: Word Visual Basics - Dropdownmenü + Zusatzinformationen darunter

Hallo Jan-Philip,

was ist der Hintergrund für diese Sache?

Würde es nicht reichen in diesem Bereich die Zellen mit einer bedingten Formatierung einzufärben, wenn ein X drin steht?

Wenn in diesem Bereich das Vorkommen von X durch ZÄHLENWENN > 0 ist, kann man doch eine 'Aktion ausführen, z.B. Speichern oder Schließen unterbinden.

Claus

Du tust mir echt ein bisschen leid, denn wer auch immer Dich beauftragt hat, hat keine Ahnung von Excel.

Sowas macht man doch (schon seit Ewigkeiten) nicht (mehr).

Man kann eine einfache ZÄHLENWENN Formel anwenden und weiß ob es ein X gibt.

Falls ja einfach mal einen Autofilter setzen und schon sieht man alle Zeilen mit dem X auf einen Blick...

Zuerst kopierst Du den Code unten unter den vorhandenen Code.

Dann änderst Du die Zeile

  Set Bereich = Range("I5:I300")

zu

  Set Bereich = FindAll(Range("I1:I320"), "x")

  If Bereich Is Nothing Then

    MsgBox "Kein X vorhanden"

    Exit Sub

  End If

Alles klar?

Andreas.

Function FindAll(ByVal Where As Range, ByVal What, _

    Optional ByVal After As Variant, _

    Optional ByVal LookIn As XlFindLookIn = xlValues, _

    Optional ByVal LookAt As XlLookAt = xlWhole, _

    Optional ByVal SearchOrder As XlSearchOrder = xlByRows, _

    Optional ByVal SearchDirection As XlSearchDirection = xlNext, _

    Optional ByVal MatchCase As Boolean = False, _

    Optional ByVal SearchFormat As Boolean = False) As Range

  'Find all occurrences of What in Where (Windows version)

  Dim FirstAddress As String

  Dim C As Range

  'From FastUnion:

  Dim Stack As New Collection

  Dim Temp() As Range, Item

  Dim i As Long, j As Long

  If Where Is Nothing Then Exit Function

  If SearchDirection = xlNext And IsMissing(After) Then

    'Set After to the last cell in Where to return the first cell in Where in front if _

      it match What

    Set C = Where.Areas(Where.Areas.Count)

    'BUG in XL2010: Cells.Count produces a RTE 6 if C is the whole sheet

    'Set After = C.Cells(C.Cells.Count)

    Set After = C.Cells(C.Rows.Count * CDec(C.Columns.Count))

  End If

  Set C = Where.Find(What, After, LookIn, LookAt, SearchOrder, _

    SearchDirection, MatchCase, SearchFormat:=SearchFormat)

  If C Is Nothing Then Exit Function

  FirstAddress = C.Address

  Do

    Stack.Add C

    If SearchFormat Then

      'If you call this function from an UDF and _

        you find only the first cell use this instead

      Set C = Where.Find(What, C, LookIn, LookAt, SearchOrder, _

        SearchDirection, MatchCase, SearchFormat:=SearchFormat)

    Else

      If SearchDirection = xlNext Then

        Set C = Where.FindNext(C)

      Else

        Set C = Where.FindPrevious(C)

      End If

    End If

    'Can happen if we have merged cells

    If C Is Nothing Then Exit Do

  Loop Until FirstAddress = C.Address

  'FastUnion algorithm © , 2011:

  'Get all cells as fragments

  ReDim Temp(0 To Stack.Count - 1)

  i = 0

  For Each Item In Stack

    Set Temp(i) = Item

    i = i + 1

  Next

  'Combine each fragment with the next one

  j = 1

  Do

    For i = 0 To UBound(Temp) - j Step j * 2

      Set Temp(i) = Union(Temp(i), Temp(i + j))

    Next

    j = j * 2

  Loop Until j > UBound(Temp)

  'At this point we have all cells in the first fragment

  Set FindAll = Temp(0)

End Function

Hallo Sandy,

unter diesem (leider englischen) Link, kannst du eine generelle erläuterung von Visual Basics for Applications
(VBA) finden.

Viele Grüße,

Lisa

Habe ich durchgeführt jetzt kommt die Fehlermeldung

Problemsignatur:

Problemereignisname: APPCRASH

Anwendungsname: WINWORD.EXE

Anwendungsversion: 12.0.4518.1014

Anwendungszeitstempel: 45428028

Fehlermodulname:
mso.dll

Fehlermodulversion:
12.0.4518.1014

Fehlermodulzeitstempel: 4542867b

Ausnahmecode:
c0000005

Ausnahmeoffset:
0000571c

Betriebsystemversion:
6.1.7601.2.1.0.768.3

Gebietsschema-ID:
1031

Zusatzinformation 1:
f7db

Zusatzinformation 2:
f7dbeae62f39947b9d7427c4965bb6ce

Zusatzinformation 3:
7bb9

Zusatzinformation 4:
7bb94330ddfe430dd1165dcfe8a4727e

Wenn ich davon ausgehe dass es sich um ein Kombifeld handelt dann musst Du ein Ereignis beim Ändern des ersten Kombifeldes anlegen das dann die Source des 2. Kombifeldes setzt.

Sieht dann etwa so aus:

Me!Kombifeld2.RecordSource = "Select Spalte2 From Tabelle xxx"

Viel Erfolg

Mike