Einen Counter in Word per Knopfdruck nutzen

Hallo,
<br />bedauerlicherweise verstehe ich die Zielsetzung noch nicht. Eine um jeweils "1" hochgezählte Nummerierung lässt sich doch ziemlich einfach z. B. per SEQ-Feld realisieren.
<br />Viele Grüße
<br />Lisa
<br />

Hallo Claus,
<br />vielen Dank für die Antwort! Ich habe es nun direkt einmal ausprobiert. Sobald ich das "x" eintrage öffnet sich wieder der VBA-Editor und ich bekomme die Fehlermeldung "Fehler beim Kompilieren: Syntaxfehler". Was mache ich falsch?
<br />Viele Grüße,
<br />Florian
<br />

Jetzt benötigst du natürlich auch ein Makro um wieder alle Zeilen zu zeigen.
<br />Ich habe es wie folgt gelöst:
<br />In einem Makromodul bei Personal.XLSB Diesen Code eingesetzt:
<br />Sub AlleFilteranzeigen()
<br />On Error Resume Next
<br />ActiveSheet.ShowAllData
<br />Rows.Hidden = False
<br />End Sub
<br />Und oben in der Symbolleiste für den Schnellzugriff ein Symbol mit dem Makro verknüpft.
Dies habe ich deshalb getan, weil ich oft mit gefilterten Tabellen arbeite und manchmal wieder alle angezeigt haben möchte.
<br />So "Vergesse" ich nicht einen Filter
<br />

Hallo Florian,
<br />drücke Alt+F11, um in den VBA-Editor zu kommen. Doppelklicke im Projekt-Explorer auf die entsprechende Tabelle und füge dann im Code-Fenster folgenden Code ein:
<br />

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("E:E")) Is Nothing _

Or Target.Count > 1 Then Exit Sub

Rows(Target.Row).Hidden = Target = "x"

End Sub

Wenn du nun ein x in Spalte E schreibst, wird die Zeile ausgeblendet.
<br />Claus
<br />

Hallo Florian,
<br />ohne die Mappe zu sehen, weiß ich nicht, wo der Fehler liegt. Vielleicht hast du den Code an der falschen Stelle eingetragen.
<br />Lade dir mal hier die Mappe herunter:
<br />https://1drv.ms/x/s!AqMiGBK2qniTgfE5r-5caTPkx2ZsfQ?e=pkvl0n
<br />und schaue, wo der Code eingetragen ist.
<br />Claus
<br />