Text in Rechtecken zählen
02.05.2009 19:20:42
Malte
ich möchte zwei Werte aus Rechtecken zählen, hierfür der bisherige Code:
Dim WList As Variant
Dim intCountCBO
Dim DGerne As String
Dim DNein_danke As String
WList = Array(118, 120, 121, 122, 123)
For intCountCBO = LBound(WList) To UBound(WList)
Select Case Worksheets("Tabelle2").Shapes("Rechteck " & WList(intCountCBO)).TextFrame. _
Characters.Text
Case 0: DGerne = DGerne + 1
Case 1: DNein_danke = Nein_danke + 1
End Select
Next
Worksheets("Tabelle3").Shapes("Textfeld 1").TextFrame.Characters.Text = _
"Die Zählung ergab:" & vbLf _
& "Es wurden " & DGerne & " gezählt" & vbLf _
& "Es wurden " & DNein_danke & " gezählt" & vbLf _
Meine Frage richtet sich danach, wie die Variablen dargestellt werden müssen, damit die Texte "Gerne" und "Nein danke" in den Cases gezählt werden können. Ich habe versucht, den Code etwas umzumodeln. Vorher habe ich nämlich CommandButtons ausgelesen, dies hat aber nicht funktioniert ;(
Schöne Grüße,
Malte
Anzeige