Office: Aktivierte Kontrollkästchen zählen...

sepl · 3. Dezember 2006

Hallo zusammen.
Ich habe leider praktisch keine Ahnung von Makros. Vielleicht aber weiss jemand gerade, wie man mein Problem angehen könnte.
Ich habe eine Word-Datei mit einer Tabelle erhalten, in welcher ich Spaltenweise die aktivierten Kontrollkästchen zählen muss. Es handelt sich um 150 Seiten und ca. 1500 Zeilen, daher möchte ich dies gerne den Rechner zählen lassen *Smilie
Hat jemand eine Idee wie ich dies machen könnte?
Besten Dank schon jetzt und Gruss
mark

:)

peppi · 5. Dezember 2006

Hallo,

um welche Kontrollkästchen handelt es sich denn? Um die aus der Symbolleiste Formular oder um die, aus der Steuerelemente-Toolbox?

sepl · 5. Dezember 2006

Hallo Peppi

Wenn ich mit einem doppelklick die Eigenschaften öffne, hat das Popup-Fenster folgenden Titel: Optionen für Kontrollkästchen-Formularfelder

PapaSchlumpf · 5. Dezember 2006

Hi,
z.B.
mit folgendem Makro:

Code:

Sub CountFFOptionFields()
Dim oDoc As Document
Dim ffld As FormField
Dim iCount As Integer, iCountTotal As Integer
Set oDoc = ActiveDocument
For Each ffld In oDoc.FormFields
If ffld.Type = wdFieldFormCheckBox Then
iCountTotal = iCountTotal + 1
If ffld.CheckBox.Value = True Then
iCount = iCount + 1
End If
End If
Next ffld
MsgBox "Aktivierte Kontrollkästchen: " & iCount & "/" & iCountTotal, vbInformation
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gibt die Anzahl der markierten KK zur Gesamtanzahl aus

Gruß
Christian

sepl · 5. Dezember 2006

Hallo Christian

Danke für das Makro. Habe es sogar geschaftt, das Teil im Word zu implementieren und ausführen zu lassen.
Jetzt habe ich allerdings noch das Problem, dass alle in der Tabelle vorhandenen KK gezählt werden. Ich sollte die Summe jedoch spaltenweise bilden können.
Leider habe ich es nicht geschafft (bsp. mit Markieren), das Makro nur für eine Spalte ausführen zu lassen.
Da gibt es sicher eine Möglichkeit, welche ich einfach nicht kenne, nicht?

Gruss
mark

P.S. Ein Lob an dieses Forum. Schnelle und unkomplizierte Hilfe innert Stunden! Ein Dankeschön an die Knowhow-Träger.

PapaSchlumpf · 5. Dezember 2006

Hi,

ok, folgende Änderung liefert DIr das Ergebnis für alle Spalten.
Voraussetzung:
nur 1 Tabelle ohne verbundene Zellen!

Code:

Sub CountFFOptionFields()
Dim oDoc As Document
Dim ffld As FormField
Dim tbl As Table
Dim iCols As Integer, i As Integer
Dim aCol() As String
Dim sCount As String
Set oDoc = ActiveDocument
Set tbl = oDoc.Tables(1)
iCols = tbl.Columns.Count
ReDim aCol(iCols - 1)
For Each ffld In tbl.Range.FormFields
If ffld.Type = wdFieldFormCheckBox Then
If ffld.CheckBox.Value = True Then
i = ffld.Range.Information(wdEndOfRangeColumnNumber)
aCol(i - 1) = Val(aCol(i - 1)) + 1
End If
End If
Next ffld
For i = LBound(aCol()) To UBound(aCol())
sCount = sCount & aCol(i) & "/"
Next i
sCount = Left(sCount, Len(sCount) - 1)
MsgBox "Aktivierte Kontrollkästchen pro Spalte: " & vbCrLf & sCount, vbInformation
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Christian

sepl · 5. Dezember 2006

Hut ab...
Das Ding tut ja so wie ich das gerne hätte *Smilie
Besten Dank!

Gruss
mark

Office: Aktivierte Kontrollkästchen zählen...

Aktivierte Kontrollkästchen zählen...

Aktivierte Kontrollkästchen zählen...

Aktivierte Kontrollkästchen zählen...

Aktivierte Kontrollkästchen zählen... - Similar Threads - Aktivierte Kontrollkästchen zählen

Wenn Kontrollkästchen aktiviert dann Textfeld einblenden

Wenn Kontrollkästchen aktiviert wird dann Text kopieren

Wenn Kontrollkästchen aktiviert dann Text fett und farbig formatieren

Geplante Aufgabe wird nicht aktiviert.

Keine Audioübertragung, obwohl Mikrofon aktiviert ist

bestimmte Tabellenblätter mit Schaltfläche drucken (wenn Kontrollkästchen aktiviert)

Ein Kontrollkästchen aktiviert eine ganze Liste